Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gloops
Salut,
michor a écrit :
Set AppExcel = CreateObject("Excel.Application")
L'erreur, c'est que si le fichier est déjà ouvert, la syntaxe de création de l'objet serait plutôt du style : Set xlWbk = GetObject("C:MonFichier.xls") Set xlApp = xlWbk.Application
Je dis ça sans le tester à l'instant, GetObject accepte un deuxième argument Class, qui en l'occurrence pourrait être "Excel.Workbook", et où on peut aussi passer une chaîne vide. A tester.
Si le fichier n'était pas ouvert, la syntaxe serait effectivement : Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.OpenWorkbook("C:Fichier.xls") 'attention je cite tout de mémoire Set xlWbk = xlApp.Workbooks("C:Fichier.xls")
CreateObject crée un objet GetObject obtient un objet ouvert
Salut,
michor a écrit :
Set AppExcel = CreateObject("Excel.Application")
L'erreur, c'est que si le fichier est déjà ouvert, la syntaxe de
création de l'objet serait plutôt du style :
Set xlWbk = GetObject("C:MonFichier.xls")
Set xlApp = xlWbk.Application
Je dis ça sans le tester à l'instant, GetObject accepte un deuxième
argument Class, qui en l'occurrence pourrait être "Excel.Workbook", et
où on peut aussi passer une chaîne vide. A tester.
Si le fichier n'était pas ouvert, la syntaxe serait effectivement :
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.OpenWorkbook("C:Fichier.xls")
'attention je cite tout de mémoire
Set xlWbk = xlApp.Workbooks("C:Fichier.xls")
CreateObject crée un objet
GetObject obtient un objet ouvert
L'erreur, c'est que si le fichier est déjà ouvert, la syntaxe de création de l'objet serait plutôt du style : Set xlWbk = GetObject("C:MonFichier.xls") Set xlApp = xlWbk.Application
Je dis ça sans le tester à l'instant, GetObject accepte un deuxième argument Class, qui en l'occurrence pourrait être "Excel.Workbook", et où on peut aussi passer une chaîne vide. A tester.
Si le fichier n'était pas ouvert, la syntaxe serait effectivement : Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.OpenWorkbook("C:Fichier.xls") 'attention je cite tout de mémoire Set xlWbk = xlApp.Workbooks("C:Fichier.xls")
CreateObject crée un objet GetObject obtient un objet ouvert
michor
merci , je teste Pour la facilité, j'aurais préféré conserver "C:MonFichier" ouvert parce je souhaite pouvoir transférer des données de l'un à l'autre.
michor
"Gloops" a écrit dans le message de news:
Salut,
michor a écrit : > Set AppExcel = CreateObject("Excel.Application")
L'erreur, c'est que si le fichier est déjà ouvert, la syntaxe de création de l'objet serait plutôt du style : Set xlWbk = GetObject("C:MonFichier.xls") Set xlApp = xlWbk.Application
Je dis ça sans le tester à l'instant, GetObject accepte un deuxième argument Class, qui en l'occurrence pourrait être "Excel.Workbook", et où on peut aussi passer une chaîne vide. A tester.
Si le fichier n'était pas ouvert, la syntaxe serait effectivement : Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.OpenWorkbook("C:Fichier.xls") 'attention je cite tout de mémoire Set xlWbk = xlApp.Workbooks("C:Fichier.xls")
CreateObject crée un objet GetObject obtient un objet ouvert
merci , je teste
Pour la facilité, j'aurais préféré conserver "C:MonFichier" ouvert parce je
souhaite pouvoir
transférer des données de l'un à l'autre.
michor
"Gloops" <gloops@niark.invalid> a écrit dans le message de news:
e5boS1LaGHA.3304@TK2MSFTNGP04.phx.gbl...
Salut,
michor a écrit :
> Set AppExcel = CreateObject("Excel.Application")
L'erreur, c'est que si le fichier est déjà ouvert, la syntaxe de
création de l'objet serait plutôt du style :
Set xlWbk = GetObject("C:MonFichier.xls")
Set xlApp = xlWbk.Application
Je dis ça sans le tester à l'instant, GetObject accepte un deuxième
argument Class, qui en l'occurrence pourrait être "Excel.Workbook", et
où on peut aussi passer une chaîne vide. A tester.
Si le fichier n'était pas ouvert, la syntaxe serait effectivement :
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.OpenWorkbook("C:Fichier.xls")
'attention je cite tout de mémoire
Set xlWbk = xlApp.Workbooks("C:Fichier.xls")
CreateObject crée un objet
GetObject obtient un objet ouvert
merci , je teste Pour la facilité, j'aurais préféré conserver "C:MonFichier" ouvert parce je souhaite pouvoir transférer des données de l'un à l'autre.
michor
"Gloops" a écrit dans le message de news:
Salut,
michor a écrit : > Set AppExcel = CreateObject("Excel.Application")
L'erreur, c'est que si le fichier est déjà ouvert, la syntaxe de création de l'objet serait plutôt du style : Set xlWbk = GetObject("C:MonFichier.xls") Set xlApp = xlWbk.Application
Je dis ça sans le tester à l'instant, GetObject accepte un deuxième argument Class, qui en l'occurrence pourrait être "Excel.Workbook", et où on peut aussi passer une chaîne vide. A tester.
Si le fichier n'était pas ouvert, la syntaxe serait effectivement : Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.OpenWorkbook("C:Fichier.xls") 'attention je cite tout de mémoire Set xlWbk = xlApp.Workbooks("C:Fichier.xls")
CreateObject crée un objet GetObject obtient un objet ouvert
