Bonjour et merci à l'avance de me répondre.

J'ai créé il y a quelque années une macro qui permettait de lire un répertoire et de le recopier en incriminent son nom. Le but était de créer des répertoires identiques avec seulement le nom qui changeait , Bien maintenant elle ne fonctionne pas, j'ai beau lire sur tout les forum et je suis planté à tout coup cela doit être conséquent de mon age.

Voici celle macro et si quelqu'un a un idée sa me rajeunirais:

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
Sub creationrepertoire_AGE()
    Dim I, fichier As Integer
    Dim fso As FileSystemObject
    Dim F As Object
    Dim PATH, NOUVEAUFICHIER, STATE As String
    Dim NOMRÉPERTOIRE, STRINGFILE, TEMPSTR As String
 
PATH = "c:\DETRUIT\"
 
    Set fso = New FileSystemObject
 
    For I = 1 To 100
    NOMRÉPERTOIRE = Format(I, "000")
    fso.COPYFOLDER PATH & "!RépertoireModèle", PATH & NOMRÉPERTOIRE
 
    With Application.FileSearch
    .SearchSubFolders = True
    .MatchAllWordForms = True
    .LookIn = PATH & NOMRÉPERTOIRE
    .FileType = msoFileTypeAllFiles
 
    STRINGFILE = "*XXX*"
 
    .FileName = STRINGFILE
    .Execute
 
    For fichier = 1 To .FoundFiles.Count
 
           TEMPSTR = .FoundFiles(fichier)
 
Name TEMPSTR As Replace(TEMPSTR, "XXX", NOMRÉPERTOIRE, 1)
 
    Next fichier
 
End With
 
  Next
 
End Sub