Erreur de code

[guez]

Bonjour,

Savez-vous pourquoi la macro bloque sur la ligne Windows(fichier).Close savechanges:=False
Merci

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

ligne = 1 'ligne d'ecriture
colonne = 1 ' colonne d'ecriture

For n = 12 To 18
 
Source = Sheets("BASE").Range("O" & n)
fichier = Source & ".xls"
Workbooks.Open Filename:=fichier
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")

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

Windows(fichier).Close savechanges:=False 'fermeture du fichier sources sans enregistrer les changements
Range("A65536").End(xlUp).Offset(1, 0).Select
 
 
Next
 End Sub

 

[Pierrot93]

Re : Erreur de code

Re,

bah... tes lignes sont gérée par la boucle "for" non, cela devrait pas posé de problème, sinon mets le code utilisé....

 

[Pierrot93]

Re : Erreur de code

bonne soirée à toi également.