Requête ADO Classeur Fermé

[MuscatMimi]

Bonjour a tout le Forum

Voila, j'ai ce Code

Private Sub UserForm_Initialize()
'Microsoft ActiveX DataObject doit être coché

' Champ nommé MaBd avec lignes vides
Set cnn = New ADODB.Connection

cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & _
ThisWorkbook.Path & "\" & "Base.xls"

Set rs = cnn.Execute("SELECT Nom,Ville,Salaire FROM MaBd where Nom<>''") ' "Feuil1" Classeur " Base.xls"

Me.ListBox1.List = Application.Transpose(rs.GetRows)
rs.Close

cnn.Close
Set rs = Nothing
Set cnn = Nothing

End Sub

J'aimerais savoir s'il serait possible, si j'ajoute un Textbox dans mon Usf
de Récupérer, la Valeur de la Cellule "F1" de cette "Feuil1" dans ma TextBox??,,

Bonne journée

Cordialement

 

[MuscatMimi]

Re : Requête ADO Classeur Fermé

Re Bonjour,

Ca y est je viens de trouver

Voici le Code

Private Sub UserForm_Initialize()
'Microsoft ActiveX DataObject doit être coché

' Champ nommé MaBd avec lignes vides
Set cnn = New ADODB.Connection
cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & _
ThisWorkbook.Path & "\" & "Base.xls"
Set rs = cnn.Execute("SELECT Nom,Ville,Salaire FROM MaBd where Nom<>''")
Me.ListBox1.List = Application.Transpose(rs.GetRows)
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing

'Cellule "E2" Nommée "Source" dans classeur fermé ADOsource.xls
Dim chemin As String
chemin = "'" & ActiveWorkbook.Path
TextBox1.Value = ExecuteExcel4Macro(chemin & "\ADOsource.xls'!source")


End Sub

Bonne journée

Cdlt