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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager