OUVRIR UN FICHIER WORD en VB

  • Initiateur de la discussion FlashVB
  • Date de début
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
 
@

@+Thierry

Guest
Salut Flash, le Forum

Ben tu mets ton nom de fichier dans une Variable de type string...

Sub CommandButton_Click() ' bouton d'ouverture
Dim NomFile As String
Dim wdapp As Word.Application

If Not IsEmpty(Range("R39") Then NomFile = Range("R39") & ".doc" '<<Si .doc non spécifié dans la cellule

Set wdapp = New Word.Application
wdapp.Visible = True
wdapp.Documents.Open ("G:\Documents and Settings\FlashVB\Bureau\FichesProduits\" & NomFile)
End Sub

Bon Samedi
@+Thierry
 
@

@+Thierry

Guest
Re Flash

Ben tu n'as pas lu mon code semblerait-il ?

Si tu mets ceci :

If Not IsEmpty(Range("R39") Then NomFile = Range("R39") & ".doc"


Il est inutile que ta cellule R36 contienne l'extension ".doc" ...

non (?)

Bon Samedi
@+Thierry
 
@

@+Thierry

Guest
Re

C'est toi qui à écrit ceci pas moi : (lol)

Sub OuvrirFichesProduits()
ChDir "G:\Documents and Settings\FlashVB\Bureau\"
Workbooks.Open Filename:=Range("r39").Value
End Sub

Maintenant si c'est une ListBox c'est idem de toute manière

@+Thierry
 
W

Will

Guest
Salut,

Les scripts suivants fonctionnent avec Microsoft Word 10.0 Object Library donc sur XP. Par contre, sous Windows 2000 Pro, ça plante (pas de compatibilité descendante). Sais-tu quelles modifs faut-il faire ?

Merci à toi.

-----------------------------------------------------------------
Private Sub OuvrirFichesProduits() ' Chemin d'accès
-----------------------------------------------------------------
ChDir "G:\Documents and Settings\FlashVB\Bureau\Fiches"
Workbooks.Open Filename:=Range("r39").Value
End Sub
--------------------------------------------------------------------------
Sub Bouton_Click() 'Bouton d'ouverture de la fiche produit
-------------------------------------------------------------------------
ChDir "G:\Documents and Settings\FlashVB\Bureau\Fiches"
Dim NomFile As String
Dim wdapp As Word.Application
If Not IsEmpty(Range("R39")) Then NomFile = Range("r39") & ".doc" '<<Si .doc non spécifié dans la cellule
Set wdapp = New Word.Application
wdapp.Visible = True
wdapp.Documents.Open ("G:\Documents and Settings\FlashVB\Bureau\E-Solutions\" & NomFile)
End Sub
 

Discussions similaires

Réponses
5
Affichages
3 K