OVH Cloud OVH Cloud

Onglets

10 réponses
Avatar
Marc
Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc

10 réponses

Avatar
Philippe.R
Bonsoir Marc,
Pour ce faire, il te suffit d'invoquer ta macro par son nom dans la procédure open du module
Thisworkbook.
Par la commande Alt + F11, tu ouvres VBE ; dans la petite fenêtre située en haut à gauche, tu repères le
nom de ton classeur entre parenthèses derrière "VBAProject", tu double clic sur ThisWorkbook et dans le
menu déroulant de gauche au dessus de la grande fenêtre, tu choisis Workbook puis dans le menu de droite
Open et entre sub et end sub, tu colle le nom de ta macro.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc


Avatar
Marc
Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
Marc


Bonsoir Marc,
Pour ce faire, il te suffit d'invoquer ta macro par son nom dans la procédure open du module
Thisworkbook.
Par la commande Alt + F11, tu ouvres VBE ; dans la petite fenêtre située en haut à gauche, tu repères le
nom de ton classeur entre parenthèses derrière "VBAProject", tu double clic sur ThisWorkbook et dans le
menu déroulant de gauche au dessus de la grande fenêtre, tu choisis Workbook puis dans le menu de droite
Open et entre sub et end sub, tu colle le nom de ta macro.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc






Avatar
Philippe.R
Re,
Peux tu copier ici le code de ta macro qui renomme les onglets, histoire de voir comment l'adapter.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
Marc


Bonsoir Marc,
Pour ce faire, il te suffit d'invoquer ta macro par son nom dans la procédure open du module
Thisworkbook.
Par la commande Alt + F11, tu ouvres VBE ; dans la petite fenêtre située en haut à gauche, tu repères
le
nom de ton classeur entre parenthèses derrière "VBAProject", tu double clic sur ThisWorkbook et dans
le
menu déroulant de gauche au dessus de la grande fenêtre, tu choisis Workbook puis dans le menu de
droite
Open et entre sub et end sub, tu colle le nom de ta macro.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc








Avatar
Marc
Re salut Philippe,
Merci de ton aide, voici le code que j'ai copié qq part et inséré. Avec le
conseil de tt à l'heure ça marche à l'ouverture mais que sur le 1er onglet.
Encore merci
Marc

Sub renommer()
Dim Dates, Onglet As String
Dates = ActiveSheet.Range("A1").Value
Onglet = Format(texte, "")
If Not IsEmpty(Dates) Then
On Error GoTo mon_message
ActiveSheet.Name = [A1]
End If
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")
End Sub


Re,
Peux tu copier ici le code de ta macro qui renomme les onglets, histoire de voir comment l'adapter.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
Marc


Bonsoir Marc,
Pour ce faire, il te suffit d'invoquer ta macro par son nom dans la procédure open du module
Thisworkbook.
Par la commande Alt + F11, tu ouvres VBE ; dans la petite fenêtre située en haut à gauche, tu repères
le
nom de ton classeur entre parenthèses derrière "VBAProject", tu double clic sur ThisWorkbook et dans
le
menu déroulant de gauche au dessus de la grande fenêtre, tu choisis Workbook puis dans le menu de
droite
Open et entre sub et end sub, tu colle le nom de ta macro.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc












Avatar
Marc
Re
Après d'autres tests je m'aperçois que je n'ai pas tt à fait bien décrit le
pb. Ce n'est pas le 1er onglet pour qui la macro fonctionne mais celui qui
est sélectionné à l'ouverture du classeur.
Merci
@+
Marc


Re,
Peux tu copier ici le code de ta macro qui renomme les onglets, histoire de voir comment l'adapter.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
Marc


Bonsoir Marc,
Pour ce faire, il te suffit d'invoquer ta macro par son nom dans la procédure open du module
Thisworkbook.
Par la commande Alt + F11, tu ouvres VBE ; dans la petite fenêtre située en haut à gauche, tu repères
le
nom de ton classeur entre parenthèses derrière "VBAProject", tu double clic sur ThisWorkbook et dans
le
menu déroulant de gauche au dessus de la grande fenêtre, tu choisis Workbook puis dans le menu de
droite
Open et entre sub et end sub, tu colle le nom de ta macro.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc












Avatar
Philippe.R
Re,

Fais l'essai avec le code modifié comme suit :

Sub renommer()
Dim Dates, Onglet As String, i as integer
for i = 1 to sheets.count
Dates = ActiveSheet.Range("A1").Value
Onglet = Format(texte, "")
If Not IsEmpty(Dates) Then
On Error GoTo mon_message
ActiveSheet.Name = [A1]
End If
next i
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")
End Sub


--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Re salut Philippe,
Merci de ton aide, voici le code que j'ai copié qq part et inséré. Avec le
conseil de tt à l'heure ça marche à l'ouverture mais que sur le 1er onglet.
Encore merci
Marc

Sub renommer()
Dim Dates, Onglet As String
Dates = ActiveSheet.Range("A1").Value
Onglet = Format(texte, "")
If Not IsEmpty(Dates) Then
On Error GoTo mon_message
ActiveSheet.Name = [A1]
End If
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")
End Sub


Re,
Peux tu copier ici le code de ta macro qui renomme les onglets, histoire de voir comment l'adapter.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
Marc


Bonsoir Marc,
Pour ce faire, il te suffit d'invoquer ta macro par son nom dans la procédure open du module
Thisworkbook.
Par la commande Alt + F11, tu ouvres VBE ; dans la petite fenêtre située en haut à gauche, tu
repères
le
nom de ton classeur entre parenthèses derrière "VBAProject", tu double clic sur ThisWorkbook et
dans
le
menu déroulant de gauche au dessus de la grande fenêtre, tu choisis Workbook puis dans le menu de
droite
Open et entre sub et end sub, tu colle le nom de ta macro.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc














Avatar
Philippe.R
En plus la macro modifiée ci avant est incomplète ; prends donc celle ci

Sub renommer()
Dim Dates, Onglet As String, i as integer
for i = 1 to sheets.count
sheets(i).activate
Dates = ActiveSheet.Range("A1").Value
Onglet = Format(texte, "")
If Not IsEmpty(Dates) Then
On Error GoTo mon_message
ActiveSheet.Name = [A1]
End If
next i
sheets(1).activate
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")
End Sub


--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Re
Après d'autres tests je m'aperçois que je n'ai pas tt à fait bien décrit le
pb. Ce n'est pas le 1er onglet pour qui la macro fonctionne mais celui qui
est sélectionné à l'ouverture du classeur.
Merci
@+
Marc


Re,
Peux tu copier ici le code de ta macro qui renomme les onglets, histoire de voir comment l'adapter.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
Marc


Bonsoir Marc,
Pour ce faire, il te suffit d'invoquer ta macro par son nom dans la procédure open du module
Thisworkbook.
Par la commande Alt + F11, tu ouvres VBE ; dans la petite fenêtre située en haut à gauche, tu
repères
le
nom de ton classeur entre parenthèses derrière "VBAProject", tu double clic sur ThisWorkbook et
dans
le
menu déroulant de gauche au dessus de la grande fenêtre, tu choisis Workbook puis dans le menu de
droite
Open et entre sub et end sub, tu colle le nom de ta macro.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc














Avatar
Marc
Merci bcp
J'essaie ça et te tiens au courant
@+
Marc


Re,

Fais l'essai avec le code modifié comme suit :

Sub renommer()
Dim Dates, Onglet As String, i as integer
for i = 1 to sheets.count
Dates = ActiveSheet.Range("A1").Value
Onglet = Format(texte, "")
If Not IsEmpty(Dates) Then
On Error GoTo mon_message
ActiveSheet.Name = [A1]
End If
next i
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")
End Sub


--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Re salut Philippe,
Merci de ton aide, voici le code que j'ai copié qq part et inséré. Avec le
conseil de tt à l'heure ça marche à l'ouverture mais que sur le 1er onglet.
Encore merci
Marc

Sub renommer()
Dim Dates, Onglet As String
Dates = ActiveSheet.Range("A1").Value
Onglet = Format(texte, "")
If Not IsEmpty(Dates) Then
On Error GoTo mon_message
ActiveSheet.Name = [A1]
End If
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")
End Sub


Re,
Peux tu copier ici le code de ta macro qui renomme les onglets, histoire de voir comment l'adapter.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
Marc


Bonsoir Marc,
Pour ce faire, il te suffit d'invoquer ta macro par son nom dans la procédure open du module
Thisworkbook.
Par la commande Alt + F11, tu ouvres VBE ; dans la petite fenêtre située en haut à gauche, tu
repères
le
nom de ton classeur entre parenthèses derrière "VBAProject", tu double clic sur ThisWorkbook et
dans
le
menu déroulant de gauche au dessus de la grande fenêtre, tu choisis Workbook puis dans le menu de
droite
Open et entre sub et end sub, tu colle le nom de ta macro.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc


















Avatar
Philippe.R
Bonjour Marc,

Prends celui ci, posté à la suite de ton message de précision :

Sub renommer()
Dim Dates, Onglet As String, i as integer
for i = 1 to sheets.count
sheets(i).activate
Dates = ActiveSheet.Range("A1").Value
Onglet = Format(texte, "")
If Not IsEmpty(Dates) Then
On Error GoTo mon_message
ActiveSheet.Name = [A1]
End If
next i
sheets(1).activate
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")
End Sub


--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Merci bcp
J'essaie ça et te tiens au courant
@+
Marc


Re,

Fais l'essai avec le code modifié comme suit :

Sub renommer()
Dim Dates, Onglet As String, i as integer
for i = 1 to sheets.count
Dates = ActiveSheet.Range("A1").Value
Onglet = Format(texte, "")
If Not IsEmpty(Dates) Then
On Error GoTo mon_message
ActiveSheet.Name = [A1]
End If
next i
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")
End Sub


--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Re salut Philippe,
Merci de ton aide, voici le code que j'ai copié qq part et inséré. Avec le
conseil de tt à l'heure ça marche à l'ouverture mais que sur le 1er onglet.
Encore merci
Marc

Sub renommer()
Dim Dates, Onglet As String
Dates = ActiveSheet.Range("A1").Value
Onglet = Format(texte, "")
If Not IsEmpty(Dates) Then
On Error GoTo mon_message
ActiveSheet.Name = [A1]
End If
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")
End Sub


Re,
Peux tu copier ici le code de ta macro qui renomme les onglets, histoire de voir comment
l'adapter.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
Marc


Bonsoir Marc,
Pour ce faire, il te suffit d'invoquer ta macro par son nom dans la procédure open du module
Thisworkbook.
Par la commande Alt + F11, tu ouvres VBE ; dans la petite fenêtre située en haut à gauche, tu
repères
le
nom de ton classeur entre parenthèses derrière "VBAProject", tu double clic sur ThisWorkbook et
dans
le
menu déroulant de gauche au dessus de la grande fenêtre, tu choisis Workbook puis dans le menu
de
droite
Open et entre sub et end sub, tu colle le nom de ta macro.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc




















Avatar
Marc
Merci bcp ça marche a merveille.
Bravo
et merci encore
bonne continuation à toi
@+
Marc


En plus la macro modifiée ci avant est incomplète ; prends donc celle ci

Sub renommer()
Dim Dates, Onglet As String, i as integer
for i = 1 to sheets.count
sheets(i).activate
Dates = ActiveSheet.Range("A1").Value
Onglet = Format(texte, "")
If Not IsEmpty(Dates) Then
On Error GoTo mon_message
ActiveSheet.Name = [A1]
End If
next i
sheets(1).activate
Exit Sub
mon_message:
attention = MsgBox("La feuille existe déjà", vbOKOnly, "Attention")
End Sub


--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Re
Après d'autres tests je m'aperçois que je n'ai pas tt à fait bien décrit le
pb. Ce n'est pas le 1er onglet pour qui la macro fonctionne mais celui qui
est sélectionné à l'ouverture du classeur.
Merci
@+
Marc


Re,
Peux tu copier ici le code de ta macro qui renomme les onglets, histoire de voir comment l'adapter.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
Marc


Bonsoir Marc,
Pour ce faire, il te suffit d'invoquer ta macro par son nom dans la procédure open du module
Thisworkbook.
Par la commande Alt + F11, tu ouvres VBE ; dans la petite fenêtre située en haut à gauche, tu
repères
le
nom de ton classeur entre parenthèses derrière "VBAProject", tu double clic sur ThisWorkbook et
dans
le
menu déroulant de gauche au dessus de la grande fenêtre, tu choisis Workbook puis dans le menu de
droite
Open et entre sub et end sub, tu colle le nom de ta macro.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Marc" a écrit dans le message de news:

Bonjour,
J'ai créé un classeur dans lequel je met une macro pour renommer les
onglets. J'aimerai pouvoir automatiser cette macro à l'ouverture du classeur,
et aussi la limiter à ce classeur.
Merci
--
Marc