Discussion :

[Roland2008]

Bonjour,

J'aimerais insérer dans une feuille Excel un lien qui ouvre un autre document Excel avec sa boite de dialogue "Ctrl+F" vers un mot prédéfini.

Je crois qu'il existe déjà un moyen de faire un raccourci Ctrl+F vers un autre onglet au sein d'un même classeur (à l'aide de macros notamment), mais il s'agit ici de faire un lien vers un fichier distinct.

Pourriez-vous m'aider ?

Je suis sous Excel 2007.

Merci beaucoup !

Roland

[Menhir]

As-tu quelques notions de VBA ?

[Roland2008]

Vaguement. Mais je peux toujours me débrouiller ! En fait, je me doute qu'il va falloir passer par là

[Menhir]

Tu ne pourras pas faire de recherche sur un fichier qui n'est pas ouvert.
Il faut donc commencer ta macro par un Workbook.Open avec le nom de ton fichier destination.

Je ne suis pas sûr qu'il soit possible d'ouvrir la fenêtre de recherche avec VBA.
Généralement, avec une macro, on lance plutôt directement la recherche.
Ce qui permet, une fois l'information récupérée, de refermer le classeur source de manière transparente pour l'utilisateur.

Pour t'orienter dans cette partie, il faudrait savoir plus précisément ce que tu cherches à obtenir comme information au final.

[Roland2008]

D'accord pour le workbook. En faisant un codage automatique en enregistrant une macro il apparaît effectivement.

En fait, en exécutant la macro dans un fichier A je voudrais voir s'ouvrir un fichier B avec une boite de dialogue "Rechercher et remplacer" affichant toutes les occurrences du mot recherché dans le fichier B.

Par exemple, pour une donnée intitulée "ZEN" dans le fichier A, il y a un fichier de référence spécifique à cette donnée, le fichier B. En exécutant ma macro, en cliquant sur une cellule par exemple, je voudrais voir apparaître le fichier B et une boite de dialogue Ctrl+F qui m'indique toutes les occurrences du mot "ZEN" dans le fichier B.

[Menhir]

Par exemple, pour une donnée intitulée "ZEN" dans le fichier A, il y a un fichier de référence spécifique à cette donnée, le fichier B. En exécutant ma macro, en cliquant sur une cellule par exemple, je voudrais voir apparaître le fichier B et une boite de dialogue Ctrl+F qui m'indique toutes les occurrences du mot "ZEN" dans le fichier B.

Ne serait-il pas plus simple que la macro lance directement la recherche sur "ZEN" sans avoir à ouvrir la fenêtre de recherche ?
En terme de codage, en tout cas, ce serait plus simple.

Mais que cherche à obtenir l'opérateur lors de cette recherche ?

[Roland2008]

Oui effectivement, l'ouverture de la boite de dialogue se fera en lançant la recherche. Je suppose donc qu'il ne faut que lancer la recherche pour qu'elle apparaisse. Je recherche donc une macro qui 1) Ouvre un document 2) Lance une recherche de type Ctrl+F au sein de ce document.

L'opérateur souhaitera avoir une vision globale grâce à la fenêtre de dialogue de toutes les formes que peut prendre une donnée spécifique dans le fichier B : "ZEN_A", "ZEN_B", "ZENC_C", etc.

Je sais pas si c plus clair ainsi

[Menhir]

Si la macro se limite à ouvrir un fichier et pointer une cellule par recherche, ça se fait en deux lignes (plus quelques déclarations).

En supposant que le fichier source s'appelle XXX.xls (tu adapteras)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim MaRech As Range
Set MaRech = ActiveCell
Workbooks.Open "XXX.xls"
Cells.Find(MaRech, LookIn:=xlValues, LookAt:=xlPart).Activate

[Roland2008]

Alors j'ai essayé d'intégrer ta formule comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test_Essai()
'Déclarations
Dim MaRech As Range
Set MaRech = ActiveCell
Workbooks.Open Filename:= _
        "C:/ ... / Fichier.xlsx"
Cells.Find(MaRech, LookIn:=xlValues, LookAt:=xlPart).Select
End Sub

Mais cela ne marche pas...



Par contre, en fouillant un peu, j'ai trouvé une formule qui me correspond, qui ouvre un fichier "B", et qui ensuite fait un Ctrl+F pour chercher un mot prédéfini (ici "toto") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test_Excel_Lent()
Range("L14").Select
    Workbooks.Open Filename:= _
        "C:/ ... / Fichier B.xlsx"
    ActiveWindow.Visible = False
    Windows("Fichier B.xlsx").Visible = True
'Déclarations
Dim Nom As String
Nom = "Toto"
SendKeys Nom
SendKeys "{ENTER}"
SendKeys "{DOWN}"
SendKeys "{ENTER}"
CommandBars("Edit").Controls.Item(14).Execute
End Sub

Par contre, la fenêtre qui s'ouvre est une fenêtre "rechercher" classique, et non une fenêtre "rechercher tout", celle qui s'affiche quand on clique sur le bouton"rechercher tout", et qui affiche alors toutes les occurrences du mot dans le fichier. Si vous voyez ce que je veux dire...

La cerise sur le gâteau serait que la macro m'ouvre directement la boite de dialogue "Rechercher tout" sans qu'on ait à cliquer sur le bouton... Tu aurais une idée pour l'afficher ? Existe t-il une macro qui sélectionne directement telle ou telle option dans la boîte de dialogue ?

Et je voudrais aussi sélectionner l'option "Rechercher dans tous le classeur" !

Après avoir fait le tour des forums, je suis persuadé d'être le premier à poser une question si spécifique sur le CTRL+F...

[clementmarcotte]

Bonjour,

Jusqu'à preuve du contraire, l'enregistreur de macros devrait te donner un canevas de procédure.

Jusqu'à preuve du contraire, en lisant dans l'aide de VBA Excel :

Référence du développeur Excel
Dialog, objet
Cet objet représente une boîte de dialogue Microsoft Excel intégrée.

La bibliothèque d'objets Visual Basic pour Microsoft Excel contient des constantes intégrées pour de nombreuses boîtes de dialogue intégrées. Chaque constante est constituée du préfixe « xlDialog » suivi du nom de la boîte de dialogue. Par exemple, la constante de la boîte de dialogue Affecter un nom est xlDialogApplyNames et la constante de la boîte de dialogue Chercher est xlDialogFindFile. Ces constantes appartiennent au type énuméré XlBuiltinDialog.


Exemple


Utilisez la méthode Dialogs(index), où index est une constante intégrée qui identifie la boîte de dialogue, pour renvoyer un seul objet Dialog. L'exemple suivant montre comment exécuter la boîte de dialogue Ouvrir intégrée (menu Fichier). La méthode Show renvoie True si Microsoft Excel réussit à ouvrir un fichier, False si l'utilisateur annule la boîte de dialogue.

Visual Basic pour Applications
dlgAnswer = Application.Dialogs(xlDialogOpen).Show

Jusqu'à preuve di contraire, il y a une quantité industrielle de questions et de réponses sur le forum qui se terminent par une quantité industrielle de macros qui zigonnent un paquet d'affaires avec "Find"

[Menhir]

Jusqu'à preuve du contraire, l'enregistreur de macros devrait te donner un canevas de procédure.

Malheureusement, l'enregistreur de macro va proposer un code pour obtenir l'effet final de la boîte de dialogue et non l'ouverture de la boite de recherche elle-même.
C'est à dire qu'il proposera un Cells.Find .
Et c'est tant mieux parce que dans 99% des cas, c'est ce qui est souhaité.

Par contre, merci pour les renseignements sur la méthode Dialogue. Moi non plus je ne connaissais pas et ça ouvre de nouvelles perspectives.

[Roland2008]

J'ai trouvé ! En fait il suffit d'envoyer une série de commandes pour que la formule "clique" directement sur le bon bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
SendKeys "{TAB 2}"
SendKeys "{DOWN}"
SendKeys "{ENTER}"
SendKeys "{TAB 6}"
SendKeys "{ENTER}"

Ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Range("L14").Select
Workbooks.Open Filename:= _
"Chemin vers le fichier"
ActiveWindow.Visible = False
Windows("Nom du Fichier.xlsx").Visible = True
'Déclarations
Dim Nom As String
Nom = "TOTO"
SendKeys Nom
SendKeys "{ENTER}"
SendKeys "{DOWN}"
SendKeys "{ENTER}"
SendKeys "{TAB 2}"
SendKeys "{DOWN}"
SendKeys "{ENTER}"
SendKeys "{TAB 6}"
SendKeys "{ENTER}"
CommandBars("Edit").Controls.Item(14).Execute
End Sub