Macro regrouper Excel

**Ally1309** · 08/11/2018, 18h31

Bonjour a tous,

J'ai le code ci dessous qui me sert a regrouper plusieurs fichiers excel dans un seul fichier avec 1 par Onglet. Toutefois je souhaiterai nommer l'onglet cible avec le nom du fichier et pas en aléatoire comme c'est le cas dans ce code.
Je suis sur que les fichiers a importer n'ont pas le même nom, donc pas de risque de plantage a ce niveau.

En vous remerciant 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub test()
 
'On crée une variable 'wbFusion' de type Classeur Excel
Dim wbFusion As Workbook
'On l'associe au classeur à partir duquel tu lances la macro
Set wbFusion = ThisWorkbook
 
'On crée une variable wbCible qui va correspondre tour à tour aux classeur à importer
Dim wbCible As Workbook
Dim shCible As Worksheet
 
'Afin de lui affecter des fichiers, l'utilisateur va les sélectionner via une boîte de dialogue
'NOTA : le With XXXXXXXXX évite de répéter plein de fois XXXXXXXXX lorsque l'on parle de la même chose ;)
With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Choisissez le(s) classeur(s) à importer"
    .Filters.Add "Classeur Excel", "*.xls,*.xls?" 'on filtre par tous les fichiers .xls et xls? avec '?' signifiant "1 caractère"
    .ButtonName = "Importer ce(s) classeur(s)"
    .AllowMultiSelect = True 'on autorise la sélection multiple
    .Show 'on affiche la fenêtre, on attend le retour de l'utilisateur pour continuer
 
    'on a réglé la boîte de dialogue, maintenant il faut traiter les données de l'utilisateur :
    'si l'utilisateur n'a pas sélectionné de fichier, on met un message d'erreur
    If .SelectedItems.Count = 0 Then
        MsgBox "Veuillez sélectionner au moins un fichier", vbExclamation, "Erreur"
    'Sinon, on traite :
    Else
        For i = 1 To .SelectedItems.Count
            'On ouvre chaque classeur un par un
            Set wbCible = Workbooks.Open(.SelectedItems(i))
            CouleurOnglet = RGB(Rnd * 255, Rnd * 255, Rnd * 255) 'on va mettre toutes les pages de ce classeur importées avec l'onglet de la même couleur
            CompteurClasseur = CompteurClasseur + 1 'on incrémente un compteur, facultatif
            'Pour chaque feuille du wbCible :
            For Each shCible In wbCible.Sheets
                shCible.Tab.Color = CouleurOnglet
                shCible.Name = Int(Rnd * 99999) 'nom aléatoire pour être certain qu'il n'y ait pas de doublon plantant la macro
                shCible.Copy after:=wbFusion.Sheets(wbFusion.Sheets.Count) 'on la copie à la fin de wbFusion
                CompteurFeuille = CompteurFeuille + 1 'on incrémente un compteur, facultatif
            Next shCible
            'On ferme le classeur sans enregistrer (on a changé le nom des pages avant copie)
            wbCible.Close SaveChanges:=False
        'On passe au classeur suivant
        Next i
        'Facultatif, à l'aide des compteurs, on indique à l'utilisateur que tout s'est bien passé
        MsgBox CompteurFeuille & " feuilles ont bien été importées, provenant de " & CompteurClasseur & " classeurs Excel.", vbInformation, "Import réussi"
    End If
End With
 
End Sub

**Philippe Tulliez** · 08/11/2018, 18h41

Bonjour,

Je te conseille vivement de scinder ta procédure en prévoyant une fonction ou une procédure Sub qui ne fera que la copie des données d'une liste source vers une plage cible.
Cette fonction aura par exemple trois arguments. Les deux premiers de type Range ou ListObject et le troisième optionnel et de type Boolean indiquant si la cible commence au début ou doit se placer à la suite des autres données déjà présentes.

Ainsi tu pourra faire l'équivalent d'un copier/coller qu'elle que soit l'endroit où est la source et celui où se trouve la cible.

**Ally1309** · 08/11/2018, 19h19

Bonsoir Philippe. merci pour ce retour. mais étant novice en Vba, je le vois mal recréer tout le code. surtout que celui la fonctionne, au détail du nom de l'onglet que je souhaite modifier.

**eriiic** · 08/11/2018, 19h28

Bonjour,

pour répondre à ta question, par exemple :

Code :

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

shCible.Name = wbCible & "_" & CompteurFeuille

ajouter l'initialisation du compteur de feuille si tu veux qu'elle recommence à 1 pour chaque classeur :

Code :

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

1
2
CompteurFeuille=1 ' init ajoutée
For Each shCible In wbCible.Sheets

eric

PS : je viens de voir que CompteurFeuille sert au message final, utilise une autre variable si tu le conserves.

**Ally1309** · 09/11/2018, 09h30

Bonjour Eric.

Merci pour ton retour.
Je ne souhaites pas de d'ajout d'un numéro dans le nom de l'onglet mais conserver uniquement le nom du fichier importé (fichier client)

J'ai essayé shCible.Name = wbCible mais ça ne fonctionne pas

En modifiant le code suite a ton indication

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
Sub test()
 
'On crée une variable 'wbFusion' de type Classeur Excel
Dim wbFusion As Workbook
'On l'associe au classeur à partir duquel tu lances la macro
Set wbFusion = ThisWorkbook
 
'On crée une variable wbCible qui va correspondre tour à tour aux classeur à importer
Dim wbCible As Workbook
Dim shCible As Worksheet
 
'Afin de lui affecter des fichiers, l'utilisateur va les sélectionner via une boîte de dialogue
'NOTA : le With XXXXXXXXX évite de répéter plein de fois XXXXXXXXX lorsque l'on parle de la même chose ;)
With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Choisissez le(s) classeur(s) à importer"
    .Filters.Add "Classeur Excel", "*.xls,*.xls?,*xlsx" 'on filtre par tous les fichiers .xls et xls? avec '?' signifiant "1 caractère"
    .ButtonName = "Importer ce(s) classeur(s)"
    .AllowMultiSelect = True 'on autorise la sélection multiple
    .Show 'on affiche la fenêtre, on attend le retour de l'utilisateur pour continuer
 
    'on a réglé la boîte de dialogue, maintenant il faut traiter les données de l'utilisateur :
    'si l'utilisateur n'a pas sélectionné de fichier, on met un message d'erreur
    If .SelectedItems.Count = 0 Then
        MsgBox "Veuillez sélectionner au moins un fichier", vbExclamation, "Erreur"
    'Sinon, on traite :
    Else
        For i = 1 To .SelectedItems.Count
            'On ouvre chaque classeur un par un
            Set wbCible = Workbooks.Open(.SelectedItems(i))
            CouleurOnglet = RGB(Rnd * 255, Rnd * 255, Rnd * 255) 'on va mettre toutes les pages de ce classeur importées avec l'onglet de la même couleur
            CompteurClasseur = CompteurClasseur + 1 'on incrémente un compteur, facultatif
            CompteurFeuille = 1 'xxx
 
            CompteurTest = 1 'xxx
            'Pour chaque feuille du wbCible :
            For Each shCible In wbCible.Sheets
                shCible.Tab.Color = CouleurOnglet
                shCible.Name = wbCible & "_" & CompteurFeuille  'nom de la feuille
                shCible.Copy after:=wbFusion.Sheets(wbFusion.Sheets.Count) 'on la copie à la fin de wbFusion
                CompteurFeuille = CompteurFeuille + 1 'on incrémente un compteur, facultatif
                CompteurTest = CompteurTest + 1 'xxx
 
            Next shCible
            'On ferme le classeur sans enregistrer (on a changé le nom des pages avant copie)
            wbCible.Close SaveChanges:=False
        'On passe au classeur suivant
        Next i
        'Facultatif, à l'aide des compteurs, on indique à l'utilisateur que tout s'est bien passé
        MsgBox CompteurTest & " feuilles ont bien été importées, provenant de " & CompteurClasseur & " classeurs Excel.", vbInformation, "Import réussi"
    End If
End With
 
End Sub

J'ai le message d'erreur suivant:

Erreur d'execution '438':
Propriété ou méthode non gérée par cet objet

En te remerciant pour ton retour

**Philippe Tulliez** · 09/11/2018, 10h06

Bonjour,

J'ai essayé

Code :

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

shCible.Name = wbCible

mais ne fonctionne pas

Plutôt que ne pas fonctionner, tu as certainement dû avoir un message d'erreur.
On ne mélange pas des propriétés et des objets en plus la propriété d'un objet feuille avec l'objet Classeur.

Si tu veux conserver le nom du classeur ce sera (si je me réfère au préfixe de tes variables objets) wbCible.Name que tu renvoies à une variable de type String comme par exemple

Code :

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

wbName = wbCible.Name

où wbName est une variable typée String

**eriiic** · 09/11/2018, 10h20

Bonjour,

si tu importes plusieurs feuilles comment veux-tu leur donner le même nom ?
Impossible en plus d'être illogique.
eric

**Ally1309** · 09/11/2018, 14h10

Envoyé par eriiic

Bonjour,

si tu importes plusieurs feuilles comment veux-tu leur donner le même nom ?
Impossible en plus d'être illogique.
eric

Bonjour Eric,

J'ai du mal m'exprimer. Je souhaite nommer l'onglet cible avec le nom du fichier d'origine.

Je vais essayer les dernières modifications envoyés sur la discussion et je vous tiens au courant

Merci

**Ally1309** · 09/11/2018, 14h41

Envoyé par Philippe Tulliez

Bonjour,

Plutôt que ne pas fonctionner, tu as certainement dû avoir un message d'erreur.
On ne mélange pas des propriétés et des objets en plus la propriété d'un objet feuille avec l'objet Classeur.

Si tu veux conserver le nom du classeur ce sera (si je me réfère au préfixe de tes variables objets) wbCible.Name que tu renvoies à une variable de type String comme par exemple

Code :

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