Bonjour à tous et plus particulierement aux malheureux qui sont encore au
boulot (comme moi rassurez vous).
voilà ce qui me ramene vers vous.
je commence à faire quelques macros et j'ai donc un petit module du style:
Function FileExists(s As String) As Boolean
'test de présence ou non du fichier recherché
FileExists = Dir(s) <> ""
xfile = FileExists
End Function
je voudrais savoir s'il existerait quelque chose du meme style pour savoir
s'il existe un onglet ou pas dans un fichier.
mon problème est que je voudrais dans certains cas pouvoir les suprimer mais
encore faut il être certains qu'ils existent.
si l'un d'entre vous à une petite idée sur le sujet je serais volontier
preneur
merci beaucoup et bonnes vacances à ceux qui partent
Jacks
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
JFrancois QC
Salut, Voici un exemple pour vérifier la présence d'un onglet (Feuille) dans un workbook ouvert : Function isWorkSheet(byval sFeuil as string) As Boolean option compare text 'pour le like Dim ws As ch isWorkSheet = False For Each ws In ActiveWorkbook.Worksheets If ws.Name like sfeuil Then isWorkSheet = True Exit For End If Next End Function ... ... if activeworkbook.worksheets.count >1 then if isworksheet("Toto") then activeworkbook.worksheets("toto").delete endif endif
bonne journée!
Bonjour à tous et plus particulierement aux malheureux qui sont encore au boulot (comme moi rassurez vous). voilà ce qui me ramene vers vous. je commence à faire quelques macros et j'ai donc un petit module du style: Function FileExists(s As String) As Boolean 'test de présence ou non du fichier recherché FileExists = Dir(s) <> "" xfile = FileExists End Function je voudrais savoir s'il existerait quelque chose du meme style pour savoir s'il existe un onglet ou pas dans un fichier. mon problème est que je voudrais dans certains cas pouvoir les suprimer mais encore faut il être certains qu'ils existent. si l'un d'entre vous à une petite idée sur le sujet je serais volontier preneur merci beaucoup et bonnes vacances à ceux qui partent Jacks
Salut,
Voici un exemple pour vérifier la présence d'un onglet (Feuille) dans un
workbook ouvert :
Function isWorkSheet(byval sFeuil as string) As Boolean
option compare text 'pour le like
Dim ws As ch
isWorkSheet = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name like sfeuil Then
isWorkSheet = True
Exit For
End If
Next
End Function
...
...
if activeworkbook.worksheets.count >1 then
if isworksheet("Toto") then
activeworkbook.worksheets("toto").delete
endif
endif
bonne journée!
Bonjour à tous et plus particulierement aux malheureux qui sont encore au
boulot (comme moi rassurez vous).
voilà ce qui me ramene vers vous.
je commence à faire quelques macros et j'ai donc un petit module du style:
Function FileExists(s As String) As Boolean
'test de présence ou non du fichier recherché
FileExists = Dir(s) <> ""
xfile = FileExists
End Function
je voudrais savoir s'il existerait quelque chose du meme style pour savoir
s'il existe un onglet ou pas dans un fichier.
mon problème est que je voudrais dans certains cas pouvoir les suprimer mais
encore faut il être certains qu'ils existent.
si l'un d'entre vous à une petite idée sur le sujet je serais volontier
preneur
merci beaucoup et bonnes vacances à ceux qui partent
Jacks
Salut, Voici un exemple pour vérifier la présence d'un onglet (Feuille) dans un workbook ouvert : Function isWorkSheet(byval sFeuil as string) As Boolean option compare text 'pour le like Dim ws As ch isWorkSheet = False For Each ws In ActiveWorkbook.Worksheets If ws.Name like sfeuil Then isWorkSheet = True Exit For End If Next End Function ... ... if activeworkbook.worksheets.count >1 then if isworksheet("Toto") then activeworkbook.worksheets("toto").delete endif endif
bonne journée!
Bonjour à tous et plus particulierement aux malheureux qui sont encore au boulot (comme moi rassurez vous). voilà ce qui me ramene vers vous. je commence à faire quelques macros et j'ai donc un petit module du style: Function FileExists(s As String) As Boolean 'test de présence ou non du fichier recherché FileExists = Dir(s) <> "" xfile = FileExists End Function je voudrais savoir s'il existerait quelque chose du meme style pour savoir s'il existe un onglet ou pas dans un fichier. mon problème est que je voudrais dans certains cas pouvoir les suprimer mais encore faut il être certains qu'ils existent. si l'un d'entre vous à une petite idée sur le sujet je serais volontier preneur merci beaucoup et bonnes vacances à ceux qui partent Jacks
Trirème
Salut lematou Tu peux te contenter de ceci, la gestion d'erreur s'occupe de la non-existence de la feuille :
On Error Resume Next Application.DisplayAlerts = False ' N'affiche pas le message d'alerte ' Adapter selon le classeur et la feuille ActiveWorkbook.Sheets("MaFeuille").Delete Application.DisplayAlerts = True ' Réactive les messages d'alerte On Error GoTo 0
Cordialement Trirème
Bonjour à tous et plus particulierement aux malheureux qui sont encore au boulot (comme moi rassurez vous). voilà ce qui me ramene vers vous. je commence à faire quelques macros et j'ai donc un petit module du style: Function FileExists(s As String) As Boolean 'test de présence ou non du fichier recherché FileExists = Dir(s) <> "" xfile = FileExists End Function je voudrais savoir s'il existerait quelque chose du meme style pour savoir s'il existe un onglet ou pas dans un fichier. mon problème est que je voudrais dans certains cas pouvoir les suprimer mais encore faut il être certains qu'ils existent. si l'un d'entre vous à une petite idée sur le sujet je serais volontier preneur merci beaucoup et bonnes vacances à ceux qui partent Jacks
Salut lematou
Tu peux te contenter de ceci, la gestion d'erreur s'occupe de la
non-existence de la feuille :
On Error Resume Next
Application.DisplayAlerts = False ' N'affiche pas le message d'alerte
' Adapter selon le classeur et la feuille
ActiveWorkbook.Sheets("MaFeuille").Delete
Application.DisplayAlerts = True ' Réactive les messages d'alerte
On Error GoTo 0
Cordialement
Trirème
Bonjour à tous et plus particulierement aux malheureux qui sont encore au
boulot (comme moi rassurez vous).
voilà ce qui me ramene vers vous.
je commence à faire quelques macros et j'ai donc un petit module du style:
Function FileExists(s As String) As Boolean
'test de présence ou non du fichier recherché
FileExists = Dir(s) <> ""
xfile = FileExists
End Function
je voudrais savoir s'il existerait quelque chose du meme style pour savoir
s'il existe un onglet ou pas dans un fichier.
mon problème est que je voudrais dans certains cas pouvoir les suprimer mais
encore faut il être certains qu'ils existent.
si l'un d'entre vous à une petite idée sur le sujet je serais volontier
preneur
merci beaucoup et bonnes vacances à ceux qui partent
Jacks
Salut lematou Tu peux te contenter de ceci, la gestion d'erreur s'occupe de la non-existence de la feuille :
On Error Resume Next Application.DisplayAlerts = False ' N'affiche pas le message d'alerte ' Adapter selon le classeur et la feuille ActiveWorkbook.Sheets("MaFeuille").Delete Application.DisplayAlerts = True ' Réactive les messages d'alerte On Error GoTo 0
Cordialement Trirème
Bonjour à tous et plus particulierement aux malheureux qui sont encore au boulot (comme moi rassurez vous). voilà ce qui me ramene vers vous. je commence à faire quelques macros et j'ai donc un petit module du style: Function FileExists(s As String) As Boolean 'test de présence ou non du fichier recherché FileExists = Dir(s) <> "" xfile = FileExists End Function je voudrais savoir s'il existerait quelque chose du meme style pour savoir s'il existe un onglet ou pas dans un fichier. mon problème est que je voudrais dans certains cas pouvoir les suprimer mais encore faut il être certains qu'ils existent. si l'un d'entre vous à une petite idée sur le sujet je serais volontier preneur merci beaucoup et bonnes vacances à ceux qui partent Jacks
