Bonjour à tous,

Je suis novice en VBA pour Excel. Je cherche à faire une copie de fichier sur base d'un range de cellules. J'y suis arrivé sur une cellule mais je bloque sur la boucle

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub SaveasJob12()
     ' By Norie modified - This one Worked
    Dim MyFile As String
    Dim MyDir As String
    Dim MyName As String
    Dim sDir As String
 
    MyDir = Sheets("sheet1").Range("B1").Text
    MyFile = Sheets("sheet1").Range("C1").Text
    MyName = Sheets("sheet1").Range("E1").Text
    sDir = MyDir & "\" & MyFile & "-" & MyName
 
    MsgBox sDir
 
    If FileFolderExists(sDir) Then
        MsgBox "Folder exists!"
    Else
        MsgBox "Folder does not exist!"
            MkDir sDir
    ChDir sDir
    End If
 
   'ActiveWindow.Close
 
    Dim MyDir1 As String
    Dim sDir1 As String
 
    MyDir1 = Sheets("sheet1").Range("a15").Text
 
    sDir1 = MyDir1
 
    MsgBox sDir1
 
    If FileFolderExists(sDir1) Then
        MsgBox "Folder exists!"
    Else
        MsgBox "Folder does not exist!"
            MkDir sDir1
    ChDir sDir
 
 
    End If
End Sub