Salut,
Tout à fait. il suffit de charger le chemin dans cette variable : SelectSaveFile
SelectSaveFile = "C:\DossierVoulu\"
Ensuite il faut que tu teste si le chemin existe, voici une fonction que j'utilise
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
| Function RepExiste(strPath As String) As Boolean
'---------------------------------------------------------------------------------------
' Procédure : RepExiste
' Auteur : Morgan
' Date : 07/11/2010
' Détail : teste l'existence d'un dossier
'---------------------------------------------------------------------------------------
'
' déclarations des variables
Dim strName As String
' initialisation du retour de la fonction
RepExiste = False
' test de l'existence du dossier
If (strName = Dir(strPath, vbDirectory)) = vbEmpty Then
' le dossier existe
RepExiste = True
Else
' le dossier n'existe pas
RepExiste = False
End If
' sortie de la fonction
Exit Function
End Function |
Tu colle ce code dans un module et pour l'appeler :
RepExiste(SelectSaveFile)
Cela te renvoi True si il existe et False si non.
Maintenant tu dois construire ton chemin, si les infos sont contenues dans une table tu peux récupérer les informations avec les fonctions de domaines DlookUp() si la base est en locale et non utilisée en réseau sinon regarde le tuto de Tofalu Cours sur la DAO
@+
Partager