Bonjour,
J'ai parcouru les posts traitant de ce sujet mais je n'arrive pas à intégrer le code à ma macro.
La macro ci-dessous fonctionne parfaitement sauf lorsqu'elle rencontre un fichier qui n'a pas de feuille nommé "PARAMETRES" ou là elle plante.
J'ai besoin que: SI la classeurs qu'elle ouvre contient une feuille nommé "PARAMETRES" la macro continue, SINON elle ferme le classeurs et passe au suivant.
Merci pour votre aide.
Explication du code existant:
Chaque mois, la macro va chercher 2 données dans environs 1000 fichiers répartit sur une trentaine de dossier
J'ai parcouru les posts traitant de ce sujet mais je n'arrive pas à intégrer le code à ma macro.
La macro ci-dessous fonctionne parfaitement sauf lorsqu'elle rencontre un fichier qui n'a pas de feuille nommé "PARAMETRES" ou là elle plante.
J'ai besoin que: SI la classeurs qu'elle ouvre contient une feuille nommé "PARAMETRES" la macro continue, SINON elle ferme le classeurs et passe au suivant.
Merci pour votre aide.
Code:
Sub recup()
'Parametre d'importation
ThisWorkbook.Activate
Dim Source As String
ligne = 1 'ligne d'ecriture
colonne = 1 ' colonne d'ecriture
For n = 19 To 50
Source = Sheets("PARAMETRESIMPORT").Range("K" & n)
Chemin = Source ' chemin d'accés
fichier = Dir(Chemin & "*????-????-??.xls")
Do While fichier <> ""
Workbooks.Open Filename:=Chemin & fichier
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
'localisation des données à extraire
Dim Effectif As String, NumGestion As String
Effectif = Sheets("BALANCE").Range("D89")
NumGestion = Sheets("PARAMETRES").Range("D9")
'Extraction des données
ThisWorkbook.Sheets("AjoutEffectif").Activate
Cells(ligne, colonne) = NumGestion
Cells(ligne, colonne + 1) = Effectif
ligne = ligne + 1
Windows(fichier).Close savechanges:=False ' fermeture du fichier sources sans enregistrer les changements
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
fichier = Dir ' Fichier suivant
Loop
Next
End Sub
Explication du code existant:
Chaque mois, la macro va chercher 2 données dans environs 1000 fichiers répartit sur une trentaine de dossier
Dernière édition: