Bonjour à tous,
Après environ une dizaine d'heures de recherche, je me tourne vers ce forum pour trouver de l'aide.
Voici mon problème : j'ai besoin de faire un rechercher/remplacer mais pas dans un fichier, c'est dans une fenêtre ouverte d'une application OMNIS. Cette application OMNIS me génère des fiches de travail mais dans ces fiches il y a des références incompréhensibles et je veux faire des recherches/remplacer sur ces références pour qu'elles deviennent compréhensibles pour l’atelier de production. J'ai donc installé un logiciel de raccourcis clavier qui permet de lancer un fichier VBS en faisant par exemple : "WIN + H". Mon problème est que maintenant il faut que j'écrive le code du fichier VBS.
J'ai trouvé plein de truc mais toujours pour Word, Excel ou alors sur des fichiers texte.
Je me tourne vers vous pour trouver la solution.
J'avais trouvé ceci :
Merci pour votre aide
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 Selection.Find.ClearFormatting Const wdFindContinue = 1 Const wdReplaceAll = 2 Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "A chercher Ref : M1256ST58475" .Replacement.Text = "remplacer par VIS M5" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll
Partager