Bonjour,
Je souhaite récupérer des informations dans plusieurs classeurs. Mon problème est qu'actuellement, j'ouvre mon classeur (l'ouverture de ce fichier prend un certain temps), je récupère les informations et je referme le fichier.
Existe-t-il un moyen de récupérer les information d'un fichier excel sans ouvrir son interface graphique?
Code actuel:
L'idée est de revoir la lignes 6. J'ai aussi essayé avec .Add mais le résultat est semblable.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim objWorkbookmain As Workbook, objWorkbook1 As Workbook Dim chemin As String Set objWorkbookmain = Application.ActiveWorkbook chemin = objWorkbookmain.Path Set objWorkbook1 = Application.Workbooks.Open(chemin & "\1.xls") objWorkbookmain.Sheets(1).Cells(1, 1) = objWorkbook1.Sheets(1).Cells(1, 1) objWorkbook1.Close
Merci d'avance
Manu
Partager