ADO et copie ligne SI

[Pierre31]

Bonjour à tous,

Est-ce que en utilisant ADO je peux copier les lignes parmis d'autres d'un fichier fermé seulement SI sur ces lignes je trouve le mot 'TOTO' et ensuite coller ces lignes dans le fichier ouvert sur une feuille et lignes précises.

D'avance merci pour vos réponses
Cordialement
Pierre

 

[michel_m]

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

 

[Pierre31]

bonjour michel_m

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