YANN-56
XLDnaute Barbatruc
Bonjour à ceux qui passeront par là,
Voici le code de récupération dans une feuille d'un Classeur Fermé:
Je tente en vain, depuis un grand moment,
à transporter directement les données copiées dans le TextBox de l'USF, sans passer par la Feuille.
(Ce serait perdre une grande partie du temps gagné avec la méthode ADO)
L'arrière-pensée est de charger les "Tag" des Items d'une ListView de cette façon.
Je n'ai pas mis ce Control dans mon USF, car je sais qu'il pose soucis à certains.
Le Bouton 2 pourra servir de réceptacle pour les tests, car il en sera évidemment de même pour ses Items.
Merci, par avance, à qui saura m'aguiller........
Si ce n'est de me dire que ce que je cherche à faire est impossible!
Amicalement,
Yann
Voici le code de récupération dans une feuille d'un Classeur Fermé:
Code:
Private Sub CommandButton1_Click()
FICHIER = ThisWorkbook.Path & "\SOURCE.xls"
NOMFEUILLE = "CODE"
Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & FICHIER & ";Extended Properties=Excel 8.0;"
.Open
End With
texte_SQL = "SELECT * FROM [" & NOMFEUILLE & "$]"
Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute(texte_SQL)
Worksheets("RECUP").Range("A1").CopyFromRecordset Rst
Cn.Close
Set Cn = Nothing
End Subà transporter directement les données copiées dans le TextBox de l'USF, sans passer par la Feuille.
(Ce serait perdre une grande partie du temps gagné avec la méthode ADO)
L'arrière-pensée est de charger les "Tag" des Items d'une ListView de cette façon.
Je n'ai pas mis ce Control dans mon USF, car je sais qu'il pose soucis à certains.
Le Bouton 2 pourra servir de réceptacle pour les tests, car il en sera évidemment de même pour ses Items.
Merci, par avance, à qui saura m'aguiller........
Si ce n'est de me dire que ce que je cherche à faire est impossible!
Amicalement,
Yann
Dernière édition: