Microsoft 365 Pb MkDir

dysorthographie

XLDnaute Barbatruc

• 28 Avril 2020

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Avril 2020

• #3

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

VB:

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 28 Avril 2020

• #4

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

VB:

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 :

Code:

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

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

Code:

MkDir Chemin_pc

😳

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Avril 2020

• #5

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 😉

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Barbatruc

• 28 Avril 2020

• #6

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

VB:

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Avril 2020

• #7

coucou Robert 😉
pourquoi wscript.shell??

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Barbatruc

• 28 Avril 2020

• #8

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Avril 2020

• #9

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 😉

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Barbatruc

• 28 Avril 2020

• #10

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Avril 2020

• #11

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Barbatruc

• 28 Avril 2020

• #12

Ok je ne me rappelais plus

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Barbatruc

• 28 Avril 2020

• #13

J'oubliais !

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

Cliquez pour agrandir...

Ne peut être que False!

 

Vote positif 0 Vote négatif

F

fhuillier

XLDnaute Nouveau

• 29 Avril 2020

• #14

pierrejean à dit:

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

VB:

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

Cliquez pour agrandir...

PierreJean bonjour,

Merci de ton aide.

A+ Francis

 

Vote positif 0 Vote négatif

F

fhuillier

XLDnaute Nouveau

• 29 Avril 2020

• #15

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

 

Vote positif 0 Vote négatif