Nom dans cellule

Bonjour a tous

Je viens vers vous car je ne trouve pas le moyen de mettre le nom de l'onglet dans la cellule A2 de la feuille copier .

La macro lance la copie de la feuille modèle avec le nom dans l'onglet

j'espère être assez clair .

Merci de votre aide

Bonjour Matthieu

Un exemple regarde la dernière ligne du code c'est ce que tu dois rajouter

 Set oShC = Worksheets(Worksheets.Count)
        'renomme
        sNom = oShB.Range("B" & iLig).Value
        oShC.Name = sNom
     Range("A2") = sNom

Bonjour reinruof77, le forum,

Peut-être ainsi:

Option Explicit

Public Sub Duplic()
  Dim oShB As Worksheet 'Base
  Dim oShM As Worksheet 'Modèle
  Dim iDerLig As Integer, iLig As Integer

    Set oShB = Worksheets("BASE")
    Set oShM = Worksheets("MODELE")

    'parcours des noms
    iDerLig = oShB.Range("B" & Rows.Count).End(xlUp).Row

    Application.ScreenUpdating = False
     For iLig = 2 To iDerLig
       'copie du modèle
        oShM.Copy After:=Worksheets(Worksheets.Count)
         With ActiveSheet
          .Name = oShB.Range("B" & iLig).Value
          .Range("A2") = oShB.Range("B" & iLig).Value
         End With
     Next iLig
    Application.ScreenUpdating = True
   MsgBox "Terminé !", vbExclamation
  Set oShB = Nothing
  Set oShM = Nothing
End Sub

Cordialement,

Merci a tous les deux

il ne me reste plus qu'as imprimer en PDF chaque feuille en une seule fois mais une par une exemple "Cachan .pdf " "Champigny−sur−Marne.pdf " etc ...

si vous avez une idée je prend

Code a mettre dans un module à tester

Option Explicit

Sub OngletsEnPDF()
Dim Ws As Worksheet, Fichier As String
'Boucle sur toutes les feuille de calcul du classeur.
For Each Ws In ThisWorkbook.Worksheets
Fichier = ThisWorkbook.Path & "\" & Ws.Name & ".pdf"
    'Crée un pdf de chaque feuille
   Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ws.Name & ".pdf", _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=True
Next Ws
End Sub

Si tout te convient passe le sujet en résolu

Crdlt

super

Merci