Export données de VB5 vers Excell [Résolu]

Messages postés
5
Date d'inscription
vendredi 11 avril 2008
Statut
Membre
Dernière intervention
29 juin 2008
- - Dernière réponse : PIERRELFE
Messages postés
5
Date d'inscription
vendredi 11 avril 2008
Statut
Membre
Dernière intervention
29 juin 2008
- 29 juin 2008 à 21:53
je cherche desesperement sous Visual basic 5.0 (VB6 trop cher pour moi)
à ouvrir une feuille excell existante
à aller ecrire dans une cellule de la feuille excell
et au contraire d'aller chercher le contenu d'une cellule

à votre bon coeur

Pierre[Insert_Emoticon%28%27/imgs2/smile_blackeye.gif%27%29; ]
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
31
3
Merci
Il te manque la référence vers Excel !

Dans ton IDE, Menu Projet / Référence, coche la ligne indiquant Microsoft Excel xx.x Object Library

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 223 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_casy
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
28
0
Merci
salut,

tu trouveras beaucoup de bouts de code VB6 (compatibles VB5) sur www.codyx.org

exemples :
http://www.codyx.org/recherche.aspx?r=excel

++
<hr size="2" width="100%" />
<hr size="2" width="100%" />
Commenter la réponse de PCPT
Messages postés
5
Date d'inscription
vendredi 11 avril 2008
Statut
Membre
Dernière intervention
29 juin 2008
0
Merci
merci pour la reponse
j'ai testé un prog trouvé dans www.codyx.org
 mais cela bloque sur le premier Dim "type defini par l'utilisateur non défini"

Sub essai()
'Objet excel
Dim XlApp As New Excel.Application
'Objet Classeur
Dim XlWorkBook As Excel.Workbook
XlApp.Visible = True
'Ouvre un classeur neuf
Set XlWorkBook = XlApp.Workbooks.Add
'[...les mofid => Objets Worksheets... Ranges]
'Sauveagrde le classeur
Call XlWorkBook.Close(True)
'Quitte l'application
Call XlApp.Quit
'Destruction des objets
Set XlApp = Nothing
Set XlWorkBook = Nothing
End Sub

Pierre[Insert_Emoticon%28%27/imgs2/smile_blackeye.gif%27%29; ]
Commenter la réponse de PIERRELFE
Messages postés
5
Date d'inscription
vendredi 11 avril 2008
Statut
Membre
Dernière intervention
29 juin 2008
0
Merci
merci cela va beaucoup mieux
il me reste enroce du chemin mais j'ai de quoi chercher
cordialement

Pierre[Insert_Emoticon%28%27/imgs2/smile_blackeye.gif%27%29; ]
Commenter la réponse de PIERRELFE