VBA : Connection à une base de donnée dont le chemin est une variable

Question

Bonjour, 

Je me permets de vous contacter car je n'arrive pas à résoudre un problème sur mon code VBA. 
Je lance une boite de dialogue afin de récupérer le chemin de ma base de donnée (Access), mais lorsque j'essaye de l'ouvrir, le résultat est " Nom de fichier incorrect".

J'ai cherché sur différents forum mais je n'ai pas réussi à trouver de réponses, je vous prie de m'excuser si ce sujet a déja été traité et que je ne l'ai pas trouvé.

Merci, 
Au revoir

ps le code :
Sub SelectionFichier()

  Dim fd As Office.FileDialog
  Dim bdd As DAO.Database


  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogOpen)
  
  ' Titre de la boîte de dialogue
  fd.Title = "Sélectionnez un fichier..."
  
  ' Ne pas autoriser la sélection multiple
  ' (donc 1 seul fichier est sélectionnable à la fois)
  fd.AllowMultiSelect = False
  
  ' Définir les types de fichiers autorisés
 fd.Filters.Add "Tous les fichiers", "*.*"

  ' Afficher la boîte de dialogue
  If fd.Show() Then
    UserForm.T_chemin = vbCrLf & fd.SelectedItems(1)
      chemin = vbCrLf & fd.SelectedItems(1)
  End If
Set bdd = DBEngine.OpenDatabase(chemin)
bdd.Close
End Sub

cs_Jack · Answer

Salut

C'est sûr que sile chemin commence par vbCrLf, il va pas aimer.
chemin = vbCrLf & fd.SelectedItems(1) 

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

marida12 · Answer

svp je vous des excercice corige  de topographie

VBA : Connection à une base de donnée dont le chemin est une variable

2 réponses

Votre réponse

Discussions similaires