Windows XP---->Windows 2000

[Will]

Windows XP---->Windows 2000

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). Quelqu'un sait-il comment faire les modifs ?

Merci d'avance

-----------------------------------------------------------------
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