Créer un dossier et copie d'un fichier Word

Bonjour,

J'ai un soucis avec un programme que j'essaie de faire.

Je voudrais créer une fonction qui me permettrait de créer des nouveaux dossiers comportant

les mêmes noms que les valeurs d'une colonne. À cela, j'ai un gabarit en fichier Word dont

j'aimerais avoir une copie qui comporte le même nom que le dossier pour chaque dossier créé.

Pour la partie créer un nouveau dossier pour chaque valeur d'un colonne, j'utilise cette fonction:

Sub MakeFolders()
    Dim xdir As String
    Dim fso
    Dim lstrow As Long
    Dim i As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 2 To lstrow
        'change the path on the next line where you want to create the folders
        xdir = "C:\Users\misen\Desktop\Repertoire\" & Range("B" & i).Value
        If Not fso.FolderExists(xdir) Then
            fso.CreateFolder (xdir)
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Cependant, j'ai un problème en ce qui à trait au copier coller du fichier Word dans les dossiers.

Quelqu'un aurait-il (elle) une solution?

Cordialement.

Bonjour,

à tester,

fichierSource = "c:\AncienRépertoire\monfichier.doc"
fichierDestination= "c:\NouveauRépertoire\monfichier.doc"
fso.MoveFile fichierSource, fichierDestination

i20100 a écrit :

Bonjour,

à tester,

fichierSource = "c:\AncienRépertoire\monfichier.doc"
fichierDestination= "c:\NouveauRépertoire\monfichier.doc"
fso.MoveFile fichierSource, fichierDestination

Merci, c'est bon!