Fonctionnement de la syntaxe avec Application.ActiveWindow.Title.InsertText
Bonjour de nouveau,
Je repose une question car je ne parviens pas à comprendre ce que je trouve sur le net.
J'ai un code qui ressemble à ça :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| 'Déclaration des variables
Dim illus
'Saisie des variables par l'utilisateur
illus = inputbox("Y a-t-il des illustrations ?")
'Script collé dans la fenêtre
Application.ActiveWindow.Title.InsertText"Texte aléatoire à insérer"&vblf_
"Suite du texte aléatoire après saut de ligne"&vblf
'Choix avec ou sans illustration
select case illus
case "Oui"
Application.ActiveWindow.Title.InsertText" Illustrations, texte"&vblf
case "Non"
Application.ActiveWindow.Title.InsertText" texte"&vblf
end select |
Ce qui me donne, copié dans la zone à remplir de l'application :
Citation:
Texte aléatoire à insérer
Suite du texte aléatoire après saut de ligne
Illustrations, texte [ou] texte
Or je voudrais qu'il n'y ait pas de saut de ligne après "Suite du texte aléatoire après saut de ligne" :
Citation:
Texte aléatoire à insérer
Suite du texte aléatoire après saut de ligne Illustrations, texte
Mais je ne comprends pas comment y arriver.
Pourriez-vous m'aider ? :?
