Discussion :

[guillaume7501]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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/

[guillaume7501]

ok merci

[AlainTech]

Problème résolu?

Bouton , en bas de discussion.

Merci

[guillaume7501]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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