Créer un répertoire

[Rudy]

Bonjour,

j'ai une macro toute simple qui me permet d'enregistrer automatiquement un fichier. l'inconvénient, c'est que je ne peux enregistrer le fichier que dans un répertoire qui existe déjà.

Comment faire pour créer un répertoire et y enregistrer un fichier ?

Merci de votre aide

 

[Hellboy]

Bonjour Rudy

Voici la procédure qui te permet de créer un répertoire. Mais pour y arriver, tu dois a partir du VBE, installer une librairie supplémentaire a ton VBAProject. Pour y arriver tu fais alt+F11, tu va ds la barre de menu Outils/références... Cette librairie s'appel:
Microsoft Scripting Runtime. le fichier attacher est l'image de ce que je veut dire.

Public Sub MakeRep()
    Dim Rep                                            As FileSystemObject
    Dim vrtWrileEOF                            As Variant
   
    Const strRepMain                        As String * 6 = 'C:\XLD'
    Const strRepTemp                        As String * 17 = 'C:\XLD\Temp_Files'
   
    On Error Resume Next
    '    Aucune information déjà présente ne sera écrasé lors de ce processus
   
        Set Rep = CreateObject('Scripting.FileSystemObject')
        With Rep
                .CreateFolder (strRepMain)
        End With
        Set Rep = Nothing
        Set vrtWrileEOF = Nothing
   
    On Error GoTo 0
End Sub

[file name=Librairie.zip size=32555]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Librairie.zip[/file]

 

[Rudy]

Merci, ca marche parfaitement

je n'aurais jamais trouvé tout seul .......

 

[myDearFriend!]

Bonsoir Rudy, Hellboy,

Heu... sans être obligé de sortir l'artillerie lourde 😛, on peut aussi faire tout simplement ça :

MkDir 'C:\NouvRepertoire'

Cordialement,

 

[Hellboy]

re a tous

Pourquoi faire simple, quand on peut faire compliqué ? 🙂

désolé Rudy ! et merci myDearFriend!

 

[ANDREA]

bonjour Rudy
Serait il possible de connaitre cette macro 'toute simple' qui te permet d'enregistrer un fichier dans un repertoire deja crée
Merci
Andrea

 

[Hellboy]

Bonjour ANDREA

Comme ceci:

Workbooks('LeNomDeTonFichier.xls').SaveCopyAs Filename:='C:\Répertoire\LeNomDeTonFichier.xls'

 

[andrea]

Merci Philippe pour la rapidité de ta réponse
Andrea