Renommer onglet avec une liste de date
saxo90
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
bonjour tous,
j'ai encore un souci sur une fichier ...
J'ai un code qui fonctionne très bien pour la copie d'onglet mais la partie nom ne fonctionne pas :
Sub COPIE3()
Dim c As Range
Application.ScreenUpdating = False
Set c = Worksheets("DATE").Range("B1")
Do Until IsEmpty(c)
Worksheets("FP").Copy before:=Worksheets("RECETTES")
With Worksheets(ThisWorkbook.Sheets.Count)
.Name = cell.Value(Format(Date, "dd-mm-yy"))
End With
Loop
End Sub
Ma feuille FP est bien copiée et dans mon onglet DATE en colonne B1 à B31 j'ai mes dates.
Je voudrais renommer les onglets crées FP = valeur en B1 ... jusque B31 si 31 jours.
Mais j'y arrive pas ! à chaque fois il me met FP1 ou FP(1) et là comme au dessus ... rien..
Si vous avez une solution ... je vous remercie par avance,
Louisa
j'ai encore un souci sur une fichier ...
J'ai un code qui fonctionne très bien pour la copie d'onglet mais la partie nom ne fonctionne pas :
Sub COPIE3()
Dim c As Range
Application.ScreenUpdating = False
Set c = Worksheets("DATE").Range("B1")
Do Until IsEmpty(c)
Worksheets("FP").Copy before:=Worksheets("RECETTES")
With Worksheets(ThisWorkbook.Sheets.Count)
.Name = cell.Value(Format(Date, "dd-mm-yy"))
End With
Loop
End Sub
Ma feuille FP est bien copiée et dans mon onglet DATE en colonne B1 à B31 j'ai mes dates.
Je voudrais renommer les onglets crées FP = valeur en B1 ... jusque B31 si 31 jours.
Mais j'y arrive pas ! à chaque fois il me met FP1 ou FP(1) et là comme au dessus ... rien..
Si vous avez une solution ... je vous remercie par avance,
Louisa
A voir également:
- Renommer onglet avec une liste de date
- Liste déroulante excel - Guide
- Renommer des fichiers en masse - Guide
- Raccourci rouvrir onglet fermé - Guide
- Renommer iphone - Guide
- Liste déroulante en cascade - Guide
1 réponse
Bonjour,
le code suivant :
mais le code :
le code suivant :
With Worksheets(ThisWorkbook.Sheets.Count) .Name = cell.Value(Format(Date, "dd-mm-yy")) End Witha pour effet de renommer la dernière feuille !
mais le code :
Worksheets("FP").Copy before:=Worksheets("RECETTES")
place la copie avant la feuille RECETTE (donc jamais en dernier !)
