Discussion :

[surf-max]

Bonjour, tout est dans le titre.
J'ai récupéré le code qui fonctionne sur 2 fichiers simplifiés, mais j'essai d'adapter le code à mes 2 fichiers initiaux qui sont beaucoup plus gros et complexes (+ de colonnes et de lignes etc etc). Ainsi, j'aurai besoin de comprendre le code suivant, pourriez-vous m'aider s'il vous plait ?
Voici les 2 fichiers simplifiés en cas d'incompréhension

Merci par avance

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
Sub Completer()
Dim WbS As Workbook, WbC As Workbook
Dim WsS As Worksheet, WsC As Worksheet
Dim Cel As Range, C As Range
Dim firstAddress As String
    'Fichier source
    Set WbS = Workbooks("Fichier 1 complété par différentes personnes.xls")
    Set WsS = WbS.Worksheets("41 - Balance brute avec montant")
    'Fichier Cible
    Set WbC = Workbooks("Fichier 2 à compléter avec le 1.xls")
    Set WsC = WbC.Worksheets("41 - Balance brute avec montant")
    For Each Cel In WsS.Range("E2:E" & WsS.Range("A" & Rows.Count).End(xlUp).Row)
        'WsS.Range("A" & Rows.Count).End(xlUp).Row : retourne la valeur 41 et permet de parcourir tout le tableau source
        If Application.CountA(Cel.Resize(1, 3)) > 0 Then
            'Recherche du code article
            Set C = WsC.Columns(3).Find(Cel.Offset(0, -2), , xlValues, xlWhole)
            If Not C Is Nothing Then
                firstAddress = C.Address
                Do
                   'Contrôle de concordance du Code entité IN et RG Siège
                    If Cel.Offset(0, -4) = C.Offset(0, -2) And Cel.Offset(0, -3) = C.Offset(0, -1) Then
                        Cel.Resize(1, 3).Copy C.Offset(0, 9)
                        Exit Do
                    End If
                    Set C = WsC.Columns(3).FindNext(C)
                Loop While Not C Is Nothing And C.Address <> firstAddress
            End If
        End If
    Next Cel
    Set C = Nothing: Set WsC = Nothing: Set WsS = Nothing: Set WbC = Nothing: Set WbS = Nothing
End Sub

[Marc-L]

Bonjour,

version Les Inconnus : Vous pouvez répétez la question ?‼

[surf-max]

C'est bon, j'ai réussi à adapter le code.
En fait, je demandais des explications sur les lignes de code, simplement des commentaires. Je sais que les habitués du code peuvent facilement traduire une ligne en français... Si ça pouvait encore être possible malgré que je sois arrivé à adapter le code, j'en serai ravi. Cela me permettrait de pouvoir réutiliser plus aisément certaines formules, et avoir l'habitude de code de cette manière.

[Marc-L]

Pour traduire un code, placer le curseur sur une instruction puis appuyer sur la touche !

Ensuite si vraiment une ligne particulière pose un problème, indiquer alors son numéro …

[surf-max]

Bonjour,
Maintenant que le code fonctionne, le problème réside dans le fait que mon code a besoin d'un nom de fichier (source) pour aller chercher les données et les copier dans un fichier (cible).
Je ne peux pas à chaque fois toucher le code et modifier le nom du fichier source... il peut y avoir une multitude de fichier .Xls dont j'ai besoin de récupérer les données

J'ai donc pensé à renommer tout les fichiers .Xls sous le même nom avec un numéro à la fin (qui sera la variable i). Je voulais faire un .bat et l'éxécuter depuis mon code vba (fichier cible) pour effectuer cette tâche mais j'ai pas réussi, alors, une fois que j'ai placé tout les fichiers dans mon répertoire, je les sélectionne, fait F2, les renomme d'un nom unique (Balance CT10-CT00) et windows rajoute (1), (2),... (n) à la fin.

Je veux donc me servir de cela (i) => comme variable pour pouvoir parcourir l'ensemble des fichiers .xls qui ont été renommé...
Une seule boucle est suffisante selon moi (ouverte au début et fermé à la fin de mon code)

Si ma demande est assez explicite, pourriez-vous m'aider s'il vous plait?
Le code

PS : les fichiers sources seront sécurisé pour avoir la même structure et ainsi pouvoir récupérer les données facilement

[Marc-L]

Bonjour,

si un répertoire est dédié uniquement aux fichiers à traiter, pas besoin de les renommer …

Et dans les deux cas, les fichiers peuvent être parcourus à l'aide de la fonction Dir …

Voir aussi cette discussion pour une application particulière de celle fonction.