Bonjour Pascal76, le forum,
merci pour ta reponse
grace à ce lien je n'ai plus de message d'erreur mais il ne se passe rien.
j'ai modifier mon code pour faire cela
If FileExists(Filesss & Nom1 & '.doc') = True Then
Label102.Visible = True
Else
Label102.Visible = False
End If
et j'ai copier ceci dans un module
Function FileExists(FileName as string) as Boolean
FileExists=Dir(FileName)<>''
end Function
Peux tu me dire si c'est faisable
D'avance merci
Thomas®