[ACCESS2000] acces par un chemin relatif
Fermé
hinanui
Messages postés
14
Date d'inscription
vendredi 9 janvier 2004
Statut
Membre
Dernière intervention
28 juillet 2004
-
24 juin 2004 à 00:34
Utilisateur anonyme - 24 juin 2004 à 21:33
Utilisateur anonyme - 24 juin 2004 à 21:33
A voir également:
- [ACCESS2000] acces par un chemin relatif
- Le chemin d'accès spécifié est introuvable ✓ - Forum Téléchargement
- Lorsqu'un fichier est en ligne sur le web, il a un chemin d'accès absolu tout comme lorsqu'il est stocké en local. donnez ce chemin pour le logo de la cité de l'espace présent sur cette page. - Forum Graphisme
- Chemin d'accès trop long ✓ - Forum Matériel informatique
- Lorsqu'un fichier est en ligne sur le web, il a un chemin d'accès absolu tout comme lorsqu'il est stocké en local. donnez ce chemin pour le logo du musée de cluny présent sur cette page. ✓ - Forum Réseau
- Chemin d'accès absolu d'un logo ✓ - Forum Windows
3 réponses
Bonsoir,
Ce n'ai certe pas génial, mais ça fonctionne !
Est-ce que ça répond à vos attentes ?
Public Sub ChercheRepertoire()
Dim Source As String
Dim Destination As String
Dim NomProg As String
Dim Position, Longueur As Integer
Source = Application.CurrentProject.FullName
NomProg = Application.CurrentProject.Name
Position = Len(NomProg)
Longueur = Len(Source)
Destination = Mid(Source, 1, (Longueur - Position))
Destination = Destination & "...suite\du\chemin"
ChDir Destination
End Sub
Lupin
Ce n'ai certe pas génial, mais ça fonctionne !
Est-ce que ça répond à vos attentes ?
Public Sub ChercheRepertoire()
Dim Source As String
Dim Destination As String
Dim NomProg As String
Dim Position, Longueur As Integer
Source = Application.CurrentProject.FullName
NomProg = Application.CurrentProject.Name
Position = Len(NomProg)
Longueur = Len(Source)
Destination = Mid(Source, 1, (Longueur - Position))
Destination = Destination & "...suite\du\chemin"
ChDir Destination
End Sub
Lupin