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:
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
L'idée est de revoir la lignes 6. J'ai aussi essayé avec .Add mais le résultat est semblable.

Merci d'avance

Manu