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 -
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:
Merci d'avance
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:
- Vba vérifier si une feuille existe
- Ymail.com existe - Forum Mail
- Verifier compatibilite windows 11 - Guide
- Feuille de score belote excel - Forum Excel
- Ymail.FR, ça existe? - Forum Réseaux sociaux
- Gmail.fr existe - Forum Gmail
1 réponse
Bonjour,
Pour tester si une feuille existe, tu peux utiliser cette fonction
et pour l'utiliser
Pour ce qui est de l"ajout... ben tu peux faire comme pour l'autre et utiliser
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
Statut
Membre
Dernière intervention
Merci Jordan45