Vb Excel : Copier un fichier dans plusieurs dossiers

Question

Bonjour,

je souhaiterais savoir si c'est possible à partir d'un macro excel de copier un fichier (modèle pdf) dans plusieurs répertoires?

J'ai un fichier pdf et 200 répertoires, et je souhaiterais avoir ce fichier pdf dans chacun des répertoires.

Merci

Renfield · Answer

Bien sur que c'est possible...

FSO, appels recursif d'une fonction qui parcoure tous les repertoires a un emplacement donné et recopie de ton fichier dans chacun de ceux-ci...

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

asengs · Answer

Ok!
mais étant totalement novice en vba, je ne sais pas par pù démarré :(

Renfield · Answer

Sub test()
    CopierFichier "C:	emp\a.txt", "C:	emp"
End Sub

Public Sub CopierFichier(ByRef vsFilePath As String, ByRef vsFolder As String)
Dim oFolder As Object
    If Right$(vsFolder, 1) <> "" Then
        vsFolder = vsFolder & ""
    End If
    With CreateObject("Scripting.FileSystemObject")
        .CopyFile vsFilePath, vsFolder
        For Each oFolder In .GetFolder(vsFolder).SubFolders
            CopierFichier vsFilePath, oFolder.Path
        Next
    End With
End Sub


Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

Vb Excel : Copier un fichier dans plusieurs dossiers

3 réponses

Votre réponse

Discussions similaires