Discussion :

[Alexbreizhst]

Bonsoir à toutes la communauté Développez,

A travers les différents postes de ce site j'ai réussi à monter un code me permettant dans un classeur (Classeur 1) d'aller chercher des Feuilles dans d'autres classeurs et de les copier sur mon classeur (Classeur 1) en renommant chacune de ces feuilles par leur nom de Classeur.

Le code bloque lorsque j'appelle le

Code :

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

Workbooks.Open monFichier

.
Même en changeant la syntaxe et en mettant

Code :

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

Workbooks.Open Filename:=monFichier

ou en utilisant la fonction

Code :

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

Application.GetOpenFilename(monFichier, *.xlsm")

cela ne fonctionne pas ; Excel ne trouve pas le fichier dans le Chemin donné alors que ce fichier existe bel et bien.

Vous trouverez ci-dessous le code complet:

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
Sub listerLesFichiers()
 
Dim Chemin As String
Dim Repertoire As String
Dim monFichier As String
Dim n As Integer
Dim i As Integer
Dim j As Integer
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Repertoire = Dir("C:\BAUME\Pointage\*.xlsm")
 
While Repertoire <> ""
n = n + 1
Repertoire = Dir()
Wend
MsgBox "Nombre de Fichiers : " & n
 
Chemin = "C:\BAUME\Pointage\"
monFichier = Dir(Chemin & "*.xlsm") ' La fonction Dir(chemin, mode) permet de parcourir un dossier et vbNormal permet de ne récupérer que des fichiers,
 
    Do While monFichier <> ""
        MsgBox monFichier 
 
        Workbooks.Open (monFichier)
        Workbooks(monFichier).Activate
 
    For i = 1 To Worksheets.Count
        Workbooks(monFichier).Activate
        Sheets("Feuil" & i).Select
        Sheets("Feuil" & i).Copy After:=Workbooks("Classeur de pointage.xlsm").Sheets(i)
        Workbooks("Classeur de pointage.xlsm").Activate
        Sheets(i + 1).Name = "monFichier"
 
    Next i
 
        ' Permet de passer au fichier suivant
        monFichier = Dir
 
    Loop
 
Application.ScreenUpdating = True
Application.DisplayAlerts = True
 
End Sub

J'espère que mes explications sont claires
Excel me retourne une erreur 1004.

Auriez-vous une idée du problème ?

Cordialement,

Alexbreizhst

[Nekko]

Bonjour Alexbreizhst
Je pense que le problème vient de cette ligne de code

Code :

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

1
2
Chemin = "C:\BAUME\Pointage\"
monFichier = Dir(Chemin & "*.xlsm")

tu n'as pas de nom de fichier à ouvrir => tu ouvres *.xlsm, ce qui n'a pas de sens pour Excel. Dans ta concaténation, il faut que tu boucles sur le nom de chacun des fichiers qui est dans le répertoire

Si tu te mets en mode débuggage : tu cliques dans la colonne grise à gauche de ton code, tu verras apparaitre un point rouge. Ensuite tu lances ton programme qui s'arrêtera au niveau du point rouge. En appuyant sur F8, tu passeras ton programme ligne par ligne et tu pourras espionner tes variables en passant la souris dessus. Tu verras dans ton code, au niveau de "monfichier", ce que peut lire Excel

Nekko

[unparia]

Bonjour
Si ceci ne "marche" pas :

Code :

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

1
2
Chemin = "C:\BAUME\Pointage\"
monFichier = Dir(Chemin & "*.xlsm")

c'est qu'alors :
- soit le dossier C:\BAUME\Pointage\ ne contient aucun fichier d'extension xlsm
- soit tous les fichiers d'extension xlsm de ce dossier ont été dotés d'un attribut à préciser.

EDIT : et ton erreur ne vient pas de ces deux lignes, mais de celle-ci -->>

Code :

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

Workbooks.Open monFichier

monFichier n'est pas un chemin complet, mais uniquement le nom du fichier (la fonction Dir retourne uniquement le nom)
-->> A corriger --->>

Code :

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

Workbooks.Open Chemin & monFichier

[Menhir]

Le code bloque lorsque j'appelle le

Code :

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

Workbooks.Open monFichier

Excel ne trouve pas le fichier dans le Chemin donné alors que ce fichier existe bel et bien.

Dicton de développeur : le diable est dans la variable.
Premier réflexe à avoir : regarder ce que contient la variable.

Je serais prêt à mettre une pièce que la variable contient un nom de fichier sans chemin, ce qui explique que Open ne le trouve pas.

[unparia]

Bonjour Menhir

Je serais prêt à mettre une pièce que la variable contient un nom de fichier sans chemin

Tu peux parier sans problème. Nous sommes deux à le faire
Amitiés

[Alexbreizhst]

Bonjour à tous,

Merci tout d'abord d'avoir pris le temps de regarder mon code et d'avoir chercher mon erreur.

Je retiens d'ores et déjà le dicton développeur Je n'ai pas le réflexe de regarder ce que contient ma variable en utilisant des espions.

Je reviens vers vous quand j'aurais régler le problème !

Merci encore !

[Menhir]

Je n'ai pas le réflexe de regarder ce que contient ma variable en utilisant des espions.

Tu peux aussi, plus simplement, laisser la fenêtre de variables locales ouverte.
Elle le permet de consulter le contenu de toutes les variables.
Ou bien insérer dans ton code un Debug.Print ou une MsgBox (perso, j'ai une préférence pour le premier).

[Alexbreizhst]

C'est bon cela fonctionne impécable !

Je vais penser a utiliser Debug.Print, je fais le test c'est vrai que c'est assez pratique !

Merci ; problème Résolu !