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

Signaler
Messages postés
178
Date d'inscription
mardi 6 septembre 2016
Statut
Membre
Dernière intervention
26 avril 2018
 -
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
A voir également:

1 réponse

Réponse 1 / 1
Messages postés
32045
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
10 avril 2021
 3 383
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"


Signaler
Messages postés
178
Date d'inscription
mardi 6 septembre 2016
Statut
Membre
Dernière intervention
26 avril 2018
Merci Jordan45
Posez votre question