Bonjour,

Je comprend pas pk ce message d'erreur 94 à la ligne

NomSerie = Me.Nom

dans le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Commande10_Click()
On erreur GoTo erreur
 
Dim NomSerie As String
Dim Fld As Folders
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
 
'Initialise les variables
If Me.Nom = "" Then
MsgBox "entrez un nom"
Exit Sub
Else
NomSerie = Me.Nom
End If
 
'Accède au dossier
If oFSO.FolderExists(CurrentProject.Path & "\classement\archivage\personne\" & NomSerie) = True Then
Else
Set Fld = oFSO.CreateFolder(CurrentProject.Path & "\classement\archivage\personne\" & NomSerie)
End If
Exit Sub
erreur:
MsgBox "erreur"
End Sub
Me semble qu'avec la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
If Me.Nom = "" Then
MsgBox "entrez un nom"
Exit Sub
elle devrait passer par dessus
mais le programme la lit pareil

merci
Mario