Problème macro enregistrement Résolu/Fermé

Question

Bonjour, 

J'ai créé une macro sous word pour une personne qui travaillait jusqu'à maintenant sous word 2003 avec windows 7, cette macro fonctionnait également sur mon ordinateur sous word 2010 avec windows 7.

J'ai migré vers windows 10 et travaille toujours sous office 2010, la macro fonctionne très bien sur mon ordinateur.

La personne pour qui j'ai créé cette macro vient de changer d'ordinateur qui est donc installé sous widows 10 et en a profité pour acheter également office 2010. Alors que chez moi la macro fonctionne, chez lui, elle ne marche pas.

Voici quelques explications sur la macro.

J'ai un fichier école.rtf qui est généré par Access et qui s'ouvre automatiquement sous word à partir d'une macro Access.

Je lance la macro qui va faire un certain nombre de mises en forme : sélection d'une partie du document que je mets en gras ou en italique, etc... Cette partie de la macro se réalise sans soucis. 

Je finis en enregistrant mon fichier mais je change son nom, son emplacement et je remplace son extension rtf en doc pour pouvoir envoyer ensuite se document par mail où il va de nouveau être traité. Il faut donc absolument un fichier .doc

Voici le code que j'utilise

'Enregistrement fichier word
    Selection.HomeKey Unit:=wdStory
    ChangeFileOpenDirectory "D:\Transfert\"
    ActiveDocument.SaveAs FileName:="Résultats école.doc", FileFormat:= _
        wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False


Alors qu'avant ou sur mon ordinateur, l'enregistrement se fait tout seul, aucune boite de dialogue ne s'ouvre et c'est ce que je veux faire, sur l'ordinateur de mon interlocuteur, j'ai une boite de dialogue qui s'ouvre pour me proposer d'enregistrer le fichier et en plus, il reste dans le dossier où était enregistré mon fichier école.rtf, donc ni le ChangeFileOpenDirectory ni le ActiveDocument.SaveAs FileName ne fonctionne.

J'ai fait une multitude d'essais, j'ai vérifier les options de word qui sont les mêmes sur les deux ordinateurs et je bloque totalement, ne trouvant pas de solution.

Si quelqu'un a une solution pour moi je suis preneur.

Merci

Configuration: Windows / Firefox 42.0

m@rina · Answer

Bonjour,

Si tu passe du format RTF au format DOC, ton code ne paraît pas correct. Essaie ceci :

Dim chemin As Stringchemin = "D:\Transfert\"ActiveDocument.SaveAs2 FileName:=chemin & "Résultats école.doc", FileFormat:=wdFormatDocument

Note que le Selection.HomeKey Unit:=wdStory est inutile. 
et toutes les autres précisions aussi.

m@rina

Co52 · Answer

Bonsoir m@rina,

Merci de prendre le temps de m'aider.

Je viens de tenter et ça ne change rien, ma fenêtre enregistré s'ouvre dans le dossier où j'étais à la base et le nom reste école, seul le type est en Document Word

Co

Co52 · Answer

J'ai oublié de noter que si je fais la manipulation à la main une fois que j'arrive sur cette fenêtre d'enregistrement, la macro me mets ensuite un message d'erreur d'exécution 4198 et signale que la commande a échoué

Problème macro enregistrement

3 réponses

Discussions similaires