Vérifier si feuille existe

Résolu
mir.kan Messages postés 178 Date d'inscription   Statut Membre Dernière intervention   -  
mir.kan Messages postés 178 Date d'inscription   Statut Membre Dernière intervention   -
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

1 réponse

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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"


0
mir.kan Messages postés 178 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Jordan45
0