Discussion :

[bernard38]

Bjr,
Comment puis-je tester avant de lancer une action sur une feuille dans un classeur (la macro est dans le classur) si la feuille "machin" existe bien sans qu'il me fasse une erreur ?
ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     Set placridat = Worksheets(mois & "AUR").Range("A6:A" & Worksheets(mois & "AUR").Range("A65536").End(xlUp).Row)

si la feuille nommée a été supprimée la macro plante

cdt

[kiki29]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Function ExistenceFeuille(ByVal sNomFeuille As String) As Boolean
  On Error Resume Next
  ExistenceFeuille= Sheets(sNomFeuille).Name <> ""
  Err.Clear
End Function
 
Sub Tst()
    If ExistenceFeuille("Feuil1234") Then
       .....
    Else
       .....
    End If
End Sub

[bernard38]

Merci KiKi
Je fais appel à la fonction à quel moment ?

[kiki29]

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
.....
Sub Tst()
Dim NomFeuille As String
Dim Mois As String
Dim placridat As Range
 
    Mois = "Mars"
    NomFeuille = Mois & "AUR"
 
    If Not ExistenceFeuille(NomFeuille) Then Exit Sub
 
    Set placridat = Worksheets(Mois & "AUR").Range("A6:A" & Worksheets(Mois & "AUR").Range("A65536").End(xlUp).Row)
 
End Sub

[bernard38]

Merci encore je vais tester
Cdt