Vérifier si feuille existe [Résolu/Fermé]

Messages postés
178
Date d'inscription
mardi 6 septembre 2016
Statut
Membre
Dernière intervention
26 avril 2018
-
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
Afficher la suite 

1 réponse

Messages postés
26550
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 octobre 2019
1838
0
Merci
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"


mir.kan
Messages postés
178
Date d'inscription
mardi 6 septembre 2016
Statut
Membre
Dernière intervention
26 avril 2018
-
Merci Jordan45