J'ai créé avec macro (via Excel) une recherche qui donne ceci
Sub Macro2()
' Macro2 Macro
' Recherche dans col A l'occurence d'un mot ou partie de mot
'
Sheets("Touttes").Select
Columns("A:A").Select
Selection.Find(What:="cake", After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
End Sub
Comment paramétrer les diff parm (Lookin, MatchCase etc)
pour fignoler les actions
Le but est de trouver la ligne et :
1) si ok, executer le lien contenu et afficher le contenu puis stop
2) si ok, mais pas le bon chercher plus loin (jusqu'à fin (par ex rec 300 avec contenu ZZZ
3) si pas trouvé redemander nouveau extrait et recommencer
Mon fichier a cet aspect le résultat du contenus trié de plusieurs dossiers
Col A Col B
Nom Chemin et Nom
Asperges en gratin.PDF D:\A_GOODSYNC\..TES\SCANNED\Asperges en gratin.PDF
Aubergines cordonbleu.pdf D:\A_GOODSYNC\..TES\BettyB\Aubergines cordonbleu.pdf
Aubergines fines.docx D:\A_GOODSYNC\..TES\Diverses\Aubergines fines.docx
BAVAROIS aux FRAISES.doc D:\A_GOODSYNC\..UTES\BettyB\BAVAROIS aux FRAISES.doc
ZZZ Fin de liste
Eventuellement ou trouver les détails de cette fonction >Selection.Find<
