Accéder à la valeur d'une cellule d'un autre fichier excel depuis VBA

Version imprimable

Bonjour à tous,

Je suis à la recherche d'une solution pour accéder , depuis un programme VBA , à la valeur d'une cellule (disons $E$4 par exemple) d'un autre fichier excel.

Pour l'instant j'ai fait ca , qui permet de choisir et d'ouvrir le fichier sur lequel on veut accéder à la cellule.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim sChemin As String Dim objXls As New Excel.Application sChemin = Application.GetSaveAsFilename() ' ouvrir un document Excel 'objXls.Documents.Open sChemin 'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") Set wbExcel = appExcel.Workbooks.Open(sChemin) appExcel.Visible = True
mais après je ne sais plus comment lui dire "cellule E4 ". Value ?

merci beaucoup

P.S.: il est tout à fait possible de changer complètement de méthode depuis le début

12/09/2008, 12h27
youn1096

Bonjour,

Regarde ce Tuto de SilkyRoad, c'est une tres bonne methode qui t'evite d'ouvrir le classeur concerné:
http://silkyroad.developpez.com/VBA/ClasseursFermes/
12/09/2008, 12h40
guillaume7501

ok merci:D
16/09/2008, 17h38
AlainTech

Problème résolu?

Bouton :resolu:, en bas de discussion.

Merci

Hello ! encore moi !

En fait, ce tutoriel est très bon, mais lorsque j'envoie la Sub extractionValeurCelluleClasseurFerme() (lire une valeur dans un classeur fermé) , alors : il envoie l'erreur suivante:

" erreur d'éxécution '-2147467259(800004005), La table externe n'est pas dans le format attendu"

au niveau de :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
dans la Sub qui commence ainsi:
 
Sub extractionValeurCelluleClasseurFerme()
    Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Fichier As String, Cellule As String, Feuille As String
 
    'Adresse de la cellule contenant la donnée à récupérer
    Cellule = "B4:B4"
 
    Feuille = "Feuil1$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = Application.GetSaveAsFilename(, , , "Sélectionnez l'agrégat à intégrer à la relation de couverture, puis cliquez sur <Enregistrer>")
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"

J'ai essayé de cocher des bibliothèques dans "Références", mais je n'ai pas trop d 'idées, merci bcp par avance !

G.

19/09/2008, 20h38
SilkyRoad

bonsoir

je ne comprend pas à quoi sert la méthode GetSaveAsFilename dans ta procédure.
Remplace GetSaveAsFilename par GetOpenFilename si tu veux sélectionner un classeur :

http://excel.developpez.com/faq/?pag...etOpenFileName

bonne soirée
michel