Probleme avec GoTo

[guez]

Bonjour,

Le GoTo dans la macro suivante fonctionne sur la premiere erreur rencontré mais pas sur la 2eme?

La macro: J'ouvre une liste de fichier afin d'y extraire des données. La macro bloque quand elle ne trouve pas de fichier. Dans ce cas, je souhaite qu'elle continue.

Merci pour votre aide

Sub recup()
 'Parametre d'importation
ThisWorkbook.Activate
Dim Source As String ' Fichier As String

ThisWorkbook.Sheets("EXPORT").Activate ' vider la feuille EXPORT
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select

ThisWorkbook.Sheets("BASE").Activate 'filtrer les sites sur lequel il y a du CA
ActiveSheet.Range("$A$1:$O$2999").AutoFilter Field:=12, Criteria1:="1"
ActiveSheet.Range("$A$1:$O$2999").AutoFilter Field:=6, Criteria1:="=*T1*", _
        Operator:=xlAnd
        
Columns("A:O").Select 'coller la nouvelle base dans EXPORT
Selection.Copy
Sheets("EXPORT").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ligne = 2 'ligne d'ecriture
colonne = 16 ' colonne d'ecriture

For n = 2 To 1637
 
Source = Sheets("EXPORT").Range("O" & n)
Fichier = Source & ".xl" + "**"
Workbooks.Open Filename:=Fichier
On Error GoTo Suite
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
 
'localisation des données à extraire
Dim Effectif As String, NumGestion As String, Jours As String

Effectif = Sheets("BALANCE").Range("D89")
NumGestion = Sheets("PARAMETRES").Range("D9")
Jours = Sheets("RESULTAT").Range("C8")
ActiveWorkbook.Close savechanges:=False 'fermeture du fichier sources sans enregistrer les changements

'Extraction des données
ThisWorkbook.Sheets("EXPORT").Activate
Cells(ligne, colonne) = NumGestion
Cells(ligne, colonne + 1) = Effectif
Cells(ligne, colonne + 2) = Jours

Suite:

ligne = ligne + 1

ThisWorkbook.Activate
Range("p65536").End(xlUp).Offset(1, 0).Select
 
Next
 End Sub

 

[Pierrot93]

Re : Probleme avec GoTo

Re,

si tu ouvres plusieurs fils sur le même sujet, cela va pas être facile pour tout le monde....
https://www.excel-downloads.com/threads/erreur-de-code.207142/

 

[guez]

Re : Probleme avec GoTo

Je sais mais sur mon post précédent, le probléme initial n'est pas le même. Je pensais bien faire justement...