Ouvrir un fichier Excel à partir de VB6
Résolu
Jperrio
Messages postés
71
Date d'inscription
Statut
Membre
Dernière intervention
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Vb6 excel
- Liste déroulante excel - Guide
- Vb6 - Télécharger - Divers Utilitaires
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
11 réponses
Bonjour,
Essais ça:
myshell = Shell("C:\Program Files\Microsoft Office\Office12\EXCEL.exe" & Fichier, 1)
;o)
Essais ça:
myshell = Shell("C:\Program Files\Microsoft Office\Office12\EXCEL.exe" & Fichier, 1)
;o)
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
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
Bonjour,
Shell permet d'ouvrir une application mais pas d'intervenir dedans à partir de ton appli.
Pour ça voir cette piste
A+
Shell permet d'ouvrir une application mais pas d'intervenir dedans à partir de ton appli.
Pour ça voir cette piste
A+
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+
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+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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+
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+
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
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
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
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