Discussion :

[guigol]

Bonjour,

La macro que j'ai fonctionne en pas à pas (c'est à dire en appuyant sur F8)= ligne par ligne) mais pas en la lançant d'un coup à partir d'un fichier générateur.

Son but :

• Parcourir tous les fichiers d'un dossier renseigné en début de macro
• Parcourir tous les onglets de ces fichiers
• Y chercher le mot "annulation" (pour trouver la ligne d’entête du fichier - qui n'est pas forcément toujours sur la même ligne)
• puis parcourir toutes les lignes inférieures à la ligne d’entête.
• Chercher si la colonne "annulation" a des occurrences
• copier la ligne entière vers un fichier vierge

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
66
67
68
    Chemin = InputBox("saisir le chemin", "Saisie du répertoire")
 
    If Right(Chemin, 1) <> "\" Then
        Chemin = Chemin & "\"
    End If
 
 
    'appel de la fonction avec le chemin du dossier (adapter...)
    Tablo = RecupFichiers(Chemin)
 
    'si au moins un fichier trouvé...
    If Not (Not Tablo) Then
 
        'Workbooks.Add
        Set Fichier_Final = Workbooks.Add
        Ligne_Fichier_Final = 2
        For i = 1 To UBound(Tablo)
 
            'ouvre le classeur...
            Set Cls = Workbooks.Open(Chemin & Tablo(i), UpdateLinks:=False)
 
            'parcours sa collection de feuilles...
            For Each Feuille In Cls.Worksheets
                    Set c = Feuille.Range("A1:ZZ10").Find("Annulation", LookIn:=xlValues)
                    If Not c Is Nothing Then
                        For Ligne_Fichier_Source = c.Row + 1 To Feuille.Range("A" & Rows.Count).End(xlUp).Row
                            If Feuille.Cells(Ligne_Fichier_Source, c.Column) <> "" Then
                                Cls.Feuille.Range(Rows(Ligne_Fichier_Source), Rows(Ligne_Fichier_Source)).Copy
                                Fichier_Final.Sheets(1).Cells(Ligne_Fichier_Final, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                                Ligne_Fichier_Final = Ligne_Fichier_Final + 1
                            End If
                        Next Ligne_Fichier_Source
 
                    End If
            Next Feuille
 
            'referme le classeur
            Application.CutCopyMode = False
            Cls.Close SaveChanges:=False
 
        Next i
 
    End If
    Application.DisplayAlerts = False
 
End Sub
 
Function RecupFichiers(Chemin As String) As String()
 
    Dim Tbl() As String
    Dim Fichier As String
    Dim i As Integer
 
    'seulement les fichiers .xlsx
    Fichier = Dir(Chemin & "*.xlsx")
 
    Do While (Len(Fichier) > 0)
 
        i = i + 1
        ReDim Preserve Tbl(1 To i)
        Tbl(i) = Fichier
        Fichier = Dir()
 
    Loop
 
    RecupFichiers = Tbl()
 
End Function

Vous avez une idée d’où vient le problème?

[Menhir]

La macro que j'ai fonctionne en pas à pas (c'est à dire en appuyant sur F8)= ligne par ligne) mais pas en la lançant d'un coup à partir d'un fichier générateur.

Quel est le symptôme du dysfonctionnement ?
Si l'exécution bugue, quel est le message et quelle ligne est désignée par le débugage ?
Si le résultat est non conforme, quelle est la différence entre le souhaité et l'obtenu ?

[guigol]

Les lignes ne sont pas copiées.
Le fichier final reste vierge.

Dans le fichier final, il doit quand meme se passer quelque chose car l'ascenseur se retrouve quelques dizaines de lignes plus bas. ce qui correspond au nombre de lignes que la macro est censée récuperer.

[guigol]

Oups

Pardon? Je n'ai pas compris ta réponse.
Qu'as tu voulu dire?

[Menhir]

N'aurais-tu pas des On Error dans ton code qui empêcheraient l'expression des bugs ?

Pardon? Je n'ai pas compris ta réponse.
Qu'as tu voulu dire?

Peut-être s'est-il aperçu après coup dans ton historique que tu fais partie de ces demandeurs qui n'aident jamais personne sur le forum et qui, pire, ne prennent même pas la peine de dire merci quand on leur apporte une réponse.
Moi aussi ce type d'attitude me coupe parfois l'envie de répondre...

[guigol]

N'aurais-tu pas des On Error dans ton code qui empêcheraient l'expression des bugs ?

Merci pour cette piste de recherche. J'ai regardé de ce coté là. et n'ai rien trouvé.
Je ne matrise pas bien, le copy paste. ce bout là te semble bien utilisé?

Peut-être s'est-il aperçu après coup dans ton historique que tu fais partie de ces demandeurs qui n'aident jamais personne sur le forum et qui, pire, ne prennent même pas la peine de dire merci quand on leur apporte une réponse.
Moi aussi ce type d'attitude me coupe parfois l'envie de répondre...

Je sollicite effectivement ce forum (et d'autres). Et j'aide sur d'autres forums.
Concernant les macros Excel, je ne me sens pas capable d'aider les gens qui posent des questions. Vos réponses m'impressionnent toujours. Bravo.

Quand aux remerciements, tu as raison. Je ne le fais pas assez de manière générale. Je vais donc corriger cela à l'avenir.

[halaster08]

Bonjour,

Vu que ta copie se fait dans une boucle j'ai ajouté des debug.print sur tes conditions pour voir si elles sont bien remplies
Relance ton code avec ces modifs et regarde si les résultats sont cohérants

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
              For Ligne_Fichier_Source = c.Row + 1 To Feuille.Range("A" & Rows.Count).End(xlUp).Row
debug.print "param de la boucle for:"
debug.print c.Row + 1
debug.print  Feuille.Range("A" & Rows.Count).End(xlUp).Row
                            If Feuille.Cells(Ligne_Fichier_Source, c.Column) <> "" Then
debug.print "condition du if:"
debug.print  Feuille.Cells(Ligne_Fichier_Source, c.Column)
                                Cls.Feuille.Range(Rows(Ligne_Fichier_Source), Rows(Ligne_Fichier_Source)).Copy
                                Fichier_Final.Sheets(1).Cells(Ligne_Fichier_Final, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                                Ligne_Fichier_Final = Ligne_Fichier_Final + 1
                            End If
                        Next Ligne_Fichier_Source

[Menhir]

Quand aux remerciements, tu as raison. Je ne le fais pas assez de manière générale. Je vais donc corriger cela à l'avenir.

Visiblement, ce sera dans un avenir... très lointain.

[Valtrase]

Salut le fil...

teste comme cela :
Feuille.Range(Rows(Ligne_Fichier_Source), Rows(Ligne_Fichier_Source)).Copy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Feuille.Range("A" & Ligne_Fichier_Source).EntireRow.Copy

[pijaku]

Bonjour,

1- déclare bien toutes les variables...
2- remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not (Not Tablo) Then

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If IsArray(Tablo) Then
    MsgBox "Il y a : " & UBound(Tablo) & "Fichiers trouvés."