Microsoft 365 Pb MkDir

[fhuillier]

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+

 

[fhuillier]

Re
Pour le chemin j'ai changé j'ai utilisé car c'est une OneDrive entreprise
Ce lien n'existe plus...
Cela fonctionne.

Merci a tous

 

[dysorthographie]

Dessines moi un mouton !