Discussion :

[LiseUEMPT]

Bonjour,

Je dois transférer mes bases de données sur un Réseau de partage (K) et je veux aussi les conserver sur mon poste de travail. Afin d'avoir des noms de chemins identiques des bases de données, qu'est-il possible de faire ?

À partir d'un bouton qui se trouve dans un formulaire, dans l'événement "Sur clic", voici le code que j'ai.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Commande302_Click()
 
    Shell """C:\Program Files (x86)\Microsoft Office\Office15\Excel.exe""  ""C:\MTL\BD\Modèle.xlsm"""
    DoCmd.OutputTo acOutputQuery, "Inscription", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint
    Beep
End Sub

Pour le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell """C:\Program Files (x86)\Microsoft Office\Office15\Excel.exe""  ""C:\MTL\BD\Modèle.xlsm"""

au lieu de ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

""C:\MTL\BD\Modèle.xlsm"""

je voudrais avoir le répertoire courant, sans être obligé de spécifier tout le chemin.

J'ai fait plusieurs essais, entre autre, avec "CurrentProject.Path" en inscrivant en début de procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim BD As DAO.Database
Set BD = CurrentDb

mais je ne trouve pas comment écrire le code pour éviter d'écrire le chemin complet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C:\MTL\BD\Modèle.xlsm

Est-ce qu'il y a une solution à mon besoin?

Merci de votre aide.

[tee_grandbois]

bonsoir,

J'ai fait plusieurs essais, entre autre, avec "CurrentProject.Path" en inscrivant en début de procédure :

si ton fichier Excel est effectivement dans le répertoire de ta base:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim strFileName as Sting
strFileName = CurrentProject.Path & "\Modèle.xlsm"
Call Shell("C:\Program Files (x86)\Microsoft Office\Office15\Excel.exe """ & strFileName)

[LiseUEMPT]

Un grand merci ça fonctionne à merveille

[tee_grandbois]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim strFileName as Sting

faute de frappe: c'est String pas Sting