Discussion:Macros-commandes VBA/Lectures et écritures

Ouvrir un fichier EXCEL à partir de Visual Basic 6

Madame, Monsieur, J’ai sur le disque dur de mon PC un fichier « EXCEL » (planVs.xls), avec lequel je voudrais travailler à partir de VISUAL BASIC 6. Dans un premier temps j’ai créé une « form » avec un bouton «  Command », puis j’ai écrit les quelques lignes ci après :

(General)                                                                                (Déclaration)

Option Explicit

Private Sub Command1_Click()
Dim appExcel As Excel.Application
    Set appExcel = CreateObject("Excel.Application")
    Dim wbExcel As Excel.Workbook
    Dim wsExcel As Excel.Worksheet

    Set wbExcel = appExcel.Workbooks.Open"F:\JPP-BASES\& "\" & PlanVs.xls"
    Set wsExcel = wbExcel.Worksheets(1)

End Sub

Bingo ! Le fichier ne s’ouvre pas. Pourriez- vous me donner le code qui me permettrait d’ouvrir un fichier EXCEL) à partir de VB6 ?

Remerciements empressés

P.S : Je suis un particulier, retraité, qui est un authentique autodidacte.

        J’ai hérité sur le tard d’un PC sur lequel était chargé VB6.
        En cherchant sur le net, j’ai trouvé  votre site qui me permet  de comprendre (ou  de croire que j’ai compris) certaines choses. Mais le sujet est difficile et vaste.
       Soyez indulgent

Le problème se situe au niveau du chemin du fichier : non seulement les deux chaines entre guillemets ne sont pas concaténées avec & (il est à l'intérieur d'elles), mais en plus dans Windows il ne faut pas de double antislash, cela donnerait :

    Set wbExcel = appExcel.Workbooks.Open"F:\JPP-BASES\PlanVs.xls"

JackPotte ($♠) 22 février 2014 à 22:36 (UTC)