Ouvrir un fichier Excel à partir de VB6 Résolu/Fermé

Question

Bonjour,

Je cherche à ouvrir un fichier excel pour aller y écrire depuis une application VB6.

Le nom du fichier est contenu dans une variable et je ne parviens pas à ouvrir le fichier.

Merci de votre aide.

Pour info, voici le code

myshell = Shell("C:\Program Files\Microsoft Office\Office12\EXCEL.exe  fichier", 1)

Fichier est définit plus tôt est est du format c:\un dossier\un fichier.xls

Polux31 · Answer

Bonjour,

Essais ça:

myshell = Shell("C:\Program Files\Microsoft Office\Office12\EXCEL.exe" & Fichier, 1)

;o)

Jperrio · Answer

Salut Polux et merci de l'info.


J'ai essayé et ça ne fonctionne pas. Il m'envoie que le fichier est introuvable.

Si je remplace fichier par le vrai chemin alors ça fonctionne.

EN mode débogage, fichier est défini comme "c:\mon dossier\mon fichier.xls"

Crois tu que se soit les guillemets qui mettent le bazar et si oui, comment les enlever ?

Merci encore

lermite222 · Answer

Bonjour,
Shell permet d'ouvrir une application mais pas d'intervenir dedans à partir de ton appli.
Pour ça voir cette piste
A+

Jperrio · Answer

Merci lermite222

Le code que tu m'as donné fonctionne pour crer un nouveau fichier excel.

Là, je voudrais ouvrir celui contenu dans la variable fichier

Merci de me dire comment remplacer le     Set Book = EX.Workbooks.Add
 
en creation.

A+

Polux31 · Answer

re

Remplace Set Book = EX.Workbooks.Add  par Set Book = EX.Workbooks.Open(Fichier)

;o)

mistigri · Answer

et pourquoi pas tout simplement un OLE

lermite222 · Answer

bonjour,
En fait, avec EX tu peu appliquer toutes les fonctions "Application" et avec Book toutes les fonctions "WoorkBooks"
par exempl, si tu a beaucoups d'opérations à faire sur la Feuil1 ....
Dim Feuil as WorkSheets
Set Feuil = Book.sheets("Feuil1")
A+

Jperrio · Answer

Salut et merci Lermitte, ça fonctionne

Je voudrais encore une précision, tu dis que je peux modifier ma feuille, mais je voudrais rendre visible ou invisible certain bouton (CommandButton). 
Pour le moment, j'ai fais sheets(1).CommandButton4.visible=false mais ça marche pas.
J'ai remplacé Sheets par Book et rine non plus.

As tu la solution ?

Merci

lermite222 · Answer

1°) Pour les rendre Visible/caché il faut que ce soit des bouton ActiveX et pas des boutons "Formulaire"
2°) Employer l'index de la feuille n'est pas certain, les feuilles pouvant êtres déplacées.
3°) il faut probablement assigner la feuille au classeur... Book.Sheets("NomFeuille").comman....visible = false

Jperrio · Answer

Salut et merci, le problème est résolu, j'ai détourné la difficulté en trouvant une étape sur le fichier excel qui me fais devenir les bouton invisible.

Merci encore

As tu une solution pour imprimer un fichier pdf depuis vb 6 ?

Si oui, j'abuse, mais je prends

Merci

lermite222 · Answer

Là j'ai pas de solution
A+