A voir également:
- Macros excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
6 réponses
Bonjour
Un peu de recherche parfois...
Voici un même sujet, sur ce même site :
https://forums.commentcamarche.net/forum/affich-3003005-export-excel-vers-word
A+
Un peu de recherche parfois...
Voici un même sujet, sur ce même site :
https://forums.commentcamarche.net/forum/affich-3003005-export-excel-vers-word
A+
Merci Zebulon mais ce n'est pas ce que j'ai voulu exactement,
en fait, je veux à partir d'un fichier excel ouvrir un document word sans passer par la procédure habituelle c.a.d chercher son emplacement et l'ouvrir, je veux en utilisant macro excel ouvrir directement mon document word
merci d'avance pour votre aide
en fait, je veux à partir d'un fichier excel ouvrir un document word sans passer par la procédure habituelle c.a.d chercher son emplacement et l'ouvrir, je veux en utilisant macro excel ouvrir directement mon document word
merci d'avance pour votre aide
Bonjour
Peut-être ça :
Sub Fichier_Word()
FICHIER = Nom complet du fichier .doc avec chemin, entre ""
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("word.application")
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Open(FICHIER)
End Sub
Peut-être ça :
Sub Fichier_Word()
FICHIER = Nom complet du fichier .doc avec chemin, entre ""
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("word.application")
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Open(FICHIER)
End Sub
Merci Albert pour votre intervention mais j'ai eu un problème en appliquant cette macro
en fait, ce message s'est affiché "Erreur de compilation
Type défini par l'utilisateur non défini"
Aussi, une flèche s'est présenté au début de la première ligne de la macro (sub Fichier_word) et la troisième ligne a été sélectionné en bleu (Dim wordapp as word.application)
avez vous une solution?
en fait, ce message s'est affiché "Erreur de compilation
Type défini par l'utilisateur non défini"
Aussi, une flèche s'est présenté au début de la première ligne de la macro (sub Fichier_word) et la troisième ligne a été sélectionné en bleu (Dim wordapp as word.application)
avez vous une solution?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
bonjour,
en fait, lrs lignes suivantes
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
demandent que l'on active les références suivantes (par outils-référence de VBE)
Microsoft Word X.0 object library
Microsoft Visual Basic For Applications Extensibility Y.Z"."
Xyz dépendent des versions win et office
cette procédure-exemple ouvre un xlw.doc situé dans le m^me dossier que le classeur sans avoir à activer les ref ci dessus
:-x
en fait, lrs lignes suivantes
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
demandent que l'on active les références suivantes (par outils-référence de VBE)
Microsoft Word X.0 object library
Microsoft Visual Basic For Applications Extensibility Y.Z"."
Xyz dépendent des versions win et office
cette procédure-exemple ouvre un xlw.doc situé dans le m^me dossier que le classeur sans avoir à activer les ref ci dessus
Dim Cible As Object
Dim chemin As String, fichier As String
chemin = ActiveWorkbook.Path
fichier = "xlw.doc"
' lancement de Word
' gestion de l'erreur "activeX"
On Error Resume Next
Set Cible = CreateObject("Word.Application")
On Error GoTo 0
'On est maintenant dans Word
With Cible
.Documents.Open Filename:=chemin & "\" & fichier
' si la ligne ci-dessous est activée, on voit le boulot en cours (ralentissement)
.Visible = True
'code éventuel
End With
:-x
