Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Sub a()
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject("Word.Application")
'Set objDoc = objWord.Documents.Add
Set objDoc = objWord.Documents.Open("H:\Téléchargements\evaluation.docx")
objWord.Visible = True
End Sub
Rebonjour,
es ce que c'est faisable de mettre comme ci
Dim WordApp As New Word.Application, WordDoc As Word.Document
Dim ctrl As word.ContentControl Merci
Avec la feuille Excel Modèle ce n'est pas compliqué :
VB:
Sub Diagnostic_Evaluation_PAF()
'// Défintion variable
Dim Wapp As Object, Wdoc As Object
'// création du document Word
On Error Resume Next
Set Wapp = GetObject("Word.Application")
If Err Then Set Wapp = CreateObject("Word.Application")
On Error GoTo 0
Wapp.Visible = True
Set Wdoc = Wapp.Documents.Add
'// remplissage du document avec la feuille Modèle
Feuil2.UsedRange.Copy
Wdoc.Content.Paste
Application.CutCopyMode = 0
Wdoc.PageSetup.LeftMargin = 150 'à adapter
'// Sauvegarde du document
Wdoc.SaveAs ThisWorkbook.Path & "\Diagnostic et Evaluation " & Feuil1.[C3] & ".docx"
'// Fermeture du document et application Word
Wdoc.Close False
Wapp.Quit
MsgBox "Exportation Word effectuée"
End Sub
- 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