mrdep1978
Messages postés402Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 7 juin 20097 1 févr. 2005 à 18:21
Je te mets tout le code tel qu'il fonctionne chez moi:
Public Sub gsub_Test()
Dim xlApp As Object
Dim l_Sheet As Object
Dim l_WorkBook As Object
'Ouvre une nouvelle instance d'Excel
Set xlApp = CreateObject("Excel.Application")
'Ouvre ton fichier Excel
Set l_WorkBook = xlApp.Workbooks.Open("c:\test\Fichier Excel.xls")
'Travaille avec la feuille "Données". Ca évite par la suite d'avoir à réécrire systématiquement xlApp.Worksheets("Données").Range(....
Set l_Sheet = l_WorkBook.Worksheets("Données")
'Affiche le contenu de B3
MsgBox l_Sheet.Range("BR").Value
'Ferme le fichier Excel sans sauvegarder de modifs
l_WorkBook.Close False
'Quitte Excel
xlApp.Quit
'Détruit l'objet Application
Set xlApp = Nothing
End Sub
mrdep1978
Messages postés402Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 7 juin 20097 1 févr. 2005 à 16:49
Dim xlApp as Object
Dim l_Sheet as Object
'Ouvre une nouvelle instance d'Excel
Set xlApp = CreateObject("Excel.Application")
'Ouvre ton fichier Excel
xlApp.Open "c:\test\Fichier Excel.xls"
'Travaille avec la feuille "Données". Ca évite par la suite d'avoir à réécrire systématiquement xlApp.Worksheets("Données").Range(....
Set l_Sheet = xlApp.Worksheets("Données")
'Affiche le contenu de B3
MsgBox l_Sheet.Range("B3").value
'Ferme le fichier Excel sans sauvegarder de modifs
xlApp.Close False
'Quitte Excel
xlApp.Quit
'Détruit l'objet Application
Set xlApp=Nothing
mrdep1978
Messages postés402Date d'inscriptionjeudi 25 novembre 2004StatutMembreDernière intervention 7 juin 20097 1 févr. 2005 à 17:20
Ah oui, le Open et le Close se font sur un objet Workbook
Dim l_WorkBook as Object
....
Set l_WorkBook = xlApp.Workbooks.Open("c:\test\Fichier Excel.xls")
....
Au lieu de xlApp.Close False => l_WorkBook.Close False