Lien fichier Excel à VB6 : recherche de cellule !
Résolu
guilleto
Messages postés
256
Date d'inscription
jeudi 23 octobre 2003
Statut
Membre
Dernière intervention
20 mars 2013
-
9 sept. 2004 à 12:08
philheiz Messages postés 117 Date d'inscription mercredi 3 décembre 2003 Statut Membre Dernière intervention 11 octobre 2007 - 9 sept. 2004 à 14:01
philheiz Messages postés 117 Date d'inscription mercredi 3 décembre 2003 Statut Membre Dernière intervention 11 octobre 2007 - 9 sept. 2004 à 14:01
A voir également:
- Lien fichier Excel à VB6 : recherche de cellule !
- Fichier json - Conseils pratiques -Javascript
- Fichier excel gestion de flotte - Forum Visual Basic 6
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Vba ouvrir un fichier excel sans l'afficher ✓ - Forum Visual Basic 6
- Arctan excel ✓ - Forum Visual Basic 6
1 réponse
philheiz
Messages postés
117
Date d'inscription
mercredi 3 décembre 2003
Statut
Membre
Dernière intervention
11 octobre 2007
1
9 sept. 2004 à 14:01
9 sept. 2004 à 14:01
Dim MaVariable
MaVariable=Range("CodeArticle_1").Value
Si tu es dans vb6 et non vba:
dim o_Execl as object
dim o_WBook as object
dim o_WSheet as object
Set o_Excel = CreateObject("excel.application")
Set o_WBook = o_Excel.Workbooks.Open(Nom du document)
Set o_WSheet=o_WBook.WorkSheets(Nom de la feuille)
MaVariable=o_WSheet.Range("CodeArticle_1").Value
o_WBook.Close False
o_Excel.Quit
Set o_Excel = Nothing
MaVariable=Range("CodeArticle_1").Value
Si tu es dans vb6 et non vba:
dim o_Execl as object
dim o_WBook as object
dim o_WSheet as object
Set o_Excel = CreateObject("excel.application")
Set o_WBook = o_Excel.Workbooks.Open(Nom du document)
Set o_WSheet=o_WBook.WorkSheets(Nom de la feuille)
MaVariable=o_WSheet.Range("CodeArticle_1").Value
o_WBook.Close False
o_Excel.Quit
Set o_Excel = Nothing
