Bonjour,
J'ai réalisé un mega programme (comme toujours ). Le problème est que je veux que ce fichier reste identique à l'originale (pas question de sauver quoi que ce soit). Alors l'idée est de créer une macro (au travers d'un bouton) qui permet à l’utilisateur de sauver son travail. En gros, c'est une macro qui doit créer un nouveau classeur, avec 3 feuilles respectivement nommées Consommation, Resume et Comparaison, et doit prendre dans les feuilles qui portent les mêmes noms et les calquer respectivement dans les feuilles du nouveau classeur. L'utilisateur aura la liberté de l'enregistré où il vaudra.
J'ai trouvé un code, mais qui ne repond pas vraiment à ce que je vais :
Quelqu'un sait m'aider?
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 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet 'On créer l'objet Excel Set xlApp = CreateObject("Excel.Application") 'On défini le nombre d'onglets (ici 5) xlApp.SheetsInNewWorkbook = 5 'On ajoute un classeur Set xlBook = xlApp.Workbooks.Add 'On donne un nom au classeur xlBook.SaveAs ("Mon Classeur.xls") 'On rend le classeur visible xlApp.Visible = True 'On créer l'objet onglet dans le nouveau classeur créé Set xlSheet = xlBook.Worksheets(1) 'On affecte un nom aux l'onglets xlSheet.Name = "Janvier" 'on libère l'objet onglet pour pouvoir en créer un nouveau ... etc Set xlSheet = Nothing ' ' Set xlSheet = xlBook.Worksheets(2) xlSheet.Name = "Février" ' '....... On donne un nom à chaque onglets ' ' 'On remet la propriété de l'application à 3 (par défaut) xlApp.SheetsInNewWorkbook = 3 'On ferme l'application xlApp.Quit
Partager