c135078
Messages postés48Date d'inscriptionlundi 12 novembre 2007StatutMembreDernière intervention 5 mai 2009
-
3 mars 2009 à 13:56
c135078
Messages postés48Date d'inscriptionlundi 12 novembre 2007StatutMembreDernière intervention 5 mai 2009
-
11 mars 2009 à 08:35
bonjours
j'aurai besoin de rédiger une macro me servant juste à souvegarder mon fichier Excel puis à ouvrir un fichier Word
j'ai rédigé la macro suivante mais il bloque systématiquent sur la ligne Set book et je suis incapable de savoir pourquoi de plus je ne sais pas comment intégrer la notion de sauvergarde au préalable
Sub CommandButton1_Click()
Dim Fichier As String
Dim App As Object
Dim Book As Workbook
Set App = CreateObject("WORD.Application")
App.DisplayAlerts = False
App.Visible = True
Set Object = App.Documents.Add()
Set Book = App.Workbooks.Open("C:\Documents and Settings\Desktop\MIC.doc")
End Sub
cs_loulou69
Messages postés672Date d'inscriptionmercredi 22 janvier 2003StatutMembreDernière intervention 2 juin 20161 3 mars 2009 à 14:31
Remplacer
Set Object = App.Documents.Add()
Set Book = App.Workbooks.Open("C:\Documents and Settings\Desktop\MIC.doc")
par
Set Object = App.Documents.Open("C:\Documents and Settings\Desktop\MIC.doc")