Discussion :

[stagmaj]

Bonjour à Tous,
Je suis novice en VBA et je dois réaliser un tableau de synthèse à partir de X feuilles bilan situées dans le même répertoire Windows. Je pense savoir comment ouvrir chaque fichier tour à tour mais je ne sais pas comment réussir à copier dans le fichier ouvert les cellules qui m’intéressent (qui sont les mêmes dans chaque fichier, P1, Q4, T8,…) pour pouvoir les coller dans une colonne dédié à ce fichier dans la feuille de synthèse contenant la macro… Quelqu’un pourrais m’orienter SVP ?
PS : j’ai aussi vu que dans beaucoup de code il était question d’effacer la zone d’écriture, est-ce primordial ?
voici le code :

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
Option Explicit
 
Dim F(), Col
Dim Chemin, NomFichier, wb2, Fdép
 
 
Sub SyntheseDesOutils()
 
    Application.ScreenUpdating = False
    Application.EnableEvents = False
 
 
 
    Set Fdép = ActiveSheet
    Chemin = ThisWorkbook.Path & "\"
    NomFichier = Dir(Chemin & "*.xls*") 'ouvre tous les fichiers .xls*
   With Fdép
        Do While Len(NomFichier) > 0
            If NomFichier <> ThisWorkbook.Name Then
                Set wb2 = Workbooks.Open(Chemin & NomFichier) 'Ouvre le fichier
           End If
 
            Col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
            .Range("B:B").Copy .Range(.Columns(Col), .Columns(Col + 1))
 
            wb2.Close False
 
 
 
        Loop
    End With
 
End Sub

Donc pour l'instant je n'arrive pas à faire fonctionner ma boucle (Erreur 424 objet non defini), la ligne wb2.Close False en semble être la raison, aussi je n'ai pas mis le code pour copier les données que je veux car je n'arrive pas à le trouver...



Merci d'avance à ceux qui prendront le temps de me lire

[SfJ5Rpw8]

Bonjour,

à première vue tu conditionne (avec ton if ...) l'ouverture de ton classeur mais pas sa fermeture ....

déplace ton end if de façon à conditionner toutes les actions sur ton classeur wb2

puis pourquoi ouvrir ce fichier est ne rien en faire ensuite ?

[Marc-L]

C'est déjà ce que lui ai répondu sur un autre forum … Cross-posting sauvage !

[stagmaj]

Merci de vos réponse ! Désolé, le "cross-posting" était simplement pour maximiser mes chances car je bloque vraiment sur cette macro et ça me prends un temps fou, je ne voulais pas offenser les forumeurs !

J'ai déplacé le End if et mon fichier, la macro s’exécute mais rien à l’intérieur de la boucle ne fonctionne.. Je vous mets le fichier au cas ou ça pourrait aider ! http://cjoint.com/?DFklRIKmDUW

Pour ce qui est d'ouvrir et de fermer les fichiers, je ne le fais pas pour rien mais pour ensuite faire des c/c même si je ne connais pas encore la formule, un problème à la fin !

Edit: Après plusieurs test, aucune ligne de code placée dans la boucle ne s’exécute...

[SfJ5Rpw8]

revoit l'aide en ligne de la fonction Dir...