- Rechercher et Remplacer dans Word par Macro Excel
- Ouvrir des fichiers WORD via une INPUTBOX
- Mettre une liste déroulante dans la création d'un fichier excel via .net
- Faire un copier-coller depuis Excel vers Word via une macro ?
- Visual Basic / VB.NET : Creation et lecture de fichier xml via une base de donnee.. - CodeS SourceS
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
drikce06
- Messages postés
- 2237
- Date d'inscription
- lundi 29 mai 2006
- Statut
- Membre
- 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:
drikce06
- Messages postés
- 2237
- Date d'inscription
- lundi 29 mai 2006
- Statut
- Membre
- 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:
drikce06
- Messages postés
- 2237
- Date d'inscription
- lundi 29 mai 2006
- Statut
- Membre
- 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:
WedgeAnt
- Messages postés
- 13
- Date d'inscription
- lundi 7 août 2006
- Statut
- Membre
- Dernière intervention
- 27 mai 2008
Merci beaucoup, c'est tout ce qu'il me fallait !!! :)
WedgeAnt
- Messages postés
- 13
- Date d'inscription
- lundi 7 août 2006
- Statut
- Membre
- Dernière intervention
- 27 mai 2008
Euh, juste un truc ... ajouter la référence à Word ... comment on fait ça ? ^^
WedgeAnt
- Messages postés
- 13
- Date d'inscription
- lundi 7 août 2006
- Statut
- Membre
- Dernière intervention
- 27 mai 2008
Thanx :)
WedgeAnt
- Messages postés
- 13
- Date d'inscription
- lundi 7 août 2006
- Statut
- Membre
- Dernière intervention
- 27 mai 2008
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
WedgeAnt
- Messages postés
- 13
- Date d'inscription
- lundi 7 août 2006
- Statut
- Membre
- Dernière intervention
- 27 mai 2008
Oups, le second Dim ne sert à rien ... il n'a pas d'utilité dans ce code ^^