CyberNeo99
XLDnaute Occasionnel
Bonjour à tous,
Je sais que le sujet a déjà été traiter mais en fait j'ai regardé un peu pas mal tout ce qui a été écrit et je me demande si cela ne pas être plus simple car ce que je veux est du type suivant :
Sub Tester_existence_feuille ()
If (Le nom de ma feuille) existe Then
Faire tel action
Else
Faire tel autre action
End If
End Sub
J'ai essayé le code suivant :
Sub Existence_feuille ()
Worksheets(Le nom de ma feuille.Select
If Err <> 0 Then
Faire tel action
Else faire tel autre action
End If
End Sub
Ça ne fonctionne pas bien sûr car il bloque sur la première car si la feuille n'existe pas erreur de compilation
Dans ce que j'ai regardé il y a création de variable et tout le reste ce qui alourdira mon fichier et la possibilité de faire des erreurs alors... J'aimerais que cela soit plus simple cmme du type de ce que j'ai écrit et comme je ne programme pas en VB alors je me tourne vers vous car j'ai été bien servi sur ce forum qui soit dit en passant est merveilleux.
J'apprécie l'aide de tous ceux du forums.
Merci à l'avance
CyberNeo
Je sais que le sujet a déjà été traiter mais en fait j'ai regardé un peu pas mal tout ce qui a été écrit et je me demande si cela ne pas être plus simple car ce que je veux est du type suivant :
Sub Tester_existence_feuille ()
If (Le nom de ma feuille) existe Then
Faire tel action
Else
Faire tel autre action
End If
End Sub
J'ai essayé le code suivant :
Sub Existence_feuille ()
Worksheets(Le nom de ma feuille.Select
If Err <> 0 Then
Faire tel action
Else faire tel autre action
End If
End Sub
Ça ne fonctionne pas bien sûr car il bloque sur la première car si la feuille n'existe pas erreur de compilation
Dans ce que j'ai regardé il y a création de variable et tout le reste ce qui alourdira mon fichier et la possibilité de faire des erreurs alors... J'aimerais que cela soit plus simple cmme du type de ce que j'ai écrit et comme je ne programme pas en VB alors je me tourne vers vous car j'ai été bien servi sur ce forum qui soit dit en passant est merveilleux.
J'apprécie l'aide de tous ceux du forums.
Merci à l'avance
CyberNeo
Dernière édition: