Sly le globe trotter
XLDnaute Occasionnel
Bonjour à tous,
Grâce à des recherches sur ce forum, j'ai pu développer le bout de code qui me permet de copier dans un classeur ouvert des données présentes dans des fichiers fermés.
Petit problème, les fichiers que j'ouvre via
ne sont pas refermés... Quel est le protocole à suivre pour fermer un tel fichier ?
Merci pour votre aide !
Sly
Grâce à des recherches sur ce forum, j'ai pu développer le bout de code qui me permet de copier dans un classeur ouvert des données présentes dans des fichiers fermés.
Code:
Private Sub RgptEval_Click()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i, k As Integer
Dim xls As New Excel.Application
Dim FeuilleSource As Excel.Worksheet, FeuilleCible As Excel.Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(ThisWorkbook.Path)
Set Files = Dossier.Files
k = 3
If Files.Count <> 0 Then
For Each File In Files
If File.Name <> "Synthèse Evaluation Formation.xlsm" And File.Name <> "~$Synthèse Evaluation Formation.xlsm" Then
Set FeuilleSource = xls.Workbooks.Open(File.Path).Worksheets("Eval")
Set FeuilleCible = ActiveWorkbook.Worksheets("RgptEval")
With FeuilleSource
.Range(.Cells(22, 9), .Cells(43, 9)).Copy
End With
With FeuilleCible
.Range(.Cells(6, k), .Cells(27, k)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False
End With
Set xls = Nothing
Set FeuilleSource = Nothing
Set FeuilleCible = Nothing
xls.Quit
k = k + 3
End If
Next
End If
Set fso = Nothing
Set Dossier = Nothing
end subPetit problème, les fichiers que j'ouvre via
Code:
Set FeuilleSource = xls.Workbooks.Open(File.Path).Worksheets("Eval")Merci pour votre aide !
Sly
