J'aurais aim=E9 savoir s'il etait possible de mettre en=20
evidence la presence d'un onglet dans un fichier excel,=20
gr=E2ce =E0 une macro.
En effet je souhaite trier des fichiers selon le nombre=20
d'onglets du classeur...
Merci pour vos lumi=E8res et bonne continuation.
Guy
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je() nom = "MPFE" For Each onglet In ActiveWorkbook.Sheets If onglet.Name = nom Then MsgBox "J'existe" Next End Sub
Serge
"Guy" a écrit dans le message de news: 1111b01c3f493$95fad740$ Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en evidence la presence d'un onglet dans un fichier excel, grâce à une macro. En effet je souhaite trier des fichiers selon le nombre d'onglets du classeur...
Merci pour vos lumières et bonne continuation. Guy
Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je()
nom = "MPFE"
For Each onglet In ActiveWorkbook.Sheets
If onglet.Name = nom Then MsgBox "J'existe"
Next
End Sub
Serge
"Guy" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
1111b01c3f493$95fad740$a401280a@phx.gbl...
Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en
evidence la presence d'un onglet dans un fichier excel,
grâce à une macro.
En effet je souhaite trier des fichiers selon le nombre
d'onglets du classeur...
Merci pour vos lumières et bonne continuation.
Guy
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je() nom = "MPFE" For Each onglet In ActiveWorkbook.Sheets If onglet.Name = nom Then MsgBox "J'existe" Next End Sub
Serge
"Guy" a écrit dans le message de news: 1111b01c3f493$95fad740$ Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en evidence la presence d'un onglet dans un fichier excel, grâce à une macro. En effet je souhaite trier des fichiers selon le nombre d'onglets du classeur...
Merci pour vos lumières et bonne continuation. Guy
Guy
Merci Serge pour la macro.
Et si l'onglet n'existe pas, obtient on un message de debogage???
Je pense pouvoir utiliser le ActiveWorkbook... Je souhaite juste faire une test, la macro n'ayant pas le meme comportement selon les fichier à traiter: on ouvre un fichier, si on y trouve 5 onglets, il est donc de telle forme et dans ce cas... Sinon...
Merci pour la piste. Guy
-----Message d'origine----- Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je() nom = "MPFE" For Each onglet In ActiveWorkbook.Sheets If onglet.Name = nom Then MsgBox "J'existe" Next End Sub
Serge
"Guy" a écrit dans le message de news:
1111b01c3f493$95fad740$ Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en evidence la presence d'un onglet dans un fichier excel, grâce à une macro. En effet je souhaite trier des fichiers selon le nombre d'onglets du classeur...
Merci pour vos lumières et bonne continuation. Guy
.
Merci Serge pour la macro.
Et si l'onglet n'existe pas, obtient on un message de
debogage???
Je pense pouvoir utiliser le ActiveWorkbook... Je souhaite
juste faire une test, la macro n'ayant pas le meme
comportement selon les fichier à traiter:
on ouvre un fichier, si on y trouve 5 onglets, il est donc
de telle forme et dans ce cas... Sinon...
Merci pour la piste.
Guy
-----Message d'origine-----
Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je()
nom = "MPFE"
For Each onglet In ActiveWorkbook.Sheets
If onglet.Name = nom Then MsgBox "J'existe"
Next
End Sub
Serge
"Guy" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
1111b01c3f493$95fad740$a401280a@phx.gbl...
Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en
evidence la presence d'un onglet dans un fichier excel,
grâce à une macro.
En effet je souhaite trier des fichiers selon le nombre
d'onglets du classeur...
Merci pour vos lumières et bonne continuation.
Guy
Et si l'onglet n'existe pas, obtient on un message de debogage???
Je pense pouvoir utiliser le ActiveWorkbook... Je souhaite juste faire une test, la macro n'ayant pas le meme comportement selon les fichier à traiter: on ouvre un fichier, si on y trouve 5 onglets, il est donc de telle forme et dans ce cas... Sinon...
Merci pour la piste. Guy
-----Message d'origine----- Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je() nom = "MPFE" For Each onglet In ActiveWorkbook.Sheets If onglet.Name = nom Then MsgBox "J'existe" Next End Sub
Serge
"Guy" a écrit dans le message de news:
1111b01c3f493$95fad740$ Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en evidence la presence d'un onglet dans un fichier excel, grâce à une macro. En effet je souhaite trier des fichiers selon le nombre d'onglets du classeur...
Merci pour vos lumières et bonne continuation. Guy
.
Frédéric Sigonneau
Bonsoir,
Si c'est uniquement le nombre de feuilles (onglets) dans tes classeurs qui fait la différence entre les actions à exécuter, tu pourrais utiliser ce genre de code :
Select Case ActiveWorkbook.Sheets.Count Case 2 Comportement 1 Case 5 Comportement 2 Case 6 Comportement 3 'etc End Select
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 Serge pour la macro.
Et si l'onglet n'existe pas, obtient on un message de debogage???
Je pense pouvoir utiliser le ActiveWorkbook... Je souhaite juste faire une test, la macro n'ayant pas le meme comportement selon les fichier à traiter: on ouvre un fichier, si on y trouve 5 onglets, il est donc de telle forme et dans ce cas... Sinon...
Merci pour la piste. Guy
-----Message d'origine----- Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je() nom = "MPFE" For Each onglet In ActiveWorkbook.Sheets If onglet.Name = nom Then MsgBox "J'existe" Next End Sub
Serge
"Guy" a écrit dans le message de news:
1111b01c3f493$95fad740$ Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en evidence la presence d'un onglet dans un fichier excel, grâce à une macro. En effet je souhaite trier des fichiers selon le nombre d'onglets du classeur...
Merci pour vos lumières et bonne continuation. Guy
.
Bonsoir,
Si c'est uniquement le nombre de feuilles (onglets) dans tes classeurs qui fait
la différence entre les actions à exécuter, tu pourrais utiliser ce genre de
code :
Select Case ActiveWorkbook.Sheets.Count
Case 2
Comportement 1
Case 5
Comportement 2
Case 6
Comportement 3
'etc
End Select
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 Serge pour la macro.
Et si l'onglet n'existe pas, obtient on un message de
debogage???
Je pense pouvoir utiliser le ActiveWorkbook... Je souhaite
juste faire une test, la macro n'ayant pas le meme
comportement selon les fichier à traiter:
on ouvre un fichier, si on y trouve 5 onglets, il est donc
de telle forme et dans ce cas... Sinon...
Merci pour la piste.
Guy
-----Message d'origine-----
Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je()
nom = "MPFE"
For Each onglet In ActiveWorkbook.Sheets
If onglet.Name = nom Then MsgBox "J'existe"
Next
End Sub
Serge
"Guy" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
1111b01c3f493$95fad740$a401280a@phx.gbl...
Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en
evidence la presence d'un onglet dans un fichier excel,
grâce à une macro.
En effet je souhaite trier des fichiers selon le nombre
d'onglets du classeur...
Merci pour vos lumières et bonne continuation.
Guy
Si c'est uniquement le nombre de feuilles (onglets) dans tes classeurs qui fait la différence entre les actions à exécuter, tu pourrais utiliser ce genre de code :
Select Case ActiveWorkbook.Sheets.Count Case 2 Comportement 1 Case 5 Comportement 2 Case 6 Comportement 3 'etc End Select
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 Serge pour la macro.
Et si l'onglet n'existe pas, obtient on un message de debogage???
Je pense pouvoir utiliser le ActiveWorkbook... Je souhaite juste faire une test, la macro n'ayant pas le meme comportement selon les fichier à traiter: on ouvre un fichier, si on y trouve 5 onglets, il est donc de telle forme et dans ce cas... Sinon...
Merci pour la piste. Guy
-----Message d'origine----- Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je() nom = "MPFE" For Each onglet In ActiveWorkbook.Sheets If onglet.Name = nom Then MsgBox "J'existe" Next End Sub
Serge
"Guy" a écrit dans le message de news:
1111b01c3f493$95fad740$ Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en evidence la presence d'un onglet dans un fichier excel, grâce à une macro. En effet je souhaite trier des fichiers selon le nombre d'onglets du classeur...
Merci pour vos lumières et bonne continuation. Guy
.
Guy
Merci c'est exactement ce qu'il fallait. Simple et elegant.
Merci et bonne continuation.
Merci à vous deux FS. & S..
Guy.
-----Message d'origine----- Bonsoir,
Si c'est uniquement le nombre de feuilles (onglets) dans tes classeurs qui fait
la différence entre les actions à exécuter, tu pourrais utiliser ce genre de
code :
Select Case ActiveWorkbook.Sheets.Count Case 2 Comportement 1 Case 5 Comportement 2 Case 6 Comportement 3 'etc End Select
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 Serge pour la macro.
Et si l'onglet n'existe pas, obtient on un message de debogage???
Je pense pouvoir utiliser le ActiveWorkbook... Je souhaite
juste faire une test, la macro n'ayant pas le meme comportement selon les fichier à traiter: on ouvre un fichier, si on y trouve 5 onglets, il est donc
de telle forme et dans ce cas... Sinon...
Merci pour la piste. Guy
-----Message d'origine----- Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je() nom = "MPFE" For Each onglet In ActiveWorkbook.Sheets If onglet.Name = nom Then MsgBox "J'existe" Next End Sub
Serge
"Guy" a écrit dans
le message de news:
1111b01c3f493$95fad740$ Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en evidence la presence d'un onglet dans un fichier excel, grâce à une macro. En effet je souhaite trier des fichiers selon le nombre d'onglets du classeur...
Merci pour vos lumières et bonne continuation. Guy
.
.
Merci c'est exactement ce qu'il fallait. Simple et elegant.
Merci et bonne continuation.
Merci à vous deux FS. & S..
Guy.
-----Message d'origine-----
Bonsoir,
Si c'est uniquement le nombre de feuilles (onglets) dans
tes classeurs qui fait
la différence entre les actions à exécuter, tu pourrais
utiliser ce genre de
code :
Select Case ActiveWorkbook.Sheets.Count
Case 2
Comportement 1
Case 5
Comportement 2
Case 6
Comportement 3
'etc
End Select
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 Serge pour la macro.
Et si l'onglet n'existe pas, obtient on un message de
debogage???
Je pense pouvoir utiliser le ActiveWorkbook... Je
souhaite
juste faire une test, la macro n'ayant pas le meme
comportement selon les fichier à traiter:
on ouvre un fichier, si on y trouve 5 onglets, il est
donc
de telle forme et dans ce cas... Sinon...
Merci pour la piste.
Guy
-----Message d'origine-----
Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je()
nom = "MPFE"
For Each onglet In ActiveWorkbook.Sheets
If onglet.Name = nom Then MsgBox "J'existe"
Next
End Sub
Serge
"Guy" <anonymous@discussions.microsoft.com> a écrit
dans
le message de news:
1111b01c3f493$95fad740$a401280a@phx.gbl...
Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en
evidence la presence d'un onglet dans un fichier excel,
grâce à une macro.
En effet je souhaite trier des fichiers selon le nombre
d'onglets du classeur...
Merci pour vos lumières et bonne continuation.
Guy
Merci c'est exactement ce qu'il fallait. Simple et elegant.
Merci et bonne continuation.
Merci à vous deux FS. & S..
Guy.
-----Message d'origine----- Bonsoir,
Si c'est uniquement le nombre de feuilles (onglets) dans tes classeurs qui fait
la différence entre les actions à exécuter, tu pourrais utiliser ce genre de
code :
Select Case ActiveWorkbook.Sheets.Count Case 2 Comportement 1 Case 5 Comportement 2 Case 6 Comportement 3 'etc End Select
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 Serge pour la macro.
Et si l'onglet n'existe pas, obtient on un message de debogage???
Je pense pouvoir utiliser le ActiveWorkbook... Je souhaite
juste faire une test, la macro n'ayant pas le meme comportement selon les fichier à traiter: on ouvre un fichier, si on y trouve 5 onglets, il est donc
de telle forme et dans ce cas... Sinon...
Merci pour la piste. Guy
-----Message d'origine----- Salut Guy,
Est-ce que cette macro de met sur une bonne piste ?
Sub Y_Suis_Je() nom = "MPFE" For Each onglet In ActiveWorkbook.Sheets If onglet.Name = nom Then MsgBox "J'existe" Next End Sub
Serge
"Guy" a écrit dans
le message de news:
1111b01c3f493$95fad740$ Bonjour à tous,
J'aurais aimé savoir s'il etait possible de mettre en evidence la presence d'un onglet dans un fichier excel, grâce à une macro. En effet je souhaite trier des fichiers selon le nombre d'onglets du classeur...
Merci pour vos lumières et bonne continuation. Guy
