tester l'existence d'une feuille Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : tester l'existence d'une feuille Excel

mirascheat

Bonjour,
Je voudrais juste savoir comment tester si une feuille Excel existe (et si ce n'est pas le cas, créer cette feuille)

If Sheets("toto" ) Is Nothing Then

Mais ca ne semble pas marcher :cry:
Toute aide est la bienvenue

Publicité

JihemAir

Je sais pas

Citation :

Dim shAct as WorkSheet
Dim strSheetName As String
Dim boolFound as Boolean

strSheetName = "Test"
For Each shAct In ThisWorkbook.Worksheets
If StrComp(shAct.Name, strSheetName, vbTextCompare) = 0 Then
boolFound = True
shAct.Activate
Exit For
End If
Next shAct

Un bout de code que j'ai employé qq part. Si boolFound est False, il faut créer l feuille.

mirascheat

Moi j'en étais arrivé là :

Code :

Dim she As Worksheet
On Error Resume Next
Set she = Sheets("Extracted Data" )
If she Is Nothing Then
Sheets.Add.Name = "Extracted Data"
ActiveSheet.Move After:=Sheets("Library" )
End If

Malheureusement sans "On Error Resume Next" ca plante :cry:

Merci :jap:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

tester l'existence d'une feuille Excel

Sujets relatifs
Message d'excel sous VB	Besoin d aide pour une macro excel / VBA svp
Affichage dans fichier Excel : convertir les nombres en "texte"	Insertion de données excel dans un tableaux phpmyadmin
Filtre elaboré vba excel	vba exel ( comment ferme une feuille d'un classeur ouvert exel)
écran d'attente sur code long en vb excel	[Batch] Tester une variable
envoyer ligne avec tabulation pour excel	[ACCES]import fichiers excel modifiable
Plus de sujets relatifs à : tester l'existence d'une feuille Excel

Page générée en 0.038 secondes