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