Discussion:Macros-commandes VBA/Lectures et écritures
Ajouter un sujetApparence
Dernier commentaire : il y a 10 ans par JackPotte dans le sujet Ouvrir un fichier EXCEL à partir de Visual Basic 6
Ouvrir un fichier EXCEL à partir de Visual Basic 6
[modifier le wikicode]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"