SVPComment récupérer un chemin?

Question

j'ai un prog qui ouvre un fichier, et qui le traîte

j'aimerais que l'user puisse, définir le fichier qu'il veut traiter, et donc ouvrir une boîte qui affecterai le fichier et son chemin dans une variable
comment faire pour ouvrir la boîte de sélection?

merci, d'avance :)

Clonk · Answer

Il s'agit d'une CommonDialog box
tu a sça dans la liste des OCX (Microsoft Common Dialog Control) pour la syntaxe, ça marche comme ça:
With CommonDialog1 
    .CancelError = True
    .InitDir = "C:"
    .Filter = "Texte(*.txt)|*.txt"
    .DialogTitle = "Fichier à importer"
    .ShowOpen
End With
après, pour récupérer l'adresse, tu fais:
Ma_Variable = CommondDialog1.FileName

coolcrash · Answer

Tout d'abord, tu dois ajout  : Microsoft Common Dialog Control

esuite du défini le code suivant qui va paramètre la boit d'ouverture et te permet de choisir le fichier à ouvrir

Si tu as besoin d'ide pour définir le code du control, il es très bien expliquer dans l'aide de vb si non sa va me faire plaisir de t'aider

Bonne Chance

cs_Jack · Answer

Salut. C'est simple :
Tu insères un control CommonDialog dans ta feuille et tu utilises ses caractéristiques pour choisir le type de fichier à afficher dans la fenêtre.
Ci dessous un exemple qui me sert à rechercher ma base de données :
(Mon CommonDialog s'appelle ChercheDB et cette function est dans le Module d'où l'utilisation de Forme.ChercheDB)

Public Function GetDatabase() As String
   ' Retourne le chemin de EnvoxDoc.mdb.
   ' Si EnvoxDoc.mdb n'est pas à l'emplacement par défaut,
   ' présente à l'utilisateur un contrôle CommonDialog et
   ' et lui demande de localiser la base de données.
    On Error GoTo Erreur

   With Forme.ChercheDB
      .DialogTitle = "Veuillez rechercher EnvoxDoc.mdb"
      .InitDir = App.Path
      .FileName = "EnvoxDoc.MDB"
      .Filter = "Access (*.mdb)| *.mdb"
      .CancelError = True 'Cause une erreur si l'utilisateur clique sur annuler
      .ShowOpen
   End With
    
   Do While UCase(Right(Trim(Forme.ChercheDB.FileName), Len("EnvoxDoc.mdb"))) <> "ENVOXDOC.MDB"
         MsgBox "Le nom du fichier est différent de ENVOXDOC.MDB", _
                 vbCritical Or vbOKOnly, App.Title & " - Get Database"
         Forme.ChercheDB.ShowOpen
   Loop
   
   GetDatabase = Forme.ChercheDB.FileName
   Exit Function
   
Erreur:
    If Err = 32755 Then 'Annuler cause une erreur
      End
    End If
End Function

SVPComment récupérer un chemin?

3 réponses

Discussions similaires