A voir également:
- Macros excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si et excel - Guide
- Déplacer une colonne excel - Guide
- Excel moyenne - Guide
6 réponses
zebulon2503
Messages postés
1228
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
11 février 2016
110
24 mars 2010 à 11:10
24 mars 2010 à 11:10
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
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
Modifié par michel_m le 25/03/2010 à 11:45
Modifié par michel_m le 25/03/2010 à 11:45
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