Excel VBA : Modification d'un fichier word via Excel puis enregistrement au format PDF
Вставка
- Опубліковано 20 вер 2020
- Voici le code à copier dans Excel visual basic :
"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" - Навчання та стиль
Merci beaucoup, vous etes le karim benzema de youtube. Une pépite cette video !!
Bonjour. Je ne sais pas si j'y arriverais mais c'est excellemment expliqué. Merci infiniment.
Bonjour, Merci, c'est exactement ce dont j'ai besoin pour mon travail. Un bijou de tuto.
Enfin, la pépite que je cherchais. Merci beaucoup pour tes vidéos!
Bonjour est ce qu'il aurait un moyen de enregistrer une copie du fichier et non le fichier lui même en pdf svp ?
Merci pour la vidéo ! C'est plus facile que je ne le pensais !
Top de chez top, c'est la vidéo que je cherchais. Merci
Merci bcp c'est très sympa
super merci
Merci pour cette video ! Je cherchais comment supprimer un texte entre signet et j'ai pu mieux comprendre comment utiliser les objets bookmarks !
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
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 !
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.
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"
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 ?
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.
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
Merci pour cette vidéo, elle m'a été très utile. Est il possible d'ajouter un code qui enregistre le fichier _.pdf ?
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.
Bonjour, excel me renomme automatiquement le mot Word en word, comment le désactiver ?
Dim wordapp As word.Application
Dim worddoc As word.Documents
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
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
Excellente vidéo !
Petite question. Comment modifier l'emplacement du fichier word lors de son export ?
Merci, il faut le spécifier dans le code vba
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
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/
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
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
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!
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
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 😊
Bonjour, merci =), je vous conseillerai plutôt de passer par un publipostage cela sera bcp moins fastidieux
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
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é
@@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
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
jsui choqué
Une idée pourquoi mon fichier word se met en lecture seul ?
Il est pas déjà ouvert ?
@@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.
@@nkln3184essayez une autre methode avec mon autre tuto si cela nest pas mieux pour tester
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.
idem... as tu trouvé la solution ?
Bonjour, avez vous bien ajouté la référence "Microsoft word 15.0 Object Library" ?
@@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"
@@AlexNILLY Bonjour, avez-vous une solution pour ce problème, j'ai la même chose... ;'((