vérifier si feuille existe Résolu

Question

Bonjour, 
 J'ai crée une macro qui  me permet de créer un classeur s'il n'existe pas et y insérer ma première feuille. De la même manière j'aimerais insérer  ma deuxième feuille dans le même classeur. Est ce possible?
 voici la macro que j'ai créée:

            'On test si le fichier d'archivage existe
            If Dir(AdresseFichierArchivage & ".xlsx") = "" Then
                'Le fichier n'existe pas
                'On crée un nouveau classeur
                Workbooks.Add
                'On enregistre le classeur
                ActiveWorkbook.SaveAs Filename:=AdresseFichierArchivage
                'On crée une feuille nommée "Mir"
                ActiveWorkbook.Sheets.Add.Name = "Mir"
           
                'On ferme le classeur d'archivage
                ActiveWorkbook.Close (True)

Merci d'avance

jordane45 · Answer

Bonjour, 
 
Pour tester si une feuille existe, tu peux utiliser cette fonction

Function FExist(NomF As String) As Boolean ' test si la feuille existe 
Application.ScreenUpdating = False 
On Error Resume Next 
FExist = Not Sheets(NomF) Is Nothing 
Application.ScreenUpdating = True 
End Function 


et pour l'utiliser

if FExist( "Le nom de ta feuille") Then
   'Une feuille de ce nom existe déjà
   '...
  Else
   'La feuille n'existe pas
    '...
  End if


Pour ce qui est de l"ajout... ben tu peux faire comme pour l'autre et utiliser

ActiveWorkbook.Sheets.Add.Name = "Le nom de ta feuille"

Vérifier si feuille existe

1 réponse

Discussions similaires

Newsletters