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+

 

[dysorthographie]

bonsoir,
qu'est-ce-que tu es sensé créer?
OFFRES AT
ou toute l'arborescence
C:\Users\toi\OneDrive - AFH France\Documents\AFH\OFFRES AT

pour information

Chemin_pc = environ("userprofile") & "\OneDrive - AFH France\Documents\AFH\OFFRES AT"

 

[pierrejean]

Bonjour fhuillier
a 1 ere vue tu bégayes
Chemin_pc = Chemin_pc .....
teste:

Dim Chemin_pc As Variant
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

 

[jmfmarques]

Bonjour
si tu as vraiment écrit ce que tu montres là, à savoir :

Chemin_pc = Chemin_pc = "C:" & Environ("HOMEPATH") & ("\OneDrive - AFH France\Documents\AFH\OFFRES AT")

ta variable variant Chemin_Pc devient Bolléenne, ne peu dès lors qu'être TRUE ou FALSE et cela :

If Dir(Chemin_pc, vbDirectory) <> "" Then

n'a aucun sens, pas plus que n'en aurait:

MkDir Chemin_pc

😳

 

[patricktoulon]

bonjour
Allo!!!
Chemin_pc = "C:\" & Environ("HOMEPATH") & "\OneDrive - AFH France\Documents\AFH\OFFRES AT"

Allo!!
Chemin_pc = Environ("userprofile") & "\OneDrive - AFH France\Documents\AFH\OFFRES AT"
au revoir 😉

 

[dysorthographie]

désolé si mes remarque ne sont pas aussi constructive!

Sub Test_chemin()
Dim Chemin_pc As Variant
Chemin_pc = Environ("userprofile") & "\OneDrive - AFH France\Documents\AFH\OFFRES AT"
If Dir(Chemin_pc, vbDirectory) = "" Then ' = si dir_export N'existe pas alors
    With CreateObject("Wscript.Shell")
        .Run "cmd /c mkdir " & Chr(34) & Chemin_pc & Chr(34)
    End With
End If
End Sub

Edite: salut Patrick.

 

[patricktoulon]

coucou Robert 😉
pourquoi wscript.shell??

 

[dysorthographie]

Pour créer les répertoires en cascade, car j'ai le sentiment que le problème est là ???

 

[patricktoulon]

oui moi aussi mais le probleme est que onedrive (le dossier) est créée par l'application onedrive
donc son chemin pour moi n'est pas valide

"\OneDrive - AFH France\Documents\AFH\OFFRES AT"

"\OneDrive\ AFH France\Documents\AFH\OFFRES AT"

mais bien vu la création de l'arborescence d'un coup 😉

 

[dysorthographie]

Oui ça me paraît bizarre également !
Mon Drive au travail est ondrive tout simplement.

Je sais pas si il est possible de lui donner un autre nom.

 

[patricktoulon]

re
si il te le demande quand tu installe
mais si c'est le demandeur qui l’a renommer dans l’explorer, la il est mal la liaison synchrone est perdue

 

[dysorthographie]

Ok je ne me rappelais plus

 

[dysorthographie]

J'oubliais !

variable variant Chemin_Pc devient Bolléenne, ne peu dès lors qu'être TRUE ou FALSE et cela

Ne peut être que False!

 

[fhuillier]

Bonjour fhuillier
a 1 ere vue tu bégayes
Chemin_pc = Chemin_pc .....
teste:

Dim Chemin_pc As Variant
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

PierreJean bonjour,

Merci de ton aide.

A+ Francis

 

[fhuillier]

Bonjour a tous merci de vos aides
Bon confinement
Bonne journée
A+