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
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
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
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
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
0D6519D2-1438-4417-9C94-AA557EA43104@microsoft.com...
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
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
Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
MarcBonsoir 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
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
0D6519D2-1438-4417-9C94-AA557EA43104@microsoft.com...
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
Bonsoir Philippe
et merci beaucoup, c génial ça marche mais que sur le 1er onglet ...
Je suis débutant ... merci de ton aide
@+
MarcBonsoir 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
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
@+
MarcBonsoir 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
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
BA854112-526E-4BAC-B087-20805E130B7D@microsoft.com...
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
0D6519D2-1438-4417-9C94-AA557EA43104@microsoft.com...
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
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
@+
MarcBonsoir 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
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
@+
MarcBonsoir 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
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
BA854112-526E-4BAC-B087-20805E130B7D@microsoft.com...
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
0D6519D2-1438-4417-9C94-AA557EA43104@microsoft.com...
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
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
@+
MarcBonsoir 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
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 SubRe,
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
@+
MarcBonsoir 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
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
BA854112-526E-4BAC-B087-20805E130B7D@microsoft.com...
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
0D6519D2-1438-4417-9C94-AA557EA43104@microsoft.com...
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
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 SubRe,
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
@+
MarcBonsoir 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
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
@+
MarcRe,
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
@+
MarcBonsoir 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
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
BA854112-526E-4BAC-B087-20805E130B7D@microsoft.com...
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
0D6519D2-1438-4417-9C94-AA557EA43104@microsoft.com...
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
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
@+
MarcRe,
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
@+
MarcBonsoir 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
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 SubRe,
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
@+
MarcBonsoir 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
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
4AA32F98-C694-450C-A28B-135008F73689@microsoft.com...
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
BA854112-526E-4BAC-B087-20805E130B7D@microsoft.com...
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
0D6519D2-1438-4417-9C94-AA557EA43104@microsoft.com...
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
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 SubRe,
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
@+
MarcBonsoir 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
Merci bcp
J'essaie ça et te tiens au courant
@+
MarcRe,
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 SubRe,
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
@+
MarcBonsoir 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
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
4AA32F98-C694-450C-A28B-135008F73689@microsoft.com...
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
BA854112-526E-4BAC-B087-20805E130B7D@microsoft.com...
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
0D6519D2-1438-4417-9C94-AA557EA43104@microsoft.com...
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
Merci bcp
J'essaie ça et te tiens au courant
@+
MarcRe,
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 SubRe,
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
@+
MarcBonsoir 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
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
@+
MarcRe,
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
@+
MarcBonsoir 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
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
12808901-E7EA-4693-AF14-F3B4E8801736@microsoft.com...
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
BA854112-526E-4BAC-B087-20805E130B7D@microsoft.com...
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" <Marc@discussions.microsoft.com> a écrit dans le message de news:
0D6519D2-1438-4417-9C94-AA557EA43104@microsoft.com...
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
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
@+
MarcRe,
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
@+
MarcBonsoir 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