JavaScript est désactivé. Pour une meilleure expérience, veuillez activer JavaScript dans votre navigateur avant de continuer.

Répondre à la discussion

Message: <blockquote data-quote="Robert" data-source="post: 1027662" data-attributes="member: 40">Re : Comment exporter les cellules nommées d'un classeur" A"  dans classeur "B"Bonjour le fil, bonjour le forum,Si le nom des onglets des deux classeurs est identique, la macro ci-dessous récupère les plages nommées du classeur Source et les place au même endroit dans le classeur Cible :[CODE]Sub Macro1()Dim cs As Workbook 'déclare la variable cs (Classeur Source)Dim cc As Workbook 'déclare la variable cc (Classeur Cible)Dim pn As Name 'déclare la variable pn (Plage Nommée)Dim o As String 'déclare la variable o (onglet)Dim dest As Range 'déclare la variable dest (cellule de DESTination) Set cs = ThisWorkbook 'définit le classeur sourceSet cc = Workbooks("Classeur_Cible.xls") 'définit le classeur source (à adapter à ton cas)For Each pn In cs.Names 'boucle sur toutes les plages nommées du classeur source    With Range(pn) 'prend en compte la plage nommée        o = Range(pn).Worksheet.Name 'définit l'onglet de la plage nommée        Set dest = cc.Sheets(o).Range(pn) 'définit la cellule de destination        .Copy dest 'copie la plage nommée et la colle dans la cellule de destination    End With 'fin de la prise en compte de la plage nomméeNext pn 'prochaine plage nommé de la boucleEnd Sub[/CODE]</blockquote>