Répeter la même macro pour d'autres fichiers excel

**axlle6** · 22/07/2020, 09h50

Bonjour,
J'ai fait une macro qui fonctionne pour un fichier(2017_maquette_DRH_macro(27).xlsx), et j'aimerais qu'il fasse la même chose pour 4 autres fichiers (2017_maquette_DT_macro(27).xlsx. / 2017_maquette_DF_macro(27).xlsx / ... ) qui se trouvent également dans le dossier document de travail. J'ai vu qu'il y a des fonctions boucle mais je n'arrive pas trop à les utiliser.

Ma macro:

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
Sub Ouvre()
Dim wb As Workbook
Dim ws As Worksheet
 
Set wb = Workbooks.Open("C:\Users\6881EW\Desktop\Documents de travail\2017_maquette_DRH_macro(27).xlsx")
Sheets("Bac à sable en ligne").Select
ChDir "C:\Users\6881EW\Desktop\Envoi"
   ActiveWorkbook.SaveAs Filename:="2017_maquette_DRH_macro(27)_envoi.xlsx"
Sheets("Analyse").Select
    Range("A1:AK85").Select
    Selection.Copy
 
    Sheets("Analyse").Select
    Range("A1:AK85").Select
    Selection.PasteSpecial Paste:=xlPasteValues
 
    Sheets("Bac à sable en ligne").Select
    Range("A1:U100").Select
    Selection.Copy
 
    Sheets("Bac à sable en ligne").Select
    Range("A1:U100").Select
    Selection.PasteSpecial Paste:=xlPasteValues
 
 
    Application.DisplayAlerts = False
    Sheets("Modèle").Delete
    Sheets("ETP 2018").Delete
    Sheets("ETP 2019").Delete
    Sheets("Table de correspondance").Delete
    Application.DisplayAlerts = True
 
    Sheets("Analyse").Activate
ActiveWorkbook.Save
 
Workbooks("2017_maquette_DRH_macro(27)_envoi.xlsx").Close SaveChanges:=True
 
End Sub

**Menhir** · 22/07/2020, 10h39

Une solution simple, sans boucle.
J'ai aussi un peu arrangé ton 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
Sub Ouvres()
    Call Ouvre("DRH")
    Call Ouvre("DT")
    Call Ouvre("DF")
End Sub
 
Sub Ouvre(Dep As String)
   Dim WBSource As Workbook
 
   Set WBSource = Workbooks.Open("C:\Users\6881EW\Desktop\Documents de travail\2017_maquette_" & Dep & "DRH_macro(27).xlsx")
   WSSource.SaveAs Filename:="C:\Users\6881EW\Desktop\Envoi\" & WSSource.Name
 
   Sheets("Analyse").Range("A1:AK85").Copy
   Sheets("Analyse").Range("A1:AK85").PasteSpecial Paste:=xlPasteValues
 
   Sheets("Bac à sable en ligne").Range("A1:U100").Copy
   Sheets("Bac à sable en ligne").Range("A1:U100").PasteSpecial Paste:=xlPasteValues
 
   Application.DisplayAlerts = False
   Sheets("Modèle").Delete
   Sheets("ETP 2018").Delete
   Sheets("ETP 2019").Delete
   Sheets("Table de correspondance").Delete
   Application.DisplayAlerts = True
 
   Sheets("Analyse").Activate
   WBSource.Close SaveChanges:=True
End Sub

**axlle6** · 22/07/2020, 13h29

Merci pour votre réponse.
J'ai essayé mais ca ne fonctionne pas aux lignes 10/11. Le chemin du workbook est C:\Users\6881EW\Desktop\Documents de travail ; je pense qu'il faut enlever "\2017_maquette" et peut être le rajouter dans les "" après dep ?
Aussi, est ce qu'il faut rajouter les lignes 10/11 avec autant de fichiers que j'ai à traiter?

**Menhir** · 22/07/2020, 18h29

Envoyé par axlle6

J'ai essayé mais ca ne fonctionne pas aux lignes 10/11. Le chemin du workbook est C:\Users\6881EW\Desktop\Documents de travail ; je pense qu'il faut enlever "\2017_maquette" et peut être le rajouter dans les "" après dep ?

Déjà, "ca ne fonctionne pas" sans explication, ça ne n'aide pas à comprendre la nature du problème.

Ensuite, je ne comprends pas pourquoi tu poses cette question sur le forum puisqu'il suffirait de faire le test sur ton poste pour avoir la réponse.

Enfin, il est impossible de dire si les chemins et non de fichiers correspondent à ceux de ton poste.
La seule chose que je peux te dire, c'est que ça correspond au code que tu as présenté.

Est-ce que, au moins, tu as compris que tu devais lancer la macro "Ouvres" et non pas "Ouvre".

Aussi, est ce qu'il faut rajouter les lignes 10/11 avec autant de fichiers que j'ai à traiter?

Non puisque c'est la première macro qui enchaine le processus pour chacun des fichiers.
Encore faut-il lancer la bonne macro.

**axlle6** · 27/07/2020, 09h18

il y a un message d'erreur "objet requis" qui fait référence à la ligne 11

Code :

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

  WSSource.SaveAs Filename:="C:\Users\6881EW\Desktop\Envoi\" & WSSource.Name

**Patrice740** · 27/07/2020, 09h47

Bonjour,

Menhir n'est pas connecté ....

Remplaces WSSource par WBSource (2 fois sur la ligne)

**axlle6** · 27/07/2020, 15h29

Merci beaucoup cela fonctionne!

Quelle fonction faudrait il utiliser si je veux avoir le même résultat mais en utilisant une boucle?
par exemple, qui ouvre tous les fichiers "2017_maquette_DT_macro(27).xlsx", "2017_maquette_DF_macro(27).xlsx",..., de mon dossier "Documents de travail" et qui suit les instructions que l'on a dans notre macro actuelle?

**Menhir** · 27/07/2020, 15h54

Envoyé par axlle6

Quelle fonction faudrait il utiliser si je veux avoir le même résultat mais en utilisant une boucle?
par exemple, qui ouvre tous les fichiers "2017_maquette_DT_macro(27).xlsx", "2017_maquette_DF_macro(27).xlsx",..., de mon dossier "Documents de travail" et qui suit les instructions que l'on a dans notre macro actuelle?

Il faudrait utiliser une boucle While avec la fonction Dir().
Lire ça :
https://docs.microsoft.com/fr-fr/off...p/dir-function
https://docs.microsoft.com/fr-fr/off...wend-statement

Un exemple d'utilisation : https://excel.developpez.com/faq/?pa...BoucleFichiers
Cet exemple utilise une boucle Do While...Loop mais pour ce cas, ça donne la même chose avec une boucle While...WEnd.

**axlle6** · 27/07/2020, 16h49

J'ai essayé de faire un code en m'inspirant du post https://excel.developpez.com/faq/?pa...BoucleFichiers et qui donne :

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
Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
 
 
    Chemin = "C:\Users\6881EW\Desktop\Documents de travail"
 
    Fichier = Dir(Chemin & "2017_maquette_DT_macro(27).xls")
    Fichier = Dir(Chemin & "2017_maquette_DSI_macro(27).xls")
    Fichier = Dir(Chemin & "2017_maquette_DRH_macro(27).xls")
    Fichier = Dir(Chemin & "2017_maquette_DG_macro(27).xls")
    Fichier = Dir(Chemin & "2017_maquette_DF_macro(27).xls")
 
    While Len(Fichier) < 6
 
     Dim WBSource As Workbook
 
   Sheets("Analyse").Range("A1:AK85").Copy
   Sheets("Analyse").Range("A1:AK85").PasteSpecial Paste:=xlPasteValues
 
   Sheets("Bac à sable en ligne").Range("A1:U100").Copy
   Sheets("Bac à sable en ligne").Range("A1:U100").PasteSpecial Paste:=xlPasteValues
 
   Application.DisplayAlerts = False
   Sheets("Modèle").Delete
   Sheets("ETP 2018").Delete
   Sheets("ETP 2019").Delete
   Sheets("Table de correspondance").Delete
   Application.DisplayAlerts = True
 
   Sheets("Analyse").Activate
   WBSource.Close SaveChanges:=True
 
    Wend
End Sub

J'ai plusieurs questions:
- le message d'erreur renvoie : L'indice n'appartient pas à la sélection, par rapport à cette ligne (et les suivantes car j'ai essayé en supprimant cette ligne) "Sheets("Analyse").Range("A1:AK85").Copy"
- J'ai rajouté le Dim WSBsource comme dans le code précédent mais je ne suis pas sûre qu'il soit obligatoire; mais si je l'enlève je ne sais pas quoi mettre à côté du Close Save Changes=True avant le Wend pour sauvegarder.

**Pierre Fauconnier** · 27/07/2020, 17h46

Salut.

Tu dois inclure la recherche du fichier dans la boucle, car avec le code que tu donnes, Fichier contiendra uniquement le dernier nom. De plus, si tu connais les noms des fichiers, tu n'as pas besoin du dir, le dir servant justement à retrouver les noms durant la boucle. Dans une boucle, le dir s'utilisera avec les jokers (* ou ?).

Si tu connais les noms de fichiers et que tu veux les utiliser au sein d'une boucle, tu pourrais utiliser un tableau. A ce stade, je ne comprends pas bien pourquoi tu veux utiliser une boucle.

**Menhir** · 27/07/2020, 17h46

Il y a plusieurs aberrations dans ton code.

Déjà, à la base, je ne comprends pas pourquoi tu veux faire une boucle si c'est pour indiquer chaque nom de fichier.

Si tu veux faire ça, autant en revenir à la solution que je proposais au départ.
Le seul intérêt de la boucle est d'aller chercher elle-même les noms de fichiers.

Code :

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

    Fichier = Dir(Chemin & "2017_maquette_DT_macro(27).xls")

Cette ligne a pour unique intérêt de vérifier si le fichier "2017_maquette_DT_macro(27).xls" existe.
Si on sait déjà qu'il existe et qu'on souhaite mettre son nom et son chemin dans une variable, il suffit d'écrire :
Fichier = Chemin & "2017_maquette_DT_macro(27).xls"

Code :

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

1
2
3
4
5
    Fichier = Dir(Chemin & "2017_maquette_DT_macro(27).xls")
    Fichier = Dir(Chemin & "2017_maquette_DSI_macro(27).xls")
    Fichier = Dir(Chemin & "2017_maquette_DRH_macro(27).xls")
    Fichier = Dir(Chemin & "2017_maquette_DG_macro(27).xls")
    Fichier = Dir(Chemin & "2017_maquette_DF_macro(27).xls")

L'action de la ligne 1 de ce code sera effacée par l'action de la ligne 2 qui sera elle-même effacée par l'action de la ligne 3, etc.

Si tu mets une valeur dans une variable puis que, dans cette même variable, tu mets une autre valeur sans avoir utilisé la première, alors la première assignation sera complètement inutile puisqu'elle n'aura jamais été traitée avant d'être effacée par la seconde.

Code :

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

    While Len(Fichier) < 6

La fonction Len() ne donne pas le nombre d'éléments contenu dans une variable (d'autant plus qu'un simple variable ne peut contenir qu'un élément) mais le nombre de caractère contenu dans la variable.

Dans l'exemple, cette fonction permet de déterminer à quel moment tous les fichiers du répertoire ont été scrutés.
Quand il n'y a plus de fichiers à scruter, la fonction Dir() sans paramètre renvoie une chaine vide (Len = 0) et donc de mettre fin au traitement en sortant de la boucle.

Code :

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

1
2
   While Len(Fichier) < 6
      Dim WBSource As Workbook

On ne met JAMAIS une déclaration de variable à l'intérieur d'une boucle.
Une déclaration ne doit se faire qu'une seule fois pour une variable.

On pourrait ajouter à ça que ton processus n'ouvre pas les fichiers : tu as oublié le Workbooks.Open.

Corrige déjà ça, on verra le reste après.

Envoyé par Pierre Fauconnier

A ce stade, je ne comprends pas bien pourquoi tu veux utiliser une boucle.

Je me suis aussi interrogé sur l'insistance à aller dans ce sens.
L'hypothèse qui me semble la plus crédible est qu'il s'agit d'un exercice scolaire avec élément boucle imposé.

**Pierre Fauconnier** · 27/07/2020, 18h09

Tu pourrais t'inspirer de ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
  Dim Filename As String
  Dim Path As String
 
  Path = "C:\Users\6881EW\Desktop\Documents de travail\" ' Ne pas oublier le \ à la fin
  Filename = Dir(Path & "2017_maquette_*_macro(27).xls")
  Do While Filename <> ""
    Workbooks.Open (Path & Filename)
    ...
    ...
    Filename = Dir()
  Loop
End Sub

**axlle6** · 28/07/2020, 10h41

A ce stade, je ne comprends pas bien pourquoi tu veux utiliser une boucle.

Envoyé par Menhir

Je me suis aussi interrogé sur l'insistance à aller dans ce sens.
L'hypothèse qui me semble la plus crédible est qu'il s'agit d'un exercice scolaire avec élément boucle imposé.

Je souhaiterais faire une boucle pour ne pas avoir à lister les fichiers mais je pensais qu'il fallait le faire par rapport au code que vous m'aviez envoyé (ce n'est pas un exercice scolaire)

**Menhir** · 28/07/2020, 10h59

Envoyé par axlle6

Je souhaiterais faire une boucle pour ne pas avoir à lister les fichiers

Dans ce cas, pourquoi avoir listé les fichiers dans la code de ton message #9 ?

**axlle6** · 28/07/2020, 11h00

Tu pourrais t'inspirer de ceci:

ce qui donnerait :

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
Sub Test()
  Dim Filename As String
  Dim Path As String
 
 
  Path = "C:\Users\6881EW\Desktop\Documents de travail\"
  Filename = Dir(Path & "2017_maquette_*_macro(27).xls")
 
  Do While Filename <> ""
    Workbooks.Open (Path & Filename)
 
Sheets("Bac à sable en ligne").Select
ChDir "C:\Users\6881EW\Desktop\Envoi"
   ActiveWorkbook.SaveAs Filename:="2017_maquette_DRH_macro(27)_envoi.xlsx"
Sheets("Analyse").Select
    Range("A1:AK85").Select
    Selection.Copy
 
    Sheets("Analyse").Select
    Range("A1:AK85").Select
    Selection.PasteSpecial Paste:=xlPasteValues
 
    Sheets("Bac à sable en ligne").Select
    Range("A1:U100").Select
    Selection.Copy
 
    Sheets("Bac à sable en ligne").Select
    Range("A1:U100").Select
    Selection.PasteSpecial Paste:=xlPasteValues
 
 
    Application.DisplayAlerts = False
    Sheets("Modèle").Delete
    Sheets("ETP 2018").Delete
    Sheets("ETP 2019").Delete
    Sheets("Table de correspondance").Delete
    Application.DisplayAlerts = True
 
 
    Sheets("Analyse").Activate
 
    ActiveWorkbook.Save
    Filename = Dir()
  Loop
End Sub

Désolé s'il y a des aberrations dans mon code, j'essaye d'apprendre
Cependant quand je veux exécuter le code il n'y a rien qui se lance

**axlle6** · 28/07/2020, 11h02

Envoyé par Menhir

Dans ce cas, pourquoi avoir listé les fichiers dans la code de ton message #9 ?

car par rapport au lien que vous m'aviez envoyé (

Un exemple d'utilisation : https://excel.developpez.com/faq/?pa...BoucleFichiers

) j'avais compris qu'il fallait les lister, maintenant j'ai compris que ce n'est pas la peine

**Pierre Fauconnier** · 28/07/2020, 11h20

Envoyé par axlle6

[...]

Désolé s'il y a des aberrations dans mon code, j'essaye d'apprendre
Cependant quand je veux exécuter le code il n'y a rien qui se lance

Ca veut dire quoi "Rien qui se lance"? Le code que j'ai proposé recherche des fichiers dont le nom correspond à ceux que tu as donnés. Es-tu sûre de travailler avec des xls? Travailles-tu avec des xlsx? Si oui, tu dois adapter ma ligne de code.

Cela dit, si tu dois tester les 4 fichiers dont tu connais les noms au départ, alors tu n'as pas besoin de boucle.

A ce stade, je ne comprends plus trop ce que tu cherches à réaliser. Un conseil cependant: Découpe ton code en "petites procédures" plutôt que de tout mettre dans la même. Ca te permettra d'isoler les problématiques, de les tester indépendamment du reste, puis d'assembler le tout.

**Menhir** · 28/07/2020, 13h56

Envoyé par axlle6

Cependant quand je veux exécuter le code il n'y a rien qui se lance

Sans doute parce que le joker "*" ne peut pas se mettre à l'intérieur du nom de fichier. Il ne peut se mettre qu'à la fin.
Par exemple "2017_maquette_*.xls".

**Pierre Fauconnier** · 28/07/2020, 14h09

Salut Menhir

Envoyé par Menhir

Sans doute parce que le joker "*" ne peut pas se mettre à l'intérieur du nom de fichier. Il ne peut se mettre qu'à la fin.
Par exemple "2017_maquette_*.xls".

Les jokers * et ? se mettent où l'on veut dans le pattern. D'ailleurs, dans l'exemple que tu donnes, il n'est pas "à la fin" car l'extension fait partie du nom ^^

Nom : 2020-07-28_142425.png
Affichages : 126
Taille : 27,1 Ko

Nom : 2020-07-28_142425.png
Affichages : 126
Taille : 27,1 Ko

**axlle6** · 28/07/2020, 15h30

Envoyé par Pierre Fauconnier

Cela dit, si tu dois tester les 4 fichiers dont tu connais les noms au départ, alors tu n'as pas besoin de boucle.

Je connais le nom des fichiers mais je fais cette macro pour plus tard quand j'aurai davantage de fichiers dans le dossier, et je souhaiterais que la macro ouvre tous les fichiers (sans les énumérer un à un) de mon dossier "document de travail" et que cette macro fonctionne pour tous les fichiers du dossier.

Cependant quand je veux exécuter le code il n'y a rien qui se lance

quand je fais exécuter la macro, rien ne se passe(ni message d'erreur )