Bonjour,
Savez-vous pourquoi la macro bloque sur la ligne Windows(fichier).Close savechanges:=False
Merci
Savez-vous pourquoi la macro bloque sur la ligne Windows(fichier).Close savechanges:=False
Merci
Code:
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