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.
Pour le code
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 Subau lieu de ;
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"""je voudrais avoir le répertoire courant, sans être obligé de spécifier tout le chemin.
Code : Sélectionner tout - Visualiser dans une fenêtre à part ""C:\MTL\BD\Modèle.xlsm"""
J'ai fait plusieurs essais, entre autre, avec "CurrentProject.Path" en inscrivant en début de procédure :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
1
2 Dim BD As DAO.Database Set BD = CurrentDbEst-ce qu'il y a une solution à mon besoin?
Code : Sélectionner tout - Visualiser dans une fenêtre à part C:\MTL\BD\Modèle.xlsm
Merci de votre aide.
Partager