Word vba macro word

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

catanzano

XLDnaute Nouveau
Bonsoir et joyeux Noël à tous


Voici mon pb


lorsque je lance une macro avec ce code, tout s'effectue normalement , mais je suis obligé d'appuyer sur le " o" du oui manuellement et j'aimerais que cela se fasse automatiquement ( c''est a dire que je ne sois pas obligé d'appuyer moi meme sur la touche o du clavier


merci


et voici le code





ChangeFileOpenDirectory _
"C:\Users\christophe\Desktop\portable\port\WS_FTP\1site\"
Documents.Open FileName:="essai.htm", ConfirmConversions:=False _
, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.Save
ActiveWindow.Close
 
Bonjour le fil

Test OK chez moi
VB:
Option Explicit
Const strPath As String = "C:\Users\christophe\Desktop\portable\port\WS_FTP\1site\"
Sub test_OK()
ChangeFileOpenDirectory strPath
Documents.Open FileName:="test.htm"
Application.DisplayAlerts = False
ActiveDocument.SaveAs FileName:="test2.doc", FileFormat:=wdFormatDocument
ActiveDocument.Close
End Sub

PS: Peut mieux faire pour le titre de ta question qui ne résume absolument ton problème...🙄
(cf ta discussion dans le forum Excel)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2010 VBA
Réponses
2
Affichages
681
Réponses
2
Affichages
2 K
B
Réponses
2
Affichages
1 K
B
B
Réponses
0
Affichages
903
B
E
Réponses
5
Affichages
3 K
L
H
Réponses
0
Affichages
2 K
hernandez
H
R
Réponses
1
Affichages
3 K
M
M
Réponses
0
Affichages
2 K
M
Retour