Bonjour le Forum,

Je souhaite ouvrir la boite de dialogue "rechercher et remplacer" à l'ouverture du fichier; celle qu'on ouvre avec Ctrl+F.
J'ai essayé :
- Application.Dialogs(xlDialogFormulaFind).Show : mais la boite de dialogue est non modale.
- SendKeys "^f" : n'ouvre pas la boite de dialogue (dans mon exemple ci-dessous).

Après mes recherches infructueuses; je fais appel à votre aide.
Si en plus l'option "rechercher dans tous le classeur" pouvait être sélectionnée; ça serait le top

Sinon, il ne reste plus qu'à la re-créer avec un uferform

Mes essais :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
 Dim Inp As String, Res As Range
 
 ThisWorkbook.Activate
 Range("A1").Select
 SendKeys "^f"
 
 'Application.Dialogs(xlDialogFormulaFind).Show 'rechercher dans les formules
 'Application.Dialogs(xlDialogFormulaFind).Show , 2 'rechercher dans les valeurs (non testé)
 'Application.Dialogs(130).Show
 'Application.Dialogs(xlDialogFormulaReplace).Show
 
End Sub
Merci pour votre aide