Merci de poster les réponses au groupe afin d'en faire profiter à tous
Ok merci, j'arrive à faire la même chose que toi avec ce code la :
'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:Documents and SettingsARMANDMes documentstest1.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1)
appExcel.Visible = True
Voila, la je regarde pour ouvrir la feuille dans un objet OLE, j'y arrive avec la boite de dialogue qui fait la liaison entre vb et excel mais je veux faire la même chose par le code pour choisir la fiche à afficher dans une liste déroulant. Sinon j'ai aussi regardé l'objet SHEET qu'on a avec les reférences Micro. Excel ... puis le composant Feuille EXCEL.
Je continue mes recherche. Merci pour l'aide.
A+ Barth707
Ok merci,
j'arrive à faire la même chose que toi avec ce code la :
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:Documents and
SettingsARMANDMes documentstest1.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
appExcel.Visible = True
Voila, la je regarde pour ouvrir la feuille dans un objet
OLE, j'y arrive avec la boite de dialogue qui fait la
liaison entre vb et excel mais je veux faire la même
chose par le code pour choisir la fiche à afficher dans
une liste déroulant.
Sinon j'ai aussi regardé l'objet SHEET qu'on a avec les
reférences Micro. Excel ... puis le composant Feuille
EXCEL.
Ok merci, j'arrive à faire la même chose que toi avec ce code la :
'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:Documents and SettingsARMANDMes documentstest1.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1)
appExcel.Visible = True
Voila, la je regarde pour ouvrir la feuille dans un objet OLE, j'y arrive avec la boite de dialogue qui fait la liaison entre vb et excel mais je veux faire la même chose par le code pour choisir la fiche à afficher dans une liste déroulant. Sinon j'ai aussi regardé l'objet SHEET qu'on a avec les reférences Micro. Excel ... puis le composant Feuille EXCEL.
Je continue mes recherche. Merci pour l'aide.
A+ Barth707
Zoury
Salut Barth! :O)
Olivier tentait la même chose que toi cette été, regarde ce qu'il a trouvé : http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q260/4/10.asp&NoWebContent=1
Merci de poster les réponses au groupe afin d'en faire profiter à tous wrote in message news:0ea601c39e24$79752f00$ Ok merci, j'arrive à faire la même chose que toi avec ce code la :
'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:Documents and SettingsARMANDMes documentstest1.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1)
appExcel.Visible = True
Voila, la je regarde pour ouvrir la feuille dans un objet OLE, j'y arrive avec la boite de dialogue qui fait la liaison entre vb et excel mais je veux faire la même chose par le code pour choisir la fiche à afficher dans une liste déroulant. Sinon j'ai aussi regardé l'objet SHEET qu'on a avec les reférences Micro. Excel ... puis le composant Feuille EXCEL.
Je continue mes recherche. Merci pour l'aide.
A+ Barth707
Salut Barth! :O)
Olivier tentait la même chose que toi cette été, regarde ce qu'il a trouvé :
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q260/4/10.asp&NoWebContent=1
Merci de poster les réponses au groupe afin d'en faire profiter à tous
<anonymous@discussions.microsoft.com> wrote in message
news:0ea601c39e24$79752f00$a101280a@phx.gbl...
Ok merci,
j'arrive à faire la même chose que toi avec ce code la :
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:Documents and
SettingsARMANDMes documentstest1.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
appExcel.Visible = True
Voila, la je regarde pour ouvrir la feuille dans un objet
OLE, j'y arrive avec la boite de dialogue qui fait la
liaison entre vb et excel mais je veux faire la même
chose par le code pour choisir la fiche à afficher dans
une liste déroulant.
Sinon j'ai aussi regardé l'objet SHEET qu'on a avec les
reférences Micro. Excel ... puis le composant Feuille
EXCEL.
Olivier tentait la même chose que toi cette été, regarde ce qu'il a trouvé : http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q260/4/10.asp&NoWebContent=1
Merci de poster les réponses au groupe afin d'en faire profiter à tous wrote in message news:0ea601c39e24$79752f00$ Ok merci, j'arrive à faire la même chose que toi avec ce code la :
'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:Documents and SettingsARMANDMes documentstest1.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1)
appExcel.Visible = True
Voila, la je regarde pour ouvrir la feuille dans un objet OLE, j'y arrive avec la boite de dialogue qui fait la liaison entre vb et excel mais je veux faire la même chose par le code pour choisir la fiche à afficher dans une liste déroulant. Sinon j'ai aussi regardé l'objet SHEET qu'on a avec les reférences Micro. Excel ... puis le composant Feuille EXCEL.
Je continue mes recherche. Merci pour l'aide.
A+ Barth707
Barth707
Ok merci je vais allé voir, moi je me suis rabattu sur un OLE.
C pas mal je peux tout faire par le code, voila un exemple :
Private Sub Command2_Click()
OLE1.Class = "Excel.Sheet.8"
OLE1.CreateLink "C:Documents and SettingsARMANDMes documentstest1.xls"
End Sub
Private Sub Command3_Click()
OLE1.Class = "Word.Document.8"
OLE1.CreateLink "C:Documents and SettingsARMANDMes documentstest.doc"
End Sub
Avec ces boutons je peux faire afficher un doc word ou excel dans un OLE.
Voila encore merci.
A+ Barth707
Ok merci je vais allé voir, moi je me suis rabattu sur un
OLE.
C pas mal je peux tout faire par le code, voila un
exemple :
Private Sub Command2_Click()
OLE1.Class = "Excel.Sheet.8"
OLE1.CreateLink "C:Documents and SettingsARMANDMes
documentstest1.xls"
End Sub
Private Sub Command3_Click()
OLE1.Class = "Word.Document.8"
OLE1.CreateLink "C:Documents and SettingsARMANDMes
documentstest.doc"
End Sub
Avec ces boutons je peux faire afficher un doc word ou
excel dans un OLE.