ADO et copie ligne SI

Bonjour,

Oui bien sur sans difficulté si toto est une donnée d'un champ
dans ton ex^pression SQL tu auras par exemple

sélectionne la plage à récupérer
nom_plage = 'zone'
' requete SQL de tous les champs dans 'nom_plage' où le 'num' >0 et appartenant au groupe 'A' _
classsés dans ordre croissant
texte_SQL = 'SELECT * FROM [' & nom_plage & '] WHERE num>0 AND groupe='A' ORDER BY num;'

'crée une requete et éxécute la commande SQL avec la plage de fermé_ado.xls
Set requete = New ADODB.Recordset
Set requete = source.Execute(texte_SQL)
If requete.EOF Then
MsgBox 'Plage vide...'
Exit Sub
End If

'reporte dans home.xls
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range('J2').CopyFromRecordset requete

'fin de lecture fichier excel fermé
' ActiveSheet.Protect
requete.Close
source.Close

nota: la plage à récupérer dans le classeur source est nommée

Tu pourras trouver des topos ADO intéressants sur le WIKI page6 de MichelXLD

A+
Michel_M

bonjour michel_m

Merci pour ta réponse, je la met en application
tout de suite.
Bonne journée
Coedialement
Pierre