J'aimerai enregistrer a partir du classeur actif contenant les macros, un
autre classeur avec certains onglets mais sans les macros!!
En plus clair :
De mon classeur, j'ai plein de macros qui me font des calculs et crée des
onglets.
A la fermeture j'aimerai créer un nouveau classeur et sauvegarder les
onglets crée mais sans les macros pour les utilisateurs.
fonctionne plus ou moins mais le classeur sauvegardé contient les liaisons
alors du coup certaines valeurs ne sont pas affichées et pas de mise en forme
non plus.
Et je ne sais faire une selection sur certains onglets seulement??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut à toi
Si tu peux ramener le nom de tes onglets créés dans une feuille appelé "Création" en modifiant tes macros en colonne A par exemple tu peux utiliser ce bout de code :
Nouveau = Workbooks.Add.Name For each c in worksheets("Création").Range("A1", "A" & Sheets("Création").Range("A65535").End(xlup).Row) Workbooks("Classeur Actif.xls").Sheets(c).Cells.Copy Workbooks(Nouveau).Sheets.Add.Cells Workbooks(Nouveau).Activesheet.Name = c Next
Les groupes de 2 lignes :
For each c in worksheets("Création").Range("A1", "A" & Sheets("Création").Range("A65535").End(xlup).Row)
Si tu peux ramener le nom de tes onglets créés dans une feuille appelé
"Création" en modifiant tes macros en colonne A par exemple tu peux utiliser
ce bout de code :
Nouveau = Workbooks.Add.Name
For each c in worksheets("Création").Range("A1", "A" &
Sheets("Création").Range("A65535").End(xlup).Row)
Workbooks("Classeur Actif.xls").Sheets(c).Cells.Copy
Workbooks(Nouveau).Sheets.Add.Cells
Workbooks(Nouveau).Activesheet.Name = c
Next
Les groupes de 2 lignes :
For each c in worksheets("Création").Range("A1", "A" &
Sheets("Création").Range("A65535").End(xlup).Row)
Si tu peux ramener le nom de tes onglets créés dans une feuille appelé "Création" en modifiant tes macros en colonne A par exemple tu peux utiliser ce bout de code :
Nouveau = Workbooks.Add.Name For each c in worksheets("Création").Range("A1", "A" & Sheets("Création").Range("A65535").End(xlup).Row) Workbooks("Classeur Actif.xls").Sheets(c).Cells.Copy Workbooks(Nouveau).Sheets.Add.Cells Workbooks(Nouveau).Activesheet.Name = c Next
Les groupes de 2 lignes :
For each c in worksheets("Création").Range("A1", "A" & Sheets("Création").Range("A65535").End(xlup).Row)
Je vais adapter ton code et le tester. Je reviendrai te dire la suite.
Merci pour ton aide... je vois déja mieux ce qu'il faut faire.
Cdlt
Jed
"FFO" a écrit :
Salut à toi
Si tu peux ramener le nom de tes onglets créés dans une feuille appelé "Création" en modifiant tes macros en colonne A par exemple tu peux utiliser ce bout de code :
Nouveau = Workbooks.Add.Name For each c in worksheets("Création").Range("A1", "A" & Sheets("Création").Range("A65535").End(xlup).Row) Workbooks("Classeur Actif.xls").Sheets(c).Cells.Copy Workbooks(Nouveau).Sheets.Add.Cells Workbooks(Nouveau).Activesheet.Name = c Next
Les groupes de 2 lignes :
For each c in worksheets("Création").Range("A1", "A" & Sheets("Création").Range("A65535").End(xlup).Row)
Je vais adapter ton code et le tester.
Je reviendrai te dire la suite.
Merci pour ton aide... je vois déja mieux ce qu'il faut faire.
Cdlt
Jed
"FFO" a écrit :
Salut à toi
Si tu peux ramener le nom de tes onglets créés dans une feuille appelé
"Création" en modifiant tes macros en colonne A par exemple tu peux utiliser
ce bout de code :
Nouveau = Workbooks.Add.Name
For each c in worksheets("Création").Range("A1", "A" &
Sheets("Création").Range("A65535").End(xlup).Row)
Workbooks("Classeur Actif.xls").Sheets(c).Cells.Copy
Workbooks(Nouveau).Sheets.Add.Cells
Workbooks(Nouveau).Activesheet.Name = c
Next
Les groupes de 2 lignes :
For each c in worksheets("Création").Range("A1", "A" &
Sheets("Création").Range("A65535").End(xlup).Row)
Je vais adapter ton code et le tester. Je reviendrai te dire la suite.
Merci pour ton aide... je vois déja mieux ce qu'il faut faire.
Cdlt
Jed
"FFO" a écrit :
Salut à toi
Si tu peux ramener le nom de tes onglets créés dans une feuille appelé "Création" en modifiant tes macros en colonne A par exemple tu peux utiliser ce bout de code :
Nouveau = Workbooks.Add.Name For each c in worksheets("Création").Range("A1", "A" & Sheets("Création").Range("A65535").End(xlup).Row) Workbooks("Classeur Actif.xls").Sheets(c).Cells.Copy Workbooks(Nouveau).Sheets.Add.Cells Workbooks(Nouveau).Activesheet.Name = c Next
Les groupes de 2 lignes :
For each c in worksheets("Création").Range("A1", "A" & Sheets("Création").Range("A65535").End(xlup).Row)
