Bonjour,

J'utilise la portion de code suivante :
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
 
 
Workbooks("SUP_G_" & nom & ".xls").Activate 
 
'Activation de la feuille ou création de celle-ci si elle n'existe pas 
 
On Error Resume Next 
Worksheets(code_be).Activate 
 
If Err.Number <> 0 Then 
    Application.DisplayAlerts = False 
 
 
    Sheets("Sheet1").Activate 
    ActiveSheet.Copy before:=Worksheets("Sheet1") 
    ActiveSheet.Name = code_be 
 
    Err.Clear 
 
End If 
On Error GoTo 0
La plus part du tps cette partie fonctionne bien mais des fois elle bogue et m'envoie un message d'erreur :"Indice en dehors de la plage".
Je ne comprends pas pq puisque j'ai mis un "on error resume next", il devrait donc continuer....

Si qqn sait....
Merci.