Discussion :

[MONANGE]

Bonsoir,
J'ai un formulaire qui dépend de la table Sauvegarde avec 3 box Source , destination et Id
pour récupérer le chemin complet d'un fichier dans le box [Source] j'utilise la procédure suivante :
ex: K:\Documents\xxx\xxxxx\xx\DATA_AL.accdb

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
Private Sub CdeCheminComplet_Click()
' Gestion des erreurs
   ' On Error GoTo Catch01
 
    ' récupération du chemin physique du Fichier
    '  par la boite de dialogue
    strLink = OuvrirUnFichier(Me.Hwnd, _
                              "Sélectionner un Fichier pour le Compte " & Me.Id, _
                              1)
 
    ' si la boite renvoie une adresse non nulle
    If Len(strLink) > 0 Then
        ' tentative d'affichage du Fichier
 
        Me.Source = strLink
    End If
    Exit Sub
End Sub

Je ne parviens pas récupérer le chemin du répertoire ou Dossier dans mon box [destination]
ex : D:\Sauvegarde\xxx_2019
Pouvez me mettre sur la voie
Merci

[tee_grandbois]

bonsoir,

J'ai un formulaire qui dépend de la table Sauvegarde avec 3 box Source , destination et Id

tes informations sont un peu floues, qu'est-ce qu'un box pour toi ?
Un formulaire ne dépend d'une table, par contre, une table peut être la source d'un formulaire ...
On ne comprend pas ton code surtout qu'il est incomplet puisqu'il manque le code de OuvrirUnFichier().
Sinon, connais-tu Office.Filedialog ?

[MONANGE]

Bonsoir,
merci de votre intérêt pour ma question très mal posé je l'avoue
Je suis nul en programmation VBA ou autre
En fait il s'agit de zone texte et ma table maintenance est bien la source
Je ne connais pas Office.Filedialog j'ai copié le code mais je ne sais pas l'exploiter
Dois je le mettre dans un module ou directement sur le bouton ?

[tee_grandbois]

Je suis nul en programmation VBA ou autre
En fait il s'agit de zone texte et ma table maintenance est bien la source
Je ne connais pas Office.Filedialog j'ai copié le code mais je ne sais pas l'exploiter
Dois je le mettre dans un module ou directement sur le bouton ?

Avant de te lancer dans du code que tu ne maitrises pas, si tu ré-expliquais un peu plus en détail ce que tu souhaites faire, peut-être on y verrait plus clair.

[MONANGE]

Avant de te lancer dans du code que tu ne maitrises pas, si tu ré-expliquais un peu plus en détail ce que tu souhaites faire, peut-être on y verrait plus clair.

Bonjours,
je joins une copie de ma base avec laquelle j'assure la maintenance de mes autre bases qui se trouve sur mon ordinateur (compactage reparation et sauvegarde)

La partie récupération du chemin complet de la base à traité se déroule correctement

Pour la partie récupération du chemin de destination de ma base à sauvegardé je suis obligé de supprimer manuellement une partie de ce chemin
Merci de votre patience et de votre aide
Bien cordialement

[tee_grandbois]

bonjour,
Une fonction permet de récupérer une variable, ce que ne permet pas une Sub, j'ai donc transformé la Sub SelectionDossier() en Function pour récupérer le dossier sélectionné car c'est bien ce code qu'il faut utiliser, le précédent ne permettant que la sélection de fichiers.

L'avantage avec Office.FileDialog, outre que c'est plus facilement utilisable pour le commun des non initiés aux API (GetOpenFileName dans notre cas), c'est qu'il permet la sélection des dossiers ou des fichiers: il suffit de changer le paramètre (msoFileDialogFolderPicker pour les dossiers ou msoFileDialogFilePicker pour les fichiers)

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
Function SelectionDossier() As String
  Dim fd As Office.FileDialog
 
  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogFolderPicker)
 
  ' Titre de la boîte
  fd.Title = "Sélectionnez un dossier..."
 
  ' Afficher la boîte et traiter le résultat
    If fd.Show() Then
        If MsgBox("Vous avez sélectionné le dossier : " & _
		vbCrLf & fd.SelectedItems(1), vbOKCancel + vbExclamation) = vbOK Then _
            SelectionDossier = fd.SelectedItems(1)
    End If
 
  Set fd = Nothing
End Function

à noter qu'on peut se positionner sur un répertoire par défaut à l'ouverture de la boite de dialogue en ajoutant cette ligne : fd.InitialFileName = "D:\Sauvegarde\"
J'ai également modifié le code du bouton du formulaire pour appeler le code:

Code :

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

1
2
3
4
Private Sub Commande68_Click()
    Me.Destination = SelectionDossier
 
End Sub

et la base modifiée:
Maintenance - UP.zip

[MONANGE]

Bonsoir,
Merci de la rapidité et pertinence de votre réponse
J'ai supprimer le message et c'est exactement ce que je souhaité