Renommer des feuilles Par une macro :-((

Le
Francis
Bonjour,

Merci à Sasa et Julien mais la solution n'est pas la bonne :-((

J' ai un classeur pour mon boulot qui contient 8 feuilles déjà nommées
cependant toutes les fins de mois je suis obligé des les mettre à jour pour
le mois suivant
comment puis-je procéder ??


Voila ma macro:

Sub Etiquettes()
'
' Etiquettes Macro
' Macro enregistrée le 10/05/2004 par Francis
'
' Touche de raccourci du clavier: Ctrl+a
'
Sheets("Mensuel 01 Avril 2004").Select
Sheets("Mensuel 01 Avril 2004").Name = "Mensuel 01 Mai 2004"
Sheets("Mensuel 02 Avril 2004").Select
Sheets("Mensuel 02 Avril 2004").Name = "Mensuel 02 Mai 2004"
Sheets("Mensuel 03 Avril 2004").Select
Sheets("Mensuel 03 Avril 2004").Name = "Mensuel 03 Mai 2004"
Sheets("Mensuel 04 Avril 2004").Select
Sheets("Mensuel 04 Avril 2004").Name = "Mensuel 04 Mai 2004"
Sheets("Cumul 05 Avril 2004").Select
Sheets("Cumul 05 Avril 2004").Name = "Cumul 05 Mai 2004"
Sheets("Cumul 06 Avril 2004").Select
Sheets("Cumul 06 Avril 2004").Name = "Cumul 06 Mai 2004"
Sheets("Cumul 07 Avril 2004").Select
Sheets("Cumul 07 Avril 2004").Name = "Cumul 07 Mai 2004"
Sheets("Cumul 08 Avril 2004").Select
Sheets("Cumul 08 Avril 2004").Name = "Cumul 08 Mai 2004"
ActiveWindow.ScrollWorkbookTabs Sheets:=-5
ActiveWindow.ScrollWorkbookTabs Sheets:=4
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
End Sub

Si les feuilles sont bien nommées au mois d' avril tout fonctionne
trés bien mais si les feuilles ne se nomment pas ("Mensuel 01 Avril 2004")
et suivant, la macro ne fonctionne que si je modifie manuellement la macro
autant dire que..:-(((
Merci à tous Francis
gtoukc@wanadoo.fr
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #1392944
re bonjour Francis,

voici un autre exemple,

Sub Macro1()
mot1 = InputBox("Entrer le môt à remplacer")
mot2 = InputBox("Entrer le nouveau môt")
On Error Resume Next
For Each f In Sheets
NouveauNom = Application.Substitute(f.Name, mot1, mot2)
f.Name = NouveauNom
Next
End Sub

isabelle


Bonjour,

Merci à Sasa et Julien mais la solution n'est pas la bonne :-((

J' ai un classeur pour mon boulot qui contient 8 feuilles déjà nommées
cependant toutes les fins de mois je suis obligé des les mettre à jour pour
le mois suivant...
comment puis-je procéder ??

Voila ma macro:

Sub Etiquettes()
'
' Etiquettes Macro
' Macro enregistrée le 10/05/2004 par Francis
'
' Touche de raccourci du clavier: Ctrl+a
'
Sheets("Mensuel 01 Avril 2004").Select
Sheets("Mensuel 01 Avril 2004").Name = "Mensuel 01 Mai 2004"
Sheets("Mensuel 02 Avril 2004").Select
Sheets("Mensuel 02 Avril 2004").Name = "Mensuel 02 Mai 2004"
Sheets("Mensuel 03 Avril 2004").Select
Sheets("Mensuel 03 Avril 2004").Name = "Mensuel 03 Mai 2004"
Sheets("Mensuel 04 Avril 2004").Select
Sheets("Mensuel 04 Avril 2004").Name = "Mensuel 04 Mai 2004"
Sheets("Cumul 05 Avril 2004").Select
Sheets("Cumul 05 Avril 2004").Name = "Cumul 05 Mai 2004"
Sheets("Cumul 06 Avril 2004").Select
Sheets("Cumul 06 Avril 2004").Name = "Cumul 06 Mai 2004"
Sheets("Cumul 07 Avril 2004").Select
Sheets("Cumul 07 Avril 2004").Name = "Cumul 07 Mai 2004"
Sheets("Cumul 08 Avril 2004").Select
Sheets("Cumul 08 Avril 2004").Name = "Cumul 08 Mai 2004"
ActiveWindow.ScrollWorkbookTabs Sheets:=-5
ActiveWindow.ScrollWorkbookTabs Sheets:=4
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
End Sub

Si les feuilles sont bien nommées au mois d' avril tout fonctionne
trés bien mais si les feuilles ne se nomment pas ("Mensuel 01 Avril 2004")
et suivant, la macro ne fonctionne que si je modifie manuellement la macro
autant dire que.....:-(((
Merci à tous Francis



Le #1392939
Salut,

Essaie ceci, ça devrait fonctionner :
Sub Etiquettes()
Dim wshFeuille As Worksheet
Dim strNom As String, strPrefixe As String
Dim dteAncienneDate As Date, dteNouvelleDate As Date

For Each wshFeuille In Worksheets
' nom de la feuille
strNom = wshFeuille.Name
' Mensuel ou Cumul ?
strPrefixe = Left(strNom, InStr(strNom, " "))
If strPrefixe = "Mensuel " Or strPrefixe
= "Cumul " Then
dteAncienneDate = Right(strNom, Len(strNom) -
InStr(strNom, " "))
' nouveau mois
dteNouvelleDate = DateAdd("m", 1,
dteAncienneDate)
' renommer la feuille
wshFeuille.Name = strPrefixe & Format
(dteNouvelleDate, "dd mmm yyyy")
End If
Next
End Sub

-----Message d'origine-----
Bonjour,

Merci à Sasa et Julien mais la solution n'est pas la
bonne :-((


J' ai un classeur pour mon boulot qui contient 8 feuilles
déjà nommées

cependant toutes les fins de mois je suis obligé des les
mettre à jour pour

le mois suivant...
comment puis-je procéder ??


Voila ma macro:

Sub Etiquettes()
'
' Etiquettes Macro
' Macro enregistrée le 10/05/2004 par Francis
'
' Touche de raccourci du clavier: Ctrl+a
'
Sheets("Mensuel 01 Avril 2004").Select
Sheets("Mensuel 01 Avril 2004").Name = "Mensuel 01
Mai 2004"

Sheets("Mensuel 02 Avril 2004").Select
Sheets("Mensuel 02 Avril 2004").Name = "Mensuel 02
Mai 2004"

Sheets("Mensuel 03 Avril 2004").Select
Sheets("Mensuel 03 Avril 2004").Name = "Mensuel 03
Mai 2004"

Sheets("Mensuel 04 Avril 2004").Select
Sheets("Mensuel 04 Avril 2004").Name = "Mensuel 04
Mai 2004"

Sheets("Cumul 05 Avril 2004").Select
Sheets("Cumul 05 Avril 2004").Name = "Cumul 05 Mai
2004"

Sheets("Cumul 06 Avril 2004").Select
Sheets("Cumul 06 Avril 2004").Name = "Cumul 06 Mai
2004"

Sheets("Cumul 07 Avril 2004").Select
Sheets("Cumul 07 Avril 2004").Name = "Cumul 07 Mai
2004"

Sheets("Cumul 08 Avril 2004").Select
Sheets("Cumul 08 Avril 2004").Name = "Cumul 08 Mai
2004"

ActiveWindow.ScrollWorkbookTabs Sheets:=-5
ActiveWindow.ScrollWorkbookTabs Sheets:=4
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
End Sub

Si les feuilles sont bien nommées au mois d' avril tout
fonctionne

trés bien mais si les feuilles ne se nomment pas
("Mensuel 01 Avril 2004")

et suivant, la macro ne fonctionne que si je modifie
manuellement la macro

autant dire que.....:-(((
Merci à tous Francis





.



Philippe
Le #1392937
désolé, j'avais oublié de signer mon message...

-----Message d'origine-----
Salut,

Essaie ceci, ça devrait fonctionner :
Sub Etiquettes()
Dim wshFeuille As Worksheet
Dim strNom As String, strPrefixe As String
Dim dteAncienneDate As Date, dteNouvelleDate As Date

For Each wshFeuille In Worksheets
' nom de la feuille
strNom = wshFeuille.Name
' Mensuel ou Cumul ?
strPrefixe = Left(strNom, InStr(strNom, " "))
If strPrefixe = "Mensuel " Or strPrefixe
= "Cumul " Then
dteAncienneDate = Right(strNom, Len(strNom) -
InStr(strNom, " "))
' nouveau mois
dteNouvelleDate = DateAdd("m", 1,
dteAncienneDate)
' renommer la feuille
wshFeuille.Name = strPrefixe & Format
(dteNouvelleDate, "dd mmm yyyy")
End If
Next
End Sub

-----Message d'origine-----
Bonjour,

Merci à Sasa et Julien mais la solution n'est pas la
bonne :-((


J' ai un classeur pour mon boulot qui contient 8
feuilles


déjà nommées
cependant toutes les fins de mois je suis obligé des les
mettre à jour pour

le mois suivant...
comment puis-je procéder ??


Voila ma macro:

Sub Etiquettes()
'
' Etiquettes Macro
' Macro enregistrée le 10/05/2004 par Francis
'
' Touche de raccourci du clavier: Ctrl+a
'
Sheets("Mensuel 01 Avril 2004").Select
Sheets("Mensuel 01 Avril 2004").Name = "Mensuel 01
Mai 2004"

Sheets("Mensuel 02 Avril 2004").Select
Sheets("Mensuel 02 Avril 2004").Name = "Mensuel 02
Mai 2004"

Sheets("Mensuel 03 Avril 2004").Select
Sheets("Mensuel 03 Avril 2004").Name = "Mensuel 03
Mai 2004"

Sheets("Mensuel 04 Avril 2004").Select
Sheets("Mensuel 04 Avril 2004").Name = "Mensuel 04
Mai 2004"

Sheets("Cumul 05 Avril 2004").Select
Sheets("Cumul 05 Avril 2004").Name = "Cumul 05 Mai
2004"

Sheets("Cumul 06 Avril 2004").Select
Sheets("Cumul 06 Avril 2004").Name = "Cumul 06 Mai
2004"

Sheets("Cumul 07 Avril 2004").Select
Sheets("Cumul 07 Avril 2004").Name = "Cumul 07 Mai
2004"

Sheets("Cumul 08 Avril 2004").Select
Sheets("Cumul 08 Avril 2004").Name = "Cumul 08 Mai
2004"

ActiveWindow.ScrollWorkbookTabs Sheets:=-5
ActiveWindow.ScrollWorkbookTabs Sheets:=4
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
End Sub

Si les feuilles sont bien nommées au mois d' avril tout
fonctionne

trés bien mais si les feuilles ne se nomment pas
("Mensuel 01 Avril 2004")

et suivant, la macro ne fonctionne que si je modifie
manuellement la macro

autant dire que.....:-(((
Merci à tous Francis





.

.





Publicité
Poster une réponse
Anonyme