Discussion :

[JP.BLAISE]

Bonjour,

J’ai un fichier Excel (Ex : BDEX.xls) que je voudrais utiliser comme base de données.
Il est situé sur le disque dur de mon PC- F:/STOCKBASES/BDEX.xls
Ce fichier, comporte plusieurs feuilles (Ex : F1, F2, F3 et F4).
Je voudrais écrire un programme en VB6 (avec plusieurs forms : frm1-frm2-frm3) qui dialogue avec la base de données de façon à par exemple:
1)- En cliquant sur le bouton Command1 de la form1(VB6), il va chercher une information qui se trouve sur la feuille F2 (Excel) dans la cellule C3, pour la recopier dans la textbox2 de la form3(VB6)
2- En cliquant sur le bouton Command2 de la form1(VB6), il remplace l’information qui se trouve sur la feuille F3 (Excel) dans la cellule D6, par celle qui se trouve dans la textbox4 de la form2(VB6).
(Je suppose que si je veux effacer l’information, cela reviendra à la remplacer par une valeur nulle)
Comment dois- je : écrire le code ?
- Si l’information est numérique. Si l’information est du texte.
- Pour travailler dans la bonne feuille Excel.
Où et comment dois-je déclarer les variables ?
Remerciements

[l_autodidacte]

Salut
D'abord, regarde ce Tuto puis la FAQVB6 et plus exactement les 5 Q/R Regroupées dans Excel
Ensuite, voici un tout petit bout de code pour commencer :

[JP.BLAISE]

Monsieur,
En m’inspirant de votre exemple et du tutorial dont vous m’avez recommandé la lecture, j’ai écrit un programme qui devrait être capable d’aller chercher une valeur dans une cellule d’un fichier Excel et de la recopier dans la Text1 box de la form2.
Hélas, cela ne fonctionne pas.
A l’aide !
Remerciements

[l_autodidacte]

L'archive envoyée est corrompue. On ne peut l'extraire.
Pas besoin de mettre plusieurs fichiers séparés. Il suffit de les mettre dans un seul ZIP

[JP.BLAISE]

Bonjour,

Voila un nouveau fichier compressé avec 7-Zip

Merci

[l_autodidacte]

Bonjour;

Sur ma machine(avec Office 2003 + convertisseur vers 2007), le problème se situe au niveau de la conversion et renvoie l'erreur comme quoi le fichier est d'un format inconnu. Si je l'ouvre directement par Excel, aucun problème.

Quand je l'enregistre au format XLS(et pas XLSX), tout fonctionne correctement.

Une remarque : Les variables objet XL, WST et WBK sont déclarées Public dans Module1.bas, il n'y a plus besoin de les re-déclarer ailleurs, cela ne fait que charger la mémoire pour rien et charger la vue dans l'éditeur.
L'assignation Set XL = CreateObject("Excel.Application") n'a pas lieu d'exister non plus puisque dans le module de base on a Public XL As New Excel.Application:
Là c'est l'instanciation de l'objet Application d'Excel(Création d'une instance qu'on va utiliser par la suite)

Je pense que dans ce cas, on doit enregistrer le fichier au format XLS (pris en charge par toutes les versions : 2003 et +)

Une chose à ne oublier : Ajouter la référence Microsoft Excel xx.x Object Library depuis le menu Projet puis Références qu'on choisit dans la liste qui s'affiche.(xx.x représente la version d'Excel utilisée sur la machine)

Veuillez dorénavant envoyer les fichiers compressés au format ZIP reconnu par tous les utilitaires de compression

Ci-joint les fichiers modifiés :

[JP.BLAISE]

Merci beaucoup,
mon problème est résolu.
Cordialement