bonsoir,
J'ai la macro suivante
Sub Test chemin ()
Dim Chemin_pc As Variant
Chemin_pc = Chemin_pc = "C:" & Environ("HOMEPATH") & ("\OneDrive - AFH France\Documents\AFH\OFFRES AT")
If Dir(Chemin_pc, vbDirectory) <> "" Then ' = si dir_export existe alors
Else 'sinon
MkDir Chemin_pc ' le creer
End If
j'ai une erreur d’exécution '76'
merci de votre aide bonne journée A+
J'ai la macro suivante
Sub Test chemin ()
Dim Chemin_pc As Variant
Chemin_pc = Chemin_pc = "C:" & Environ("HOMEPATH") & ("\OneDrive - AFH France\Documents\AFH\OFFRES AT")
If Dir(Chemin_pc, vbDirectory) <> "" Then ' = si dir_export existe alors
Else 'sinon
MkDir Chemin_pc ' le creer
End If
j'ai une erreur d’exécution '76'
merci de votre aide bonne journée A+