Le fichier n'est pas une base Notes

[abraracourcix]

Bonjour à tous,

Lorsque j'essaies d'ouvrir un carnet d'adresse d'un utilisateur, j'ai le message suivant :
"Le fichier n'est pas une base notes"

Et je n'ai pas de sauvegarde du names.nsf

Existe-t-il un moyen de le récupérer ?

Merci pour vos réponses.

[Stephane Maillard]

Bonjour,

Essayez de mettre à jour la structure, si le CA est sur le serveur relancer le serveur.

Autrement peut être par script on peut récupérer les documents.

[abraracourcix]

J'ai transférer le fichier sur le serveur, j'ai essayé le "fixup", "updall -r" et de remettre à jour la structure et à chaque fois la même réponse "n'est pas un fichier notes".
Je crains le pire.

Merci pour ton aide

[Invité]

Tu peux toujours essayer un truc du genre:


Sub Click(Source As Button)
Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim destDb As New NotesDatabase("","")
Dim sourceDb As New NotesDatabase("","")
Dim AllDocs As NotesDocumentCollection
Dim AllDocsView As NotesView
Dim sourceDoc As NotesDocument
Dim destDoc As NotesDocument
Dim tempDoc As NotesDocument
Dim docCount As Variant
Dim current As Variant
Dim choices (0 To 2) As Variant

choices(0) = "Base courante"
choices(1) = "Base locale"
choices(2) = "Base sur serveur"

' get source database
sourceDbType = w.Prompt(PROMPT_OKCANCELLIST, "Sélectionner l'emplacement de la base", _
"Sélectionner l'emplacement de la base que vous désirez copier:", _
choices(0), choices)

If sourceDbType = "" Then
Messagebox "Opération annulée"
Exit Sub
End If

If sourceDbType = choices(0) Then
Set sourceDb = s.CurrentDatabase
Else
If sourceDbType = choices(1) Then
sourceDbServer = ""
sourceDbNameReturn = w.OpenFileDialog(False, _
"Veuillez sélectionner l'emplacement de la base que vous désirez copier", "*.nsf", _
s.GetEnvironmentString("Directory", True))
If sourceDbName = "" Then
Msgbox("Opération annulé: Impossible de continuer sans un nom de fichiers.")
Exit Sub
End If
sourceDbName=SourceDbNameReturn(0)
Else
sourceDbServer = Inputbox("Entrer le nom du serveur Domino (Source)")
sourceDbName = Inputbox("Entrer le nom du fichier relatif à la base désirée (Source)")
If sourceDbName = "" Then
Msgbox("Opération annulé: Impossible de continuer sans un nom de fichiers.")
Exit Sub
End If
End If
If Not (sourceDb.Open(sourceDbServer, sourceDbName)) Then
Msgbox("Impossible de trouver/ouvrir la fichier: " + sourceDbName)
Exit Sub
End If
End If

' get destination database
destDbType = w.Prompt(PROMPT_OKCANCELLIST, "Base destination", _
"Sélectionner l'emplacement de la base de destination", _
choices(1), choices)

If destDbType = "" Then
Messagebox "Opération annulée"
Exit Sub
End If
If destDbType = choices(0) Then
Set destDb = s.CurrentDatabase
Else
If destDbType = choices(1) Then
destDbServer = ""
destDbNameReturn = w.OpenFileDialog(False, _
"Veuillez sélectionner la base que vous désirez copier de", "*.nsf", _
s.GetEnvironmentString("Directory", True))
If destDbName = "" Then
Msgbox("Opération annulé: Impossible de continuer sans un nom de fichiers.")
Exit Sub
End If
destDbName=destDbNameReturn(0)
Else
destDbServer = Inputbox("Entrer le nom du serveur Domino (Destination)")
destDbName = Inputbox("Entrer le nom du fichier relatif à la base désirée (Destination)")
If destDbName = "" Then
Msgbox("Opération annulé: Impossible de continuer sans un nom de fichiers.")
Exit Sub
End If
End If
If Not (destDb.Open(destDbServer,destDbName)) Then
Msgbox("Impossible de trouver/ouvrir la fichier: " + destDbName)
Exit Sub
End If
End If

If destdb.server=sourcedb.server And destdb.filename=sourcedb.filename And destdb.filepath=sourcedb.filepath Then
Msgbox("Base Source et Destination ne peuvent être la même base")
Exit Sub
End If

Set AllDocs = sourceDb.alldocuments

docCount = AllDocs.Count
current = 0
Print Cstr(Round(current / docCount * 100, 0)) + "% copié"

' - copy these to dest. db
Set sourceDoc = AllDocs.GetFirstDocument
While Not (sourceDoc Is Nothing)
Call sourceDoc.CopyToDatabase(destDb)
' display progress
current = current + 1
Print Cstr(Round(current / docCount * 100, 0)) + "% copiés"
Set sourceDoc = AllDocs.GetNextDocument(sourceDoc)
Wend
'done
Msgbox("Documents ont été copiés. Fermer et réouvrir la base (Si ouverte) afin de la rafraichir.")
End Sub


Cela va copier les documents en arrière-plan sans ouvrir la base via le UI du client.

JRY

[abraracourcix]

Merci pour le code mais j'ai eu un message du style "Impossible de trouver/ouvrir le fichier.................."

J'ai donc ouvert le CA malade avec wordpad et en fait il'n'y a plus rien dedans (en comparant avec un CA valide avec tjrs wordpad), je soupconne que la personne à sauvegarder son CA avec notes ouvert ou un truc de ce genre là

Merci à tous pour votre aide

[Steph_]

bonjour et bonne année

j'ai exactement le même souci

il n'y a vraiment aucune solution à ce problème ?

[Michael DELIQUE]

salut

ça peut être le fichier qui est corrompu

[Steph_]

possible

je pense qu'il a été flingué suite à la migration v6 --> v8

mais même en le remettant sur un poste en v6 j'ai cette erreur

[Michael DELIQUE]

d'ou l'utilité des sauvegardes

[Steph_]

et c'est comme ça que je m'en suis sorti