Discussion :

[LiseUEMPT]

Bonjour,
J'ouvre une autre base de données avec cette ligne de code qui fonctionne très bien,

Code :

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

   VBA.Shell """MsAccess.exe""" & " """ & strChemin2013 & "\" & "Ecol - Menu - Listekll.accdb""", vbNormalFocus

cependant je voudrais utiliser une variable à la place du nom de la base de données, comme :

Code :

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

VBA.Shell "MsAccess.exe" & " " & strChemin2013 & "\" & strfichier, vbNormalFocus

ce qui améliorait mon code car j'ouvre plusieurs base de données et au lieu d'écrire plusieurs procédures j'en aurais une seule.

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
Sub CheminOffice()
Dim strChemin2013 As String, strChemin2016 As String, strfichier As String
 
strChemin2013 = "C:\PartageMtl\BD"
strChemin2016 = "C:\Users\" & Environ$("UserName") & "\Documents\PartageMtl\Bd"
strfichier = "projets.accdb"
Dim msg, Style, Title, Help, Ctxt, Response, MyString
msg = "Office 2016 - choisir OUI ?" & Chr(13) & Chr(10) & Chr(13) & "Office 2013 - choisir NON "
Style = vbYesNoCancel + vbCritical + vbDefaultButton1
Title = "  BD Projet  "
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(msg, Style, Title, Help, Ctxt)
 
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
    'MsgBox "Office 2016"
    VBA.Shell "MsAccess.exe" & " " & strChemin2016 & "\" & strfichier, vbNormalFocus  ' fonctionne
ElseIf Response = vbNo Then
    MyString = "No"    ' Perform some action.
 '   MsgBox "Office 2013"
    VBA.Shell "MsAccess.exe" & " " & strChemin2013 & "\" & strfichier, vbNormalFocus  ' fonctionne"
 
Else
    Exit Sub
End If
 
End Sub

ça fonctionne quand le nom de la base de données ne contient pas d'espace, mais je n'arrive pas écrire la ligne correctement avec un nom de base de données qui contient des espaces : "Ecol - Menu - Listekll.accdb"

Merci de votre aide toujours précieuse

[ilank]

Bonjour,
tu as toi-même donné la solution dans ton premier exemple de code en protégeant le nom de fichier complet (emplacement compris) par des double-quotes (ou guillemets).

[LiseUEMPT]

Merci, j'ai refait mes tests et ça fonctionne.