Repertoire

[tf1]

Bonjour

Je souhaite a l'ouverture de mon fichier excel que celuis ci me crer un repertoir par exemple "toto"

Cordialment

 

[Abel]

Re : Repertoire

Bonjour tf1,

Essaie :
Sub CrationRep()
MkDir "C:\Nouveau repertoire1"
End Sub

A placer dans "Thisworkbook". Cela crée un nouveau répertoire nommé "Nouveau repertoire1" sur la racine de "C:".


En espérant que cela dépanne.

Abel.

 

[Abel]

Re : Repertoire

Re,

Oups !
Instruction à placer sur l'événement Open dans Thisworkbook :

Private Sub Workbook_Open()
MkDir "C:\Nouveau repertoire1"
End Sub

Abel.

 

[tf1]

Re : Repertoire

sa semble marcher.....

Mais est il possible de gerer le non du rep depuis le nom definie sur la feuil1!A1
merci

 

[Abel]

Re : Repertoire

Re,

Me semblait aussi ....

Essaie avec :
Private Sub Workbook_Open()
Dim Rep As String
Rep = "C:\" & Worksheets("Feuil1").[a1].Value
MkDir Rep
End Sub


Abel.

 

[tf1]

Re : Repertoire

SUPER SA MARCHE BIEN
Mais lorsque je ferme le fichier alors qu'il a créer le rep et si je ré ouvre mon fichier excel l amacro ce bloque "ereeur d'execution 75"

merci

 

[Abel]

Re : Repertoire

Re,

Oui, normal. Le répertoire existe déjà.

Deux solutions :
1 - ajoute "On Error Resume Next" sur une ligne avant l'instruction MkDir,
2 - tester l'existence du répertoire avant d'essayer de le créer et sortir de la procédure s'il existe.

Ou ... nous donner plus d'info sur le contexte de ce que tu cherches à faire.
Dans quelles conditions faut-il créer un répertoire, pourquoi, etc ...

Abel.

 

[tf1]

Re : Repertoire

merci
c juste pour que tout les fichier editer en pdf soit dedans

mais avec On Error Resume Next sa semble marche

merci