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
pierre.meb
Excel ne propose pas de méthode pour copier les noms d'un classeur à l'autre (tout du moins à ma connaissance) Voici une mèthode à adapter à ton code VBA
Dans la liste des noms du "classeur1" prendre ceux qui correspondent à la "feuille1" et les recréer dans le "classeur2" (Feuille1) La méthode Workbooks(....).activate n'est pas élégante mais je n'ai pas réussi à créer un nom dans le classeur qui n'est pas actif
Cordialement
Dim R_Nom As Object Dim Nom As String Dim Réf As String
For Each R_Nom In Workbooks("classeur1.xls").Names
Nom = R_Nom.Name Réf = R_Nom.RefersTo If Left(Réf, 7) = "þuil1" Then Workbooks("classeur2.xls").Activate ActiveWorkbook.Names.Add Name:=Nom, RefersTo:=Réf Workbooks("classeur1.xls").Activate End If
Next
Excel ne propose pas de méthode pour copier les noms d'un classeur à l'autre
(tout du moins à ma connaissance)
Voici une mèthode à adapter à ton code VBA
Dans la liste des noms du "classeur1"
prendre ceux qui correspondent à la "feuille1"
et les recréer dans le "classeur2" (Feuille1)
La méthode Workbooks(....).activate n'est pas élégante
mais je n'ai pas réussi à créer un nom dans le classeur qui n'est pas actif
Cordialement
Dim R_Nom As Object
Dim Nom As String
Dim Réf As String
For Each R_Nom In Workbooks("classeur1.xls").Names
Nom = R_Nom.Name
Réf = R_Nom.RefersTo
If Left(Réf, 7) = "þuil1" Then
Workbooks("classeur2.xls").Activate
ActiveWorkbook.Names.Add Name:=Nom, RefersTo:=Réf
Workbooks("classeur1.xls").Activate
End If
Excel ne propose pas de méthode pour copier les noms d'un classeur à l'autre (tout du moins à ma connaissance) Voici une mèthode à adapter à ton code VBA
Dans la liste des noms du "classeur1" prendre ceux qui correspondent à la "feuille1" et les recréer dans le "classeur2" (Feuille1) La méthode Workbooks(....).activate n'est pas élégante mais je n'ai pas réussi à créer un nom dans le classeur qui n'est pas actif
Cordialement
Dim R_Nom As Object Dim Nom As String Dim Réf As String
For Each R_Nom In Workbooks("classeur1.xls").Names
Nom = R_Nom.Name Réf = R_Nom.RefersTo If Left(Réf, 7) = "þuil1" Then Workbooks("classeur2.xls").Activate ActiveWorkbook.Names.Add Name:=Nom, RefersTo:=Réf Workbooks("classeur1.xls").Activate End If
