Tester l'existence d'un classeur excel avant d'en créer un

[Sebast]

Bonjour,

Je cherche à savoir si un fichier Excel contient déjà un classeur portant un nom particulier. En effet, ma macro ajoute un classeur vide à la fin du fichier et le renomme d’après le contenu d’une cellule, or ce nom peut se présenter plusieurs fois, ce qui conduit alors à un plantage.

Voici le code :

Sub inserer_dossier()
Dim Affichage As Variant
Dim NBfeuilles As Integer
NBfeuilles = Worksheets.Count
Sheets("saisie").Select ‘ je me positionne sur le classeur Saisie, où se trouve le nom
Affichage = Range("D4").Value
Sheets.Add After:=Sheets(NBfeuilles)
Sheets(NBfeuilles + 1).Name = Affichage
End Sub


J’imagine qu’il faut placer un test sur la variable Affichage juste avant la création du classeur portant ce nom, mais je ne sais pas comment m’y prendre. Je voudrais que le test vérifie l’existence préalable du classeur Affichage et s’il existe, n’en tienne pas compte.

Merci d’avance pour vos lumières ! (au passage, si des lourdeurs vous apparaissent, n’hésitez pas à me le dire mais je suis vraiment débutant, donc je préfère la simplicité)

Sebast

 

[Pierrot93]

Re : Tester l'existence d'un classeur excel avant d'en créer un

Bonjour,

tu parles de classeur mais il semble que ce soit des feuilles, si c'est bien le cas essaye ainsi :

Option Explicit
Sub test()
Dim nomfeuille As String
nomfeuille = "Feuil1"
If FeuilleExiste(nomfeuille) Is Nothing Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = affichage
End Sub
Function FeuilleExiste(f As String) As Worksheet
On Error Resume Next
Set FeuilleExiste = Worksheets(f)
End Function

bon après midi
@+

Edition : bonjour cc