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.