Création d'un fichier word via macro excel [Résolu]
WedgeAnt
- Messages postés
- 13
- Date d'inscription
- lundi 7 août 2006
- Dernière intervention
- 27 mai 2008
- Messages postés
- 209
- Date d'inscription
- jeudi 5 août 2004
- Dernière intervention
- 15 juillet 2009
A voir également:
- Création d'un fichier word via macro excel
- Ouverture d'un fichier word avec macro Excel ✓ - Forum - VB.NET
- Imprimer une liste de fichiers pdf et word via vba excel ✓ - Forum - Visual Basic 6
- Créer un fichier PDF via feuille Excel en VBA ✓ - Forum - VBA Office (Excel, Word ...)
- Ouvrir un fichier word par vba exel ✓ - Forum - Visual Basic 6
- Rechercher et Remplacer dans Word par Macro Excel ✓ - Forum - Visual Basic 6
10 réponses
Meilleure réponse
- Messages postés
- 2247
- Date d'inscription
- lundi 29 mai 2006
- Dernière intervention
- 29 mai 2008
Salut, c'est la même chose mais avec word :
ajoute la références microsoft word et :
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = New Word.Application
Set WordDoc = New Word.Document
WordApp.Visible = True
Dim PathApp As String
PathApp = ThisWorkbook.path
WordDoc.SaveAs (PathApp & "" & Range("A1").Value)
WordDoc.Close
WordApp.Quit
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
ajoute la références microsoft word et :
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = New Word.Application
Set WordDoc = New Word.Document
WordApp.Visible = True
Dim PathApp As String
PathApp = ThisWorkbook.path
WordDoc.SaveAs (PathApp & "" & Range("A1").Value)
WordDoc.Close
WordApp.Quit
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
118 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2247
- Date d'inscription
- lundi 29 mai 2006
- Dernière intervention
- 29 mai 2008
Dans VBA
Outils > Références > et tu coches microsoft word library....
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Outils > Références > et tu coches microsoft word library....
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
118 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2247
- Date d'inscription
- lundi 29 mai 2006
- Dernière intervention
- 29 mai 2008
Private Sub CommandButton1_Click()
Dim WordApp As Word.Application
Dim fichier_word As Word.Document
creer_feuille_word ("H:\ETUD03\TEST\Titre.doc")
End Sub
Sub creer_feuille_word(ByVal PathName As String)
Set WordApp = New Word.Application
WordApp.Visible = True
Set feuille_word = New Word.Document
feuille_word.SaveAs Filename:=PathName
feuille_word.Close
WordApp.Quit
End Sub
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Dim WordApp As Word.Application
Dim fichier_word As Word.Document
creer_feuille_word ("H:\ETUD03\TEST\Titre.doc")
End Sub
Sub creer_feuille_word(ByVal PathName As String)
Set WordApp = New Word.Application
WordApp.Visible = True
Set feuille_word = New Word.Document
feuille_word.SaveAs Filename:=PathName
feuille_word.Close
WordApp.Quit
End Sub
Drikce 06
Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
118 internautes nous ont dit merci ce mois-ci
Bon, de retour ;)
Cette fois, je peux créer un fichier word, mais quand je lance la création d'un second fichier (avec un nom différent), j'obtiens une erreur :
Erreur d'exécution -2147023174 (800706ba)
Erreur Automation
Le serveur RPC n'est pas disponible
Par contre, si je laisse une fenêtre word ouverte pendant le traitement, ça fonctionne ...
Voici mon code (tout simple à priori)
Dim WordApp As Word.Application
Dim fichier_word As Word.Document
Sub creer_feuille_word(ByVal titre As String)
Set WordApp = New Word.Application
WordApp.Visible = True
WordApp.DisplayAlerts = False
Set feuille_word = Word.Documents.Add
nom_fichier = "H:\ETUD03\TEST" & titre & ".doc"
WordApp.DisplayAlerts = True
feuille_word.SaveAs FileName:=nom_fichier
feuille_word.Close
WordApp.Quit
End Sub
Cette fois, je peux créer un fichier word, mais quand je lance la création d'un second fichier (avec un nom différent), j'obtiens une erreur :
Erreur d'exécution -2147023174 (800706ba)
Erreur Automation
Le serveur RPC n'est pas disponible
Par contre, si je laisse une fenêtre word ouverte pendant le traitement, ça fonctionne ...
Voici mon code (tout simple à priori)
Dim WordApp As Word.Application
Dim fichier_word As Word.Document
Sub creer_feuille_word(ByVal titre As String)
Set WordApp = New Word.Application
WordApp.Visible = True
WordApp.DisplayAlerts = False
Set feuille_word = Word.Documents.Add
nom_fichier = "H:\ETUD03\TEST" & titre & ".doc"
WordApp.DisplayAlerts = True
feuille_word.SaveAs FileName:=nom_fichier
feuille_word.Close
WordApp.Quit
End Sub
- Messages postés
- 209
- Date d'inscription
- jeudi 5 août 2004
- Dernière intervention
- 15 juillet 2009
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.