Création de dossiers

P

pat01200

XLDnaute Occasionnel

• 6 Septembre 2015

• #2

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 !

 

Vote positif 0 Vote négatif

sten83

XLDnaute Occasionnel

• 6 Septembre 2015

• #3

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

 

Vote positif 0 Vote négatif

P

pat01200

XLDnaute Occasionnel

• 6 Septembre 2015

• #4

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

 

Vote positif 0 Vote négatif

sten83

XLDnaute Occasionnel

• 6 Septembre 2015

• #5

Re : Création de dossiers

Merci c'est OK

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 6 Septembre 2015

• #6

Re : Création de dossiers

Bonjour à tous,

pat01200 à dit:

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

Cliquez pour agrandir...

Excepté lorsque tu écris sur une ligne :

VB:

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

A+ à tous

 

Vote positif 0 Vote négatif

sten83

XLDnaute Occasionnel

• 6 Septembre 2015

• #7

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

 

Pièces jointes

• Document1.jpg

  11.2 KB · Affichages: 18

Vote positif 0 Vote négatif

sten83

XLDnaute Occasionnel

• 6 Septembre 2015

• #8

Re : Création de dossiers

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 6 Septembre 2015

• #9

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.

 

Vote positif 0 Vote négatif

sten83

XLDnaute Occasionnel

• 7 Septembre 2015

• #10

Re : Création de dossiers

Bonjour JCGL je ne comprend pas ton message?

 

Vote positif 0 Vote négatif