Création de dossiers

[sten83]

Bonjour a tous,
Une petite question, est-il possible de créer des dossiers sur C:\ à l'ouverture d'un classeur en vérifiant ci ceux-ci n'existe pas.
Si ils existes alors pas de création sinon création.

Merci

 

[pat01200]

Re : Création de dossiers

Bonjour Sten,
Voici un code qui devrait réaliser ce que tu souhaites :

Private Sub Workbook_Open()
If dir("\Nom_de_Dossier", vbDirectory) = "" Then _
MkDir "\Nom_de_Dossier"
End If
End Sub
Bon dimanche !

 

[sten83]

Re : Création de dossiers

Merci de ta reponse rapide par contre je souhaite créer 2 dossiers regarde ton modifier code ci-dessous mais cela ne fonctionne pas seul le dossier FACTURE et généré

Private Sub Workbook_Open()
If Dir("\FACTURE", vbDirectory) = "" Then _
MkDir "\FACTURE"
If Dir("DEVIS", vbDirectory) = "" Then
MkDir "\DEVIS"
End If

End Sub

 

[pat01200]

Re : Création de dossiers

Re,
En VBA, pour chaque "If", il faut un "End If", donc il t'en manque un ! Corrige to code ainsi :

Private Sub Workbook_Open()
If Dir("\FACTURE", vbDirectory) = "" Then _
MkDir "\FACTURE"
End If
If Dir("DEVIS", vbDirectory) = "" Then
MkDir "\DEVIS"
End If

Voilà, ça devrait marcher...

End Sub

 

[sten83]

Re : Création de dossiers

Merci c'est OK

 

[JCGL]

Re : Création de dossiers

Bonjour à tous,

En VBA, pour chaque "If", il faut un "End If", donc il t'en manque un ! Corrige to code ainsi :

Excepté lorsque tu écris sur une ligne :

Private Sub Workbook_Open()
If Dir("\Facture", vbDirectory) = "" Then MkDir "\Facture"
If Dir("\Devis", vbDirectory) = "" Then MkDir "\Devis"
End Sub

A+ à tous

 

[sten83]

Re : Création de dossiers

Désoler j'ai parler trop vite une fois les repertoire créer quand j'ouvre a nouveau le classeur j'ai un message d'erreur.
Ci-joint l'image

 

[sten83]

Re : Création de dossiers

Encore moi cette fois c'est bon avec le code de JCGL merci a vous deux pour votre aide.

 

[JCGL]

Re : Création de dossiers

Bonjour à tous,

Merci de déposer le code complet car ce n'est pas normal.

A+ à tous

Edition : Oups !!! Pas rafraîchi.

 

[sten83]

Re : Création de dossiers

Bonjour JCGL je ne comprend pas ton message?