Excel VBA : Modification d'un fichier word via Excel puis enregistrement au format PDF

[@jamesriera6463]

Bonjour. Je ne sais pas si j'y arriverais mais c'est excellemment expliqué. Merci infiniment.

[@samirkadi327]

Merci beaucoup, vous etes le karim benzema de youtube. Une pépite cette video !!

[@florianelejeune8965]

Bonjour, Merci, c'est exactement ce dont j'ai besoin pour mon travail. Un bijou de tuto.

[@alexandrecorelli7179]

Merci pour la vidéo ! C'est plus facile que je ne le pensais !

[@estebanzia9192]

Enfin, la pépite que je cherchais. Merci beaucoup pour tes vidéos!

[@estebanzia9192]

Bonjour est ce qu'il aurait un moyen de enregistrer une copie du fichier et non le fichier lui même en pdf svp ?

[@matteocaramia9945]

Top de chez top, c'est la vidéo que je cherchais. Merci

[@PatrickEm-k9l]

Merci pour ce super tuto, j'ai juste un souci sur la macro avec la localisation du fichier Word. Cela ne fonctionne pas sur un autre ordinateur. Si je souhaite que le fichier soit utilisable sur tous les ordinateurs de mon équipe comment dois-je procéder?

[@AlexNILLY]

Merci pour ce message, il faudrait essayer d'utiliser un dossier partagé je pense que cela pourrait résoudre le problème

[@bellomdragon1838]

Pour allez plus loin peut on faire la même chose en insérant des images ? d'ailleurs y a pas beaucoups de forum à ce sujet sur le Web merci à vous je vais continuer mes recherche ça fonctionne bien et très utile

[@azifsaad658]

Merci infiniment

[@WopTimal]

Bonjour, excellent tuto comme toujours! Je cherche justement de mon côté une macro pour à partir d'un document word, extraire toutes les pages qui contiennent le mot/titre "Tartempion" dans un pdf qui portera le même nom. Note : les pages portant ce titre se suivent toutes et sont à la fin du document word. Pourriez-vous m'aider ? Merci ;)

[@mozer6128]

Très bonne vidéo. J'arrive à générer le fichier pdf. Quelles sont les modif à faire pour générer un fichier au format.docx. J'ai essayé de changer .pdf en .docx... mais ce n'est pas aussi simple. Merci de votre retour.

[@AlexNILLY]

Bonjour, merci pour votre compliment =), pouvez vous essayer s'il vous plaît de lancer l'enregistrement des macro, et de procéder à un enregistrement en word, cela va générer un code vba, essayé de copier ce code à la place du code "enregistrer en pdf"

[@ameliemollier3297]

Merci pour cette video ! Je cherchais comment supprimer un texte entre signet et j'ai pu mieux comprendre comment utiliser les objets bookmarks !

[@TheSolene34]

Bonjour, merci pour la vidéo claire !! J'aurais une question, je souhaite générer des rapports techniques ou il y a a chaque fois des noms de site à changer. Dans un même rapport je souhaite changer le nom du site (qui se trouve à plusieurs endroit dans le doc) or on ne peut utiliser un meme signet qu'une seule fois. Du coup lorsque je génère le pdf, le nom à changer qu'a un seul endroit. Pouvez vous m'aider svp ?

[@mouhamadrouabha2676]

Merci pour cette vidéo, elle m'a été très utile. Est il possible d'ajouter un code qui enregistre le fichier _.pdf ?

[@michelmatarfaye9117]

Merci bcp c'est très sympa

[@TicTac-ie4kq]

Excellente vidéo ! Petite question. Comment modifier l'emplacement du fichier word lors de son export ?

[@AlexNILLY]

Merci, il faut le spécifier dans le code vba

[@Sbastienlambert]

Bonjour Monsieur, Merci pour votre vidéo très utile. Mais le code mis en-dessous de la vidéo ne fonction pas. J'utilise un Excel 365. Pouvez vous m'aider svp. Merci.

[@marineduverney8185]

Bonjour Alex, en effet, cette vidéo est vraiment super. Par contre, j'ai aussi besoin, comme certains avant moi, de pouvoir enregistrer le document PDF ainsi généré, mais je n'y arrive pas. Pouvez-vous nous indiquer comment faire ? Merci !! Et encore merci pour la clarté de vos explications.

[@CynthiaTavares-cn6re]

Bonjour, Super vidéo ! Mais j'ai besoin d'aide svp ! J'ai un tableau avec la liste des salariés et des données les concernant à intégrer dans mon word. Sauf que j'ai besoin qu'un fichier pdf soit créé pour chaque salarié, que dois-je rajouter dans le code ? Merci d'avance 😊

[@AlexNILLY]

Bonjour, merci =), je vous conseillerai plutôt de passer par un publipostage cela sera bcp moins fastidieux

[@julienhamon1248]

Salut, Merci beaucoup pour la vidéo !! C'est possible de choisir le chemin d'enregistrement du pdf ? Aussi, peut-on nommer ce PDF à partir de la cellule A3 par exemple ? Merci encore !

[@michelmatarfaye9117]

Bonjour merci pour cette vidéo très intéressante. J'ai copié le code mais il s'affiche en rouge. Qu'est ce que cela signifie et que dois*je faire? merci

[@AlexNILLY]

Bonjour, voici le fichier pour vous aider : 1fichier.com/?uruaf8igo0c4dm36udil il va falloir que de votre côté vous remplaciez le chemin et ou le nom du fichier par le votre Cordialement

[@charlesowen8757]

Bonjour Alex! Merci pour cette vidéo cependant j'ai du mal à résoudre un problème, lorsque j'execute ma macro une erreur d'automation survient (elles se trouve au niveau de la ligne " Set wordapp = CreateObject("word.application") "). La macro ouvre l'application word et ensuite plus rien... Ps je suis sur Mac

[@bellomdragon1838]

BONJOUR 🤝 , JE CHERCHAIS CELA MERCI A VOUS et si on veut faire une copie word en plus ? on rajoute le meme texte ?on change .pdf par.docx? très bien cela va me facilité la vie encore bravo

[@AlexNILLY]

Oui tout à fait, vous pouvez essayer ce code là. Sub export_données_dans_word() Dim wordapp As Word.Application Dim worddoc As Word.Document Set wordapp = CreateObject("word.application") Set worddoc = wordapp.Documents.Open("C:\chemin\test.doc") worddoc.Bookmarks("signet1").Range.Text = Range("a1").Value worddoc.Bookmarks("signet2").Range.Text = Range("a2").Value worddoc.ExportAsFixedFormat OutputFileName:= _ "_" & ".pdf", ExportFormat:= _ 17, OpenAfterExport:=True, OptimizeFor:= _ 0, Range:=0, From:=1, To:=1, _ Item:=0, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=0, DocStructureTags:=True, _ BitmapMissingFonts:=True, UseISO19005_1:=False worddoc.SaveAs ActiveWorkbook.Path & "\test2.doc", FileFormat:=wdFormatDocument worddoc.Close savechanges:=False 'worddoc.Quit End Sub Cela va enregistrer une copie en version word juste à côté

[@lucmonin5123]

@@AlexNILLY Bonjour, Malgré un copié-collé de vos lignes de code j'ai une erreur 91 pour cette ligne ci : worddoc.Bookmarks("signet1").Range.Text = Range("a1").Value. Et en passant le pointeur dessus, cela m'indique bien la valeur indiquée en a1?? J'avoue être totalement perdu Merci de votre aide. Luc

[@AlexNILLY]

Bonjour, voici un lien pour télécharger fichier pour vous aider : 1fichier.com/?uruaf8igo0c4dm36udil Il va falloir remplacer le chemin du fichier dans le code vba. L'erreur que vous rencontrez est surement du fait que votre signet dans le document word ne se nomme pas "Signet1" Cordialement

[@jessy3757]

super merci

[@mehrezchtourou9135]

Bonsoir! Je vous remercie pour cette excellente vidéo, qui m'est très utile. Sauf que pour le code que vous aviez fourni et que j'ai copié, je n'ai pas su qu'est ce que je dois modifier et comment. Malheureusement, je sui économiste et mes connaissances en VBA sont quasiment absentes. Je vous serez très reconnaissant si vous pourrez m'assister, même par un exmple de nom de fichier. Merci encore une fois!

[@nabiladj681]

Salut,merci beaucoup pour la vidéo!! Juste svp j'arrive pas a voir la programmation en VBA ...pouvez vous me la écrire j'ai besoin urgent

[@AlexNILLY]

Oui avec plaisir, la voici : Sub export_données_dans_signet_word() Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu Set WordDoc = WordApp.Documents.Open("C:\chemin.docx") 'ouvre document Word WordApp.Visible = False WordDoc.Bookmarks("marque1").Range.Text = Range("a1").Value WordDoc.Bookmarks("marque2").Range.Text = Range("a2").Value 'WordDoc.Bookmarks("nom du second signet").Range.Text = Cells(numéro de ligne, numéro de colonne) WordApp.Visible = False 'affiche le document Word 'WordDoc.PrintOut 'si on veut imprimer WordDoc.ExportAsFixedFormat OutputFileName:= _ "_" & ".pdf", ExportFormat:= _ 17, OpenAfterExport:=True, OptimizeFor:= _ 0, Range:=0, From:=1, To:=1, _ Item:=0, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=0, DocStructureTags:=True, _ BitmapMissingFonts:=True, UseISO19005_1:=False WordDoc.Close SaveChanges:=False WordApp.Quit 'ferme la session Word End Sub

[@romainjousseaume1527]

Bonjour, excel me renomme automatiquement le mot Word en word, comment le désactiver ? Dim wordapp As word.Application Dim worddoc As word.Documents

[@lalandegladys8626]

Bonjour, Merci beaucoup pour cette vidéo enrichissante ! Petite question, serait-il possible de réaliser cette macro en appelant un fichier word qui est sur un espace commun type SharePoint et non depuis le serveur personnel ? Merci par avance

[@lucasponty1998]

J’aurais aimé tomber sur cette vidéo plus tôt, maintenant j’ai le même problème a la différence près que je veux remplacer le signet par un tableau

[@AlexNILLY]

Bonjour, merci pour votre commentaire. Concernant votre demande, vous pouvez jeter un coup d'oeil ici (ça vous aidera peut être): www.developpez.net/forums/d114155/logiciels/microsoft-office/word/vba-word/vba-copier-donnees-d-excel-vers-word/

[@nkln3184]

Une idée pourquoi mon fichier word se met en lecture seul ?

[@AlexNILLY]

Il est pas déjà ouvert ?

[@nkln3184]

@@AlexNILLYNon justement mais un processus est ouvert dans le gestionnaire de tâches :) donc je sais pas si le code ne ferme pas bien le logiciel ou si ca vient d'autres choses.

[@AlexNILLY]

​​@@nkln3184essayez une autre methode avec mon autre tuto si cela nest pas mieux pour tester

[@puzzledemotetdepenser3644]

jsui choqué

[@tolgagul1181]

Bonjour, Super vidéo et technique. Je suis sur Mac, j'ai un message d'erreur au moment du lancement (Erreur Automation), qui pointe sur la ligne Set WordApp = CreateObject("Word.Application"). Comment résoudre ce problème ? Merci.

[@mathieuleblanc788]

idem... as tu trouvé la solution ?

[@AlexNILLY]

Bonjour, avez vous bien ajouté la référence "Microsoft word 15.0 Object Library" ?

[@caroleaurelievanessagberou9256]

@@AlexNILLY Je comprends leur problème et je pense que j'ai le même Notre version d'Excel donne plutôt "Microsoft word 16.0 Object Library"

[@noahpoyvre6886]

@@AlexNILLY Bonjour, avez-vous une solution pour ce problème, j'ai la même chose... ;'((