Bonjour à tous,
Je suis plus que débutant sur VBA et j'ai besoin de votre aide. J'ai trouvé un code qui à priori fait exactement je veux, le seul problème c'est que cela me demande si je veux enregistrer le fichier après avoir actualisé les données et moi je veux que le fichier s’enregistre automatiquyent. J'ai cherché sur plusieurs forum mais je ne vois pas ou est l’erreur, pouvez-vous m'aider svp?
Sub RefreshWorkbooks()
Dim cel As Range, rgFiles As Range
Dim wb As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
With Worksheets("Sheet1")
Set rgFiles = .Range("A2") 'First file & path
Set rgFiles = Range(rgFiles, .Cells(.Rows.Count, rgFiles.Column).End(xlUp)) 'All the files & paths
End With
On Error Resume Next
For Each cel In rgFiles.Cells
If cel.Value <> "" Then
Set wb = Workbooks.Open(cel.Value, UpdateLinks:=True)
wb.RefreshAll
wb.Close SaveChanges:=True
End If
Next
On Error GoTo 0
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Merci d'avance,
Julien