Tu peux l'associer à l'ouverture du classeur par exemple Dans Visual Basic Editor sur le Workbook tu choisis l'évènement Open.
Camille
-----Message d'origine----- merci pour la reponse rapide !. faut il l'activer obligatoirement ? -- Laurent.
"Ellimac" a écrit dans le message de
news: 11f9a01c3f55e$c497f5d0$
Bonjour,
Sub Toto() On Error GoTo PasLa Sheets("ElleEstLa").Activate Exit Sub PasLa: Sheets.Add ActiveSheet.Name = "ElleEstLa" End Sub
Camille
-----Message d'origine----- bonjour,
je cherche une methode pour savoir si une feuille existe
avec un nom (ex :
"01J") si elle n'existe pas, je dois la creer ...
merci d'avance . ------ Laurent.
.
.
Frédéric Sigonneau
Bonjour,
Non, l'activation n'est pas obligatoire :
Sub Toto() Dim Sh On Error GoTo PasLa Set Sh = Sheets("ElleEstLa") Exit Sub PasLa: Sheets.Add.Name = "ElleEstLa" End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
merci pour la reponse rapide !. faut il l'activer obligatoirement ? -- Laurent.
"Ellimac" a écrit dans le message de news: 11f9a01c3f55e$c497f5d0$
Bonjour,
Sub Toto() On Error GoTo PasLa Sheets("ElleEstLa").Activate Exit Sub PasLa: Sheets.Add ActiveSheet.Name = "ElleEstLa" End Sub
Camille
-----Message d'origine----- bonjour,
je cherche une methode pour savoir si une feuille existe avec un nom (ex :
"01J") si elle n'existe pas, je dois la creer ...
merci d'avance . ------ Laurent.
.
Bonjour,
Non, l'activation n'est pas obligatoire :
Sub Toto()
Dim Sh
On Error GoTo PasLa
Set Sh = Sheets("ElleEstLa")
Exit Sub
PasLa:
Sheets.Add.Name = "ElleEstLa"
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
merci pour la reponse rapide !.
faut il l'activer obligatoirement ?
--
Laurent.
"Ellimac" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 11f9a01c3f55e$c497f5d0$a501280a@phx.gbl...
Bonjour,
Sub Toto()
On Error GoTo PasLa
Sheets("ElleEstLa").Activate
Exit Sub
PasLa:
Sheets.Add
ActiveSheet.Name = "ElleEstLa"
End Sub
Camille
-----Message d'origine-----
bonjour,
je cherche une methode pour savoir si une feuille existe
avec un nom (ex :
Sub Toto() Dim Sh On Error GoTo PasLa Set Sh = Sheets("ElleEstLa") Exit Sub PasLa: Sheets.Add.Name = "ElleEstLa" End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
merci pour la reponse rapide !. faut il l'activer obligatoirement ? -- Laurent.
"Ellimac" a écrit dans le message de news: 11f9a01c3f55e$c497f5d0$
Bonjour,
Sub Toto() On Error GoTo PasLa Sheets("ElleEstLa").Activate Exit Sub PasLa: Sheets.Add ActiveSheet.Name = "ElleEstLa" End Sub
Camille
-----Message d'origine----- bonjour,
je cherche une methode pour savoir si une feuille existe avec un nom (ex :