Discussion :

[gringo_lepoto]

Bonjour,

Je communique avec excel depuis VB6

Code :

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

rsXL.Open "select * from [Inventory$A7:L66]", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.Text1.Text & ";Extended Properties=Excel 8.0;"

et je voudrais etre capable de remplacer L66 par la derniere cellule de mon fichier.

Comment je peux aller chercher la derniere cellule de mon fichier???

Merci

Gringo!!

[SilkyRoad]

bonjour

Tu peux essayer cette macro

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub DerniereDonneeDansFeuille_ClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\Documents and Settings\dossier\NomClasseurFermé.xls"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Feuil1"
 
    Set Cn = New ADODB.Connection
 
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    '-----------------
 
    'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Rst.Open texte_SQL, Cn, adOpenKeyset
 
    If Not Rst.EOF Then
        Rst.Move (Rst.RecordCount - 1)
        MsgBox Rst.Fields(Rst.Fields.Count - 1).Value
    End If
 
    '--- Fermeture connection ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

pour plus d'infos:

http://silkyroad.developpez.com/VBA/ClasseursFermes/



michel