Importation fichier excel dans word par instanciation

Question

Salut &#224; tous

Je suis dans un fichier Word et je cherche &#224; r&#233;cup&#233;rer un fichier qui est dans excel sans bien s&#251;r &#224; le faire manuellement. Mais je n'ai pas de r&#233;sultat apr&#232;s ex&#233;cution de ma macro. Je retrouve mon document word initial. Je n'ai pas de message d'erreur. Je n'ai pas de fen&#234;tre de d&#233;bogage qui m'indique une erreur &#233;ventuelle qui pourrait me guider du type: fichier introuvable, erreur de syntaxe, etc..).
Mon code vba est le suivant:

Dim xlAppList As Excel.Application
Dim xls As Excel.Workbook
    ExcelFile = "C:\Documents and Settings\Administrateur\Mes documents
om de mon fichier.xls"
    Set xlAppList = CreateObject("Excel.Application")
    Set xls = xlAppList.Workbooks.Open(ExcelFile, 0, , , "")
       xls.Close savechanges:=True
    Set xlAppList = Nothing
    Set xls = Nothing
     End Sub

Par test, j'ai supprim&#233; la partie qui ferme le fichier excel (enfin je pense), c'est-&#224;-dire:
   xls.Close savechanges:=True
    Set xlAppList = Nothing
    Set xls = Nothing
Mais le r&#233;sultat est le m&#234;me. Je ne vois pas le fichier excel s'ouvrir. C'est comme si la premi&#232;re partie de mon code n'avait pas de sens en d&#233;pit de l'absence d'un message d'erreur. Bien s&#251;r, j'ai cr&#233;&#233; l'instance d'excel dans la biblioth&#232;que. Je ne comprends pas pourquoi, l'ex&#233;cution de ma macro ne permet pas d'obtenir un r&#233;sultat quelconque.

Quelqu'un sait-il pourquoi?

Un tr&#232;s grand merci &#224; ceux qui voudront bien se pencher sur cette question.

us_30 · Answer

Bonsoir,

Excuse moi, mais je ne comprends tout...

Tu dis que tu es dans Word, et que tu veux ouvrir un fichier Excel... IL faut &#234;tre pr&#233;cis, est-ce que tu ouvrir le fichier Excel pour l'incorporer dans Word, ou bien tu veux &#224; partir de Word ouvrir Excel qui ouvrira un fichier XLS... c'est deux choses diff&#233;rentes...

Pour la premi&#232;re, une simple macro montre l'instruction &#224; utiliser et &#224; r&#233;-adapter. 

Exemple :

Sub Macro1()
    Documents.Open FileName:="""Monfichier.xls""", ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=True, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
End Sub

Dans le deuxi&#232;me cas, on peut utiliser cette syntaxe :

Sub test()
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
ExcelSheet.Application.Workbooks.Open FileName:="C:\Mes documents\Monfichier.xls"
End Sub

Amicalement,
Us.

us_30 · Answer

oupss... la mise en forme est curieuse...

D&#233;sol&#233;,
Us.

cs_ZANUS · Answer

Bonjour,

Merci. C'&#233;tait bien la deuxi&#232;me. Ca roule!

@ +

Importation fichier excel dans word par instanciation

3 réponses

Discussions similaires