Bonjour à tous,
Je suis un peu novice en matière de macro c'est pourquoi j'ai besoin de votre aide.
Voila ce que je veux que ma macro fasse :
Il y a, dans un premier onglet, un tableau qui récapitule pour le nom de chacun des onglets de mon classeur (59 onglets pour le moment mais il pourra y en avoir plus)
Je veux que ma macro se réfère à se tableau pour copier chacun des onglets suivants (de façon indépendante) pour qu'ils deviennent chacun un fichier différent. En gros, je veux que mes 59 onglets deviennent 59 classeurs et qu'ils s'enregistrent grace à un chemin pré-définit dans mon tableau.
J'ai utilisé la boucle Do While avec un compteur mais la macro ne me copie et enregistre que la premier onglet sur les 59 et je ne comprends pas pourquoi... :/
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 Macro_ventil_onglet_ETPDAC2() Dim Var_Nom_Classeur As String Dim Var_Destination_Fichiers As String Dim Var_Période As String Dim Var_Onglet As String Dim Var_CB As Integer Var_CB = 15 Var_Destination_Fichiers = Cells(7, 1).Value Var_Onglet = Cells(Var_CB, 1).Value Libellé_Fichier = Cells(Var_CB, 4).Value Var_Nom_Classeur = Cells(4, 1).Value Worksheets("Macro").Activate Do While Cells(Var_CB, 1).Value <> "" Sheets(Var_Onglet).Select Sheets(Var_Onglet).Copy ActiveWorkbook.SaveAs Filename:= _ Libellé_Fichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Var_CB = Var_CB + 1 Loop End Sub
Merci par avance de votre aide.
Partager