F
FlashVB
Guest
Bonjour à tous ceux et celles qui bossent ;-)
Le code suivant me permet d'ouvrir un fichier word à partir de la définition d'une ListBox. Comment modifier ce code pour associer l'ouverture de word au fichier choisis.
Un grand merci.
FlashVB
--------------------------------------------------------------------------------------------
Sub OuvrirFichesProduits()
ChDir "G:\Documents and Settings\FlashVB\Bureau\"
Workbooks.Open Filename:=Range("r39").Value
End Sub
---------------------------------------------------------------------------------------------
Sub CommandButton_Click() ' bouton d'ouverture
Dim wdapp As Word.Application
Set wdapp = New Word.Application
wdapp.Visible = True
wdapp.Documents.Open ("G:\Documents and Settings\FlashVB\Bureau\FichesProduits\mondoc.doc")
End Sub
Le code suivant me permet d'ouvrir un fichier word à partir de la définition d'une ListBox. Comment modifier ce code pour associer l'ouverture de word au fichier choisis.
Un grand merci.
FlashVB
--------------------------------------------------------------------------------------------
Sub OuvrirFichesProduits()
ChDir "G:\Documents and Settings\FlashVB\Bureau\"
Workbooks.Open Filename:=Range("r39").Value
End Sub
---------------------------------------------------------------------------------------------
Sub CommandButton_Click() ' bouton d'ouverture
Dim wdapp As Word.Application
Set wdapp = New Word.Application
wdapp.Visible = True
wdapp.Documents.Open ("G:\Documents and Settings\FlashVB\Bureau\FichesProduits\mondoc.doc")
End Sub