Vérifier si feuille existe

Résolu/Fermé

Vba
Feuille

mir.kan Messages postés 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018 - Modifié par crapoulou le 9/11/2016 à 13:18
mir.kan Messages postés 178 Date d'inscription mardi 6 septembre 2016 Statut Membre Dernière intervention 26 avril 2018 - 14 nov. 2016 à 11:32

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:

Vba vérifier si une feuille existe
Verifier un lien - Guide
Excel vérifier si une valeur existe dans une colonne ✓ - Forum Excel
Cette annonce n'existe plus facebook - Forum Facebook
Excel reporter des données sur une autre feuille avec conditions - Forum Excel
Vérifier si mot de passe piraté - Guide

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 4 650
9 nov. 2016 à 17:53

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
14 nov. 2016 à 11:32

Merci Jordan45

Discussions similaires

chercher une valeur dans plusieurs feuilles excel

VBA UserForm - Importer une feuille d'un autre classeur

Copier coller feuille d'un classeur vers un autre classeur

Comparer deux colonnes de deux feuilles excel avec mise jour

userform et visualisation feuille excel

Recherchev VBA avec données d'une autre feuille

Discussions similaires

Newsletters