Quelqu'un pourrait-il me dire ce qui cloche avec avec mon code.
Je voudrais remplacer c. Bonjour par C. Promotions

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
....
 Dim fso As New FileSystemObject
' ou Dim fso as Object
.... 
Set fso = CreateObject("Scripting.FileSystemObject")
 
.....         
strPathNl = toPath & "\" & !NomNameMatr & "\C. Bonjour\"
strPathFrB = toPath & "\" & !NomNameMatr & "\C. Promotions\"
                If Not Len(Dir(strPathNl, vbDirectory)) Then
                   fso.CopyFolder strPathFrB, strPathNl