copier et renommer des onglet suivant une lite de date

[saxo90]

Bonjour à tous et merci d'exister,

j'ai un petit souci depuis un moment et je ne comprends pas ... à force de chercher, je me perd.

J'ai u classeur avec des onglets à ne pas toucher dont un onglet FP qui me sert de modèle pour la copie d'onglet.
J'ai un onglet "BDD" avec en colonne B la liste des dates (pour mais ... du 01 au 31)

Ce que je souaite faite c'est créer automatiquement les onglets/copie de FP autant qu'il y a de valeur dans la colonne A de la feuille BDD ...
J'ai tenté en nommant la colonne B de la feuille ...
Je pense que le problème est que je n'arrive pas à coder : cherche les valeur dans la feuille (BDD) en colonne B et nomme les onglets avec les valeurs trouvée.
L'idéal serait de nommer les onglet et "FP"&"-"&"Valeur trouver ... la première étant 01-05-16 donc FP_01-05-16

Sub COPIE3()

Dim c As Variant

Application.ScreenUpdating = False
Set c = Worksheets("BDD").Range(c)
Do Until IsEmpty(c)

Worksheets("FP").Copy after:=Worksheets(Worksheets.Count)
With Worksheets(ThisWorkbook.Sheets.Count)
.Name = "FP" & cell.Value(Format("date", "dd-mmyy"))

End With
Loop

End Sub
Je mets le classeur en pièce jointe, ce sera peut être plus clair ...

Si quelqu'un peut m'expliquer, ce serait top.

Merci et bonne journée à tous
Isa

 

[saxo90]

Re : copier et renommer des onglet suivant une lite de date

Désolée pour les fautes d'orthographe ...

 

[Chris401]

Re : copier et renommer des onglet suivant une lite de date

Bonjour

Essaye

Sub Copy()

Dim bdd As Worksheet, modele As Worksheet
Set modele = Worksheets("FP")
Set bdd = Worksheets("BDD")

Application.ScreenUpdating = False

For i = 1 To bdd.Range("C65000").End(xlUp).Row
    modele.Copy after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "FP-" & Format(bdd.Cells(i, 3), "dd-mm-yy")
Next i

bdd.Activate

Application.ScreenUpdating = True
End Sub

Attention ! Tu as des formules en feuile FP qui sont en erreur.

Cordialement
Chris

 

[saxo90]

Re : copier et renommer des onglet suivant une lite de date

Bonjour Chris,

Un énorme merci !! cela fonctionne parfaitement bien !!
A voir ton code, j'ai un souci au niveau de mes déclarations, je vais reprendre mes bouquins.

Oui, les formules en FP font références à une feuille que j'ai supprimée car mon fichier était trop lourd pour le mettre en PJ tel quel, mais elles fonctionnent.

Encore merci et je te souhaite une très bonne journée
Isa