Discussion :

[ilada]

Bonjour,
Je souhaite avoir un peu d'aide pour une macro. J'explique le fonctionnement de la macro , dont le code suivra après: L'objectif est que la macro qui affecté à un fichier excel a part sera capable d'ouvrir un certains nombre de fichier excel à partir d'une liste saisie à la main genre.
C:// mes documents/tata/titi
je ne veux pas figer cette source dans le code car elle change autant de fois d'une chemise.
voila le code que j'avais et qui marchait jusqu'à ce que je change de environnement de travail.

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
'Paramètre
Dim chemin_source As String
Dim chemin_cible As String
Dim classeur As Object
Dim fonction As Variant
Dim indice As Integer
Dim fs, f, fc, f_crt As Variant
 
 
Sub traitement()
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
 
    'parcour la liste des zones de saisie des répertoires
    For indice = 1 To 45
 
        'Mise à jour des liens
        If UCase(Trim(Range("A4"))) = "VRAI" Then
            If UCase(Trim(Cells(8 + indice, 1))) = "VRAI" Then
                chemin_source = Cells(8 + indice, 3)
                If chemin_source <> "" Then
                    parcourir_repertoire
                ElseIf chemin_source = "" Then
                    Cells(8 + indice, 3).Value = "non renseigné => traitement impossible"
                End If
            End If
 
        'Autre que mise à jour des liens
        Else
            If UCase(Trim(Cells(8 + indice, 1))) = "VRAI" Then
                chemin_cible = Cells(8 + indice + 1, 3)
                chemin_source = Cells(8 + indice, 3)
                If chemin_source <> "" And chemin_cible <> "" Then
                   parcourir_repertoire
                Else
                   If chemin_source = "" Then Cells(8 + indice, 3).Value = "non renseigné => traitement impossible"
                   If chemin_cible = "" Then Cells(8 + indice + 1, 3).Value = "non renseigné => traitement impossible"
                End If
             End If
        End If
    Next
 
    MsgBox ("Traitement terminé")
 
End Sub
 
Sub parcourir_repertoire()
 
 Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(chemin_source)
    Set fc = f.Files
 
    'pour chaque fichier du répertoire, on applique les procédures ci-dessous
    For Each f_crt In fc
        'filtre uniquement les fichiers excel
        If f_crt.Type = "Microsoft Excel Worksheet" Then
            ouverture_fichier
            mise_en_forme
            fermeture_fichier
        End If
    Next
 
End Sub

Si vous voulez je peux vous envoyer le fichier en entier

Merci bcp pour votre aide

[ouskel'n'or]

Bonjour ilada, bienvenue sur le forum.
Pour baliser ton code, tu le sélectionnes en mode d'édition, et tu fais un simple clic sur #
pour corriger ton message, utilise le bouton Editer en bas de ton message
Et lis les règles du forum, c'est plein de renseignements utiles qui faciliteront tes recherches.
A+

Pour la réponse, je viens de me souvenir que tu as ça à "Dir" dans l'aide en ligne