Macro Word : enregistrer copie document [Résolu]

Public Sub Sauvegarde()

ActiveDocument.Save 'sauvegarde du document en cours, on sait jamais

Dim strDocName As String
Dim intPos As Integer

strDocName = ActiveDocument.Name ' récuperation du nom de ce fichier
intPos = InStrRev(strDocName, ".") ' recherche de l'extension, attention elle commence par la droit InStrRev

strDocName1 = Left(strDocName, intPos - 1) ' on coupe l'éxtension, on sait jamais si l'originale est vraiement un ".doc"
strDocName1 = "D:\" & strDocName1 & ".doc" ' Ben, ajoute de l'éxtension, le D doit être remplacé par la lettre de la clé USB

ActiveDocument.SaveAs FileName:=strDocName1 ' Sauvegarde de la copie
ActiveDocument.Close True ' fermeture du fichier, faut voir si tu veux vraiement ça
Set objDoc = Application.Documents.Open(strDocName) ' reouverture du fichier original

End Sub

Bonsoir Phil232,

Vraiment, merci de ces explications très claires sur ce code.

J'ai réussi à lui assigner un raccourci clavier sans problème comme pour n'importe quelle commande (je pensais que c'était différent c'est pour cela que j'avais posé la question). C'est plus simple que je l'imaginais.

Ca marche vraiment très bien. Merci.

Juste pour savoir, c'est pas possible d'éviter le raccourci et qu'on puisse dire à la macro d'enregistrer directement dans l'autre dossier dès qu'on fait un premier enregistrement ? C'est à dire, dès qu'on enregistre et donne un nom DOC1.DOC dans un dossier quelconque qu'il l'enregistre automatiquement sur la clé par exemple sans faire le raccourci ? Mais sinon, je garde la solution du raccourci clavier qui est très bien déjà.

Autre question, toujours dans le même sujet...
Est-ce qu'il est possible de créer un exécutable à partir de cette macro pour ne pas avoir à la reparamétrer sur un autre pc ?
C'est à dire, je donne le fichier.exe à la personne qui en a besoin, elle clique dessus et tout se fait automatiquement sans que j'ai à revenir faire mon copier coller du code de ma macro sur son pc puis assigner le raccourci ?
Car c'est pour rendre service à un utilisateur débutant où je peux malheureusement difficilement accéder à son pc... Donc si j'avais un exécutable, il lui suffirait juste de cliquer directement puis tout s'installerait sans rien faire d'autre (la personne en question sera dépassée si je lui donne les manips et perdra courage à faire les manips pour aller dans les menus, copier coller, mettre le raccourci...).
Si trop compliqué, je me débrouillerai autrement mais s'il existait une solution ce serait vraiment pratique...

Merci encore.

Bonne soirée.
--------
Lorina

Pour la partie "d'enregistrer directement " c'est pas clair ce que tu veux.
Partie 2 : à partir d'une macro Word tu ne peux pas créer un .exe. Mais tu pourrais éventuellement travailler avec des modèles (enfin templates). Ou bien créer un bouton dans la menu bar au quel tu attribus la macro (ce qui se distribue aussi à travers d'un template)

الملخـــــص

القصة مستوحاة من أرض الواقع تحمل بين طياتها أحداثا مثيرة تطرح مشكل الطمع كحدث رئيسي، فالحاج البطل عاد من أرض المهجر ليستقر نهائيا بالمغرب مع زوجته زينة وابنه رشيد الذي سيجد نفسه في صراع مع الحاج ( صراع الأجيال) الشيء الذي سيؤدي به إلى مغادرة البيت والعبور إلى خارج أرض الوطن، بحث عنه الحاج في كل مكان بدون جدوى واستسلم للأمر الواقع وما هي إلا مدة قصيرة حتى ظهرت عليه علامات التصابي فقرر الزواج من فتاة في عمر الزهور ناكرا جميل زوجته الأولى التي باعت معظم إرثها لشراء الفيلا التي يقطنانها، ورغم ذلك عندما علمت أن الحاج مصر على الزواج وافقته عن مضض شرط أن يقوم بالتساوي بينهن في كل الحقوق، ثم الزواج وأصبحت زاينة الزوجة الأولى وهجر الزوجة الثانية يسكنان في نفس الفيلا، كانت المعاملة فيما بينهما عادية في بادئ الأمر، ولكن مع توالي الأيام خططت هجر لإبعاد زاينة وهكذا استغلت أول فرصة متاحة إذ أن الحاج يملك بيتا في البادية وبحاجة لمن يخرسه بعد أن أعلن أحمد الذي كان مسؤولا عنه أنه سينتقل إلى بيته الجديد، وهكذا اقترحت هجر على الحاج نقل زاينة إلى البادبة لتقوم بالمهمة ، استطاعت أن تتحايل على الزوج بسرعة وتم لها ما أرادت فأصبحت تقطن وحدها في الفيلا وتدعو صديقاتها للقيام بحفلات من حين لآخر وكذلك استطاعت بمكرها أن تجعل الحاج كخاتم اصبعها تديره كيفما شاءت حيث استطاعت أن تجعله يكتب لها الفيلا باسمها بعد أن صرف عنها كل ما كان يملكه من الأموال. ولم يدم الأمر طويلا حتى خلقت مشاكل عمدا تجعل الحاج يطلقها، فطردته من الفيلا وخرج للتسكع ويبيع السجائر بالتقسيط. أما عن هجر فقد تعرفت عن نصاب محتال (يوسف) واستطاع أن يجعلها تتشبت به إلى درجة الجنون فخططا للإيقاع بها ونفذ خطته على أحسن وجه إذ تمكن من إقناعها بأن تكتب له الفيلا باسمه من أجل أمر إداري سيعود عليها بالربح الوفير، تم له ما أراد وقطع كل صلة تربطه بهجر بعد أن باع الفيلا لأحد السماسرة الذي أخبر هجر بكون الفيلا في ملكية أناس آخرين وأعطاها مهلة للإفراغ، وقع عليها الخبر كالصاعقة واضطرت للخروج باحثة عن عمل تقتات منه، وهكذا تمكنت من إيجاد العمل كنادلة في إحدى المقاهي.
أما عن الحاج فقد تم إرجاعه إلى البادية مكن طرف زوجته الأولى وزاينة وأحمد المسؤول سابقا عن بيته واهتموا به حتى استعاد قوته وأمله في الحياة.
يعود رشيد ابن الحاج وزاينة ومعه زوجته يصل إلى الفيلا ويخبره أحد الأشخاص أن لا أحد يقطنها من زمن وأن اصحابها انتقلوا إلى البادية فاتجه في الحين إلى هناك إذ وجد والديه وسروا بعودته وسردوا عنه ما وقع في غيابه فاطمأنها بكونه قد أرسل مالا للسمسار وأوصاه أن يشتري له فيلا في مكان ما، وأنهما سيعودان إلى المدينة ويقطنان فيها، وهكذا عادوا جميعا إلى المدينة والمفاجأة الكبرى أن السمسار اشترى لرشيد فيلا والده بالضبط وقد تم ذلك عن غير قصد.
نعود إلى هجر النادلة إذ تتصادف بوجود عصام وزوجته كزبونبن وكانت دهشتها قوية عندما علمت أنه تزوج وأن أحواله تحسنت وعصام هذا كانت تربطه به علاقة غرامية قوية وكان على وشك الزواج بها ولكنهما تخلت عنه عندما أتى الحاج لخطبتها وعلمت أنه يملك الفيلا والمال ونظرا لطمعها الشديد خانت وعدها وتركت عصام.
القصة تتخللها أحداث أخرى لا تخلو أهمية من سابقتها كنجاح صديقتها إلهام ورشيدة في حياتهن الزوجية وتعاملهن مع مسؤولية الزواج بجدية، ثم كثرة ضحايا يوسف اللواتي احتال عليهن لتكون نهايته السجن. ثم وضع عصام المادي والمعنوي بعد أن كان يبحث عن عمل بدون فائدة، إذ أصبح محاسب في شركة مرموقة وتزوج ببنت صاحب الشركة. والحدث الآخر يتجلى في كون الحاج توصل من الشركة التي كان يعمل بها، يخبرونه بوصوله سن التقاعد وأن عليه أن يبعث إليهم ببعض الوثائق لتمكن من التوصل بأجرة تقاعده.
الأحداث في هذه القصة متشابكة تسير بوثيرة واحدة منذ بدايتها لتشكل مواضيع مختلفة داخل موضوع واحد الذي هو الموضوع الرئيسي ويكون الترابط بين شخصية الأحداث إما كصداقة أو رابطة معينة لتشكل في النهاية انتصار للخير.

Bonjour Vivalet,

Excuses-moi mais je ne sais pas lire le persan ou la langue que tu utilises... pourrais-tu me le mettre en français et caractères français si cela t'es possible ? Merci en tout cas de ta participation.

Bonne soirée.