tester l'existence d'une feuille Excel

tester l'existence d'une feuille Excel - VB/VBA/VBS - Programmation

Marsh Posté le 06-07-2004 à 15:21:27    

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

Reply

Marsh Posté le 06-07-2004 à 15:21:27   

Reply

Marsh Posté le 06-07-2004 à 15:40:11    

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.
   

Reply

Marsh Posté le 06-07-2004 à 15:48:00    

Moi j'en étais arrivé là :

Code :
  1. Dim she As Worksheet
  2. On Error Resume Next
  3. Set she = Sheets("Extracted Data" )
  4. If she Is Nothing Then
  5.     Sheets.Add.Name = "Extracted Data"
  6.     ActiveSheet.Move After:=Sheets("Library" )
  7. End If


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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed