|
|
|
|
Bonjour,
Je souhaite vérifier l'existence d'une feuille dans un classeur Excel. J'ai commencé ma macro qui en fonction de la semaine créée une nouvelle feuille portant le nom de cette semaine et intégre à l'intérieure de cette feuille des données. Or cette macro peut être ammenée à être plusieurs fois lancée dans la même semaine d'où la nécessité de faire cette vérification.
Pour information, j'execute ma macro en VBA via un userform.
En vous remerciant de votre aide
Configuration: Windows XP Internet Explorer 6.0 Suite Office 2003
Bonjour,
Sub Test_Feuille()
Dim NomFeuille As String, Reponse As Boolean
NomFeuille = "Feuil4"
Reponse = FeuilleExiste(NomFeuille)
MsgBox Reponse
End Sub
'
Function FeuilleExiste(MaFeuille As String) As Boolean
Dim Feuille As Worksheet
FeuilleExiste = False
For Each Feuille In Worksheets
If (Feuille.Name = MaFeuille) Then
FeuilleExiste = True
End If
Next Feuille
End Function
'
Lupin |
En fait chaque semaine, une feuille d'un classeur Excel nommé tot.xls est créée. J'ai developpé une macro qui recupére les informations saisies dans ce classeur, ouvre un autre classeur (titi.xls) copie la feuille nommée original et la recopie dans une nouvelle que l'on nomme N° semaine ( par exemple 30)
|