Transformé une macro excel en Word
Résolu
c135078
Messages postés
48
Date d'inscription
Statut
Membre
Dernière intervention
-
phil_232 Messages postés 286 Date d'inscription Statut Membre Dernière intervention -
phil_232 Messages postés 286 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
cette macro me permet d'imprimer un fichier excel en cliquant sur un bouton... j'aurais aimé pouvoir faire la meme chose pour un fichier word
je chercher à transformer cette macro pour qu'elle fonctionne avec Word
Private Sub Workbook_Open()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
App.DisplayAlerts = False
Set App = CreateObject("Excel.Application")
Set Book = App.Workbooks.Open("T:\Transit/opelab")
Set Sheet = Book.Sheets("Feuil1")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub
on me la rédiger (j'en suis complétement incapable mais je ne sais pas comment la transformé pour qu'a la place d'imprimer un fichier Word il imprime un fichier excel..
un tout grand merci
Jérôme
cette macro me permet d'imprimer un fichier excel en cliquant sur un bouton... j'aurais aimé pouvoir faire la meme chose pour un fichier word
je chercher à transformer cette macro pour qu'elle fonctionne avec Word
Private Sub Workbook_Open()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Dim Sheet As Worksheet
App.DisplayAlerts = False
Set App = CreateObject("Excel.Application")
Set Book = App.Workbooks.Open("T:\Transit/opelab")
Set Sheet = Book.Sheets("Feuil1")
Sheet.PrintOut Copies:=1, Preview:=False, Collate:=False
Set Book = Nothing
Set Sheet = Nothing
App.Quit
End Sub
on me la rédiger (j'en suis complétement incapable mais je ne sais pas comment la transformé pour qu'a la place d'imprimer un fichier Word il imprime un fichier excel..
un tout grand merci
Jérôme
A voir également:
- Transformé une macro excel en Word
- Word et excel gratuit - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Word 2013 - Télécharger - Traitement de texte
- Supprimer une page word - Guide
- Tableau word - Guide