Bonjour,

J'ai un code qui marche bien pour relever des données d'un autre classeur xlsm fermé.
Ma question est comment incorporer dans la formule ci-dessous une erreur Si ficheJour (nom de ma variable feuille)
existe pas alors Car actullement si la feuille existe pas j'ai une fennetre avec un message windows ou excel je c'est pas "sélectionné une feuille" avec la liste des feuilles du classeur

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub releverK1()
Dim Chemin As String, fichier As String
Dim strJour As String, strMois As String, equipe As String
Dim intJour As Integer, intMois As Integer, intAnnee As Integer
Dim varFeuilles As Variant
Chemin = Sheets("config").Range("N6")
intJour = Sheets("calage").Range("A1")
strJour = Format(intJour, "00")
intMois = Sheets("calage").Range("B1")
strMois = Format(intMois, "00")
intAnnee = Sheets("calage").Range("C1")
equipe = Sheets("calage").Range("A3")
ficheJour = strJour & "." & strMois & "." & intAnnee & "_" & equipe
fichier = "Komori_janvier_2016.xlsm"
On Error Resume Next 'les erreurs deviennent non bloquantes
   ThisWorkbook.Names.Add "calagek1", _
    RefersTo:="='" & Chemin & "[" & fichier & "]" & ficheJour & "'!$G$5:$H$6"
 
    With Sheets("vierge")
        .[G5:H6] = "=calagek1"
        .[G5:H6].Copy
        Sheets("config").Range("D3:E4").PasteSpecial xlPasteValues
        .[G5:H6].Clear
    End With
 
'gestion de lexception
Select Case Err.Number
       Case 1
'traitement
      Case 1004
'traitement
      Case Else
'dans tout autre cas
End Select
 
On Error GoTo 0 'les erreurs sont de nouveau bloquantes
 
End Sub