[WD-2007] VBA:Pb ouvrir fichier word (et excel) existant si changement de chemin d'acces

[melodie21]

Bonjour!

J'ai un projet VBA a rendre doncle but est d'éditer un etat de frais de mission dans un tableau de synthèse excel et une synthèse dans un fichier word.

J'arrive a ouvrir les deux fichiers (word et excel) déjà existant (pré-rempli) sur mon ordinateur.

Le problème c'est que je doit rendre mon projet donc l'envoyé par mail ou le donner par clé usb mais je n'est pas réussi a trouver les codes pour que l'ouverture des fichiers ne dépende pas du chemin d’accès aux fichiers...

Donc sur un autre ordi ça ne marche pas....

J'ai chercher sur nternet mais je n'ai pas trouvé...

Si quelqu'un peut m'aider ce serait super!

Merci d'avance!!!!!!

Voici les codes que j'ai utilisé:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub CommandButton_Editer_mission_Click()
 
'Ouverture du fichier excel
 
    'déclaration variables pour ouvrir la feuille excel frais-mission
    Dim appExcel As Excel.Application
    Dim wbExcel As Excel.Workbook
    Dim wsExcel As Excel.Worksheet
 
    'ouvrir l'application excel
    Set appExcel = CreateObject("Excel.Application")
    'ouvrir le fichier excel frais_mission
    Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\Ségolène\Mes documents\projet VBA\frais_mission.xlsm")
    'wsExcel correspond à la deuxième feuille du fichier
    Set wsExcel = wbExcel.Worksheets(2)
 
 
'ouvrir le document word existant frais-mission
 
    'declaration variables pour ouvrir document word
 
    Dim Word As Object
    Dim AppWord As Object
 
 
    'ouvrir le fichier word frais_mission
 
    Set Word = CreateObject("Word.Application")
    Word.Visible = True
    Set AppWord = Word.Documents.Open("C:\Documents and Settings\Ségolène\Mes documents\projet VBA\frais_mission.docm", ReadOnly:=True)
 
       'declaration variables pour remplir le document word
 
        Dim WordApp As Word.Application
        Dim WordDoc As Word.Document
 
End sub

[Heureux-oli]

Salut,

Je suppose que le fichier Excel se trouve dans le même répertoire que le document.

On peut récupérer le chemin du document pour l'utiliser avec Excel.

Code :

ActiveDocument.Path

Code :

Set wbExcel = appExcel.Workbooks.Open( ActiveDocument.Path & "\frais_mission.xlsm")