Création automatique de fiches

[zagglo]

Bonjour,

J'ai un fichier excel avec mes données de base, je voudrais créer pour chaque ligne de mon tableau une fiche individuelle par entreprise et je ne sais pas comment faire sans avoir à copier les onglets un par un (96 noms).

Merci.

 

[Odesta]

Re : Création automatique de fiches

Bonjour

Dans un nouvelle macro :

With Sheets("Données de Base")
    For i = 2 To .Range("B65000").End(xlUp).Row
        Sheets("ex1").Copy After:=Sheets(2)
        Sheets("ex1 (2)").Name = .Cells(i, 2).Value
        Sheets(.Cells(i, 2).Value).Cells(3, 1).Value = .Cells(i, 2).Value
        Sheets(.Cells(i, 2).Value).Cells(5, 2).Value = .Cells(i, 4).Value
        Sheets(.Cells(i, 2).Value).Cells(6, 2).Value = .Cells(i, 5).Value
        Sheets(.Cells(i, 2).Value).Cells(7, 2).Value = .Cells(i, 6).Value
        
    Next i
End With

Cordialement
Olivier