Lien fichier Excel à VB6 : recherche de cellule !

Résolu
Signaler
Messages postés
256
Date d'inscription
jeudi 23 octobre 2003
Statut
Membre
Dernière intervention
20 mars 2013
-
Messages postés
117
Date d'inscription
mercredi 3 décembre 2003
Statut
Membre
Dernière intervention
11 octobre 2007
-
J'ai un fichier Excel dans lequel j'ai des cellules portant un nom spécifique.
exemple : la cellule A1 porte le nom "CodeArticle_1" !

Comment puis-je récupérer à partir d'un programme VB le contenu de cette cellule "CodeArticle_1" sachant que seul le nom est invariant (elle pourrait très bien se trouver en C12 etc.)

Si quelqu'un possède un exemple de ce genre de programme cela serait fort sympathique de me l'envoyer !

Par avance merci !

1 réponse

Messages postés
117
Date d'inscription
mercredi 3 décembre 2003
Statut
Membre
Dernière intervention
11 octobre 2007
1
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
1
Merci

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

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