Discussion :

[Excel_man]

Bonjour,
Je cherche a résoudre un problème qui surviens lorsque que je veux créer un nouveau fichier en copiant tout les onglets du fichier actuel: les noms définit font référence au fichier d'origine!
J'utilise .Sheets.Copy pour générer mes nouvelles feuilles:

Code :

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

1
2
3
    For Each Ws In ThisWorkbook.Worksheets
        ThisWorkbook.Sheets(Ws.Name).Copy after:=Wb.Sheets(1)
    Next Ws

Je viens trouver ce guide : http://excel.developpez.com/faq/?page=Noms sur la gestion des noms définis mais je n'ai rien vu qui corresponde a mon besoin.
Est-il possible de copier la liste des noms d'un fichier a un autres?

Pour info, actuellement je m'en sort en faisant une copie (SaveAs) du fichier source plutôt de d'en créer un nouveau mais j'ai d'autres problèmes sur la suppression d'objet (module,usf ...) sans pouvoir protéger le projet.

[Invité]

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim wb As Workbook
Set wb = Workbooks.Add
For Each Ws In ThisWorkbook.Worksheets
        Ws.Copy after:=wb.Sheets(1)
    Next Ws
End Sub

[Excel_man]

Bonjour,
Merci pour la réponse, mais c'est même méthode de copie de feuille et j'ai donc les mêmes soucis lorsque je duplique mes onglets.

J'ai du manquer de précision dans mon 1er message:

Dans mon fichier d'origine, si je duplique certains onglets, les noms définis au niveau du [classeur] (accessible depuis n'importe quelle feuille) reste intact.
Mais si je déplace mes onglets dans un nouveau fichier (destination), la duplication d'onglet génère en plus du nom définis "générale" et nouveau nom pour chaque onglet dupliqué faisant référence a l'adresse des cellules dans le fichier d'origine.

Je viens d'essayer de dupliquer d'abord dans le fichier d'origine de copié les feuilles ensuite mais c'est pareils aux niveaux des noms définis.
Si qqu'un a une idée?