OVH Cloud OVH Cloud

La CSG

4 réponses
Avatar
Paul Florent
Bonjour à tous.

Sous Access 2000 ou 2003,
J'ai développé plusieurs applications
en deux parties, frontal et dorsal.
Pour chaque développement, je place le dorsal dans \Mes documents
et crée un lecteur virtuel au démarrage de la machine
par un fichier .bat contenant l'instruction suivante :

Subst W: %USERPR~1%\"Mes documents"

ça marche très bien.
Mais je n'aime pas beaucoup être dépendant de fichiers externes
à l'application qui peuvent être déplacés ou supprimés.

Dans une application, à l'ouverture du formulaire d'accueil
j'exécute le code suivant :


Private Sub Form_Open(Cancel As Integer)
If Dir("W:\") <> Null Then
Exit Sub
Else
Shell "Subst W: D:\Mesdoc~1"
End If
End Sub

ça marche aussi très bien, mais pour moi, la CSG (cerise sur le gâteau)
serait que ceci marche :

Shell "Subst W: %USERPR~1%\Mesdoc~1"

mais manque de pot, ça le fait pas ! (comme disent les plus jeunes d'entre
nous)
Je pense que c'est tout simplement parce que
je ne suis pas un développeur assez habile
et que je ne sais pas placer les guillemets " ou " avec les & au bon
endroit.

Merci par avance pour votre aide, et passez une bonne fin d'année
ailleurs que devant votre ordinateur tant aimé.

Paul

4 réponses

Avatar
Bonjour,

Sans créer de lecteur, tu peux pointer directement sur le dossier "Mes Documents", où qu'il soit, en utilisant la fonction

http://www.3stone.be/access/faq.php?lng=fr
FindMesDocuments()

Dim Wsh As Object
Dim WshSystem As Object

Set Wsh = CreateObject("WScript.Shell")
Set WshSystem = Wsh.Environment("SYSTEM")

FindMesDocuments = Wsh.SpecialFolders("MyDocuments")

Set WshSystem = Nothing
Set Wsh = Nothing

End Function



--
A+
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------

"Paul Florent" a écrit dans le message de news: 43b37e2e$0$11349$
Bonjour à tous.

Sous Access 2000 ou 2003,
J'ai développé plusieurs applications
en deux parties, frontal et dorsal.
Pour chaque développement, je place le dorsal dans Mes documents
et crée un lecteur virtuel au démarrage de la machine
par un fichier .bat contenant l'instruction suivante :

Subst W: %USERPR~1%"Mes documents"

ça marche très bien.
Mais je n'aime pas beaucoup être dépendant de fichiers externes
à l'application qui peuvent être déplacés ou supprimés.

Dans une application, à l'ouverture du formulaire d'accueil
j'exécute le code suivant :


Private Sub Form_Open(Cancel As Integer)
If Dir("W:") <> Null Then
Exit Sub
Else
Shell "Subst W: D:Mesdoc~1"
End If
End Sub

ça marche aussi très bien, mais pour moi, la CSG (cerise sur le gâteau)
serait que ceci marche :

Shell "Subst W: %USERPR~1%Mesdoc~1"

mais manque de pot, ça le fait pas ! (comme disent les plus jeunes d'entre nous)
Je pense que c'est tout simplement parce que
je ne suis pas un développeur assez habile
et que je ne sais pas placer les guillemets " ou " avec les & au bon endroit.

Merci par avance pour votre aide, et passez une bonne fin d'année
ailleurs que devant votre ordinateur tant aimé.

Paul



Avatar
Paul Florent
Arnauld,
Merci pour ta réponse
est ce que ça marchera dans le cas de plusieurs comptes sur une même machine
et donc de plusieurs dossiers Mes documents ?

je fais un W: pour utiliser le même frontal lorsque je suis en réseau et que
la lettre W: est affectée au chamin du réseau qui pointe vers le dorsal,
mais il y a peut être mieux à faire ?

Merci pour ton aide
Paul
Avatar
re

pour lier la base frontale à la dorsale, il suffit d'attacher les tables en parcourant via les favoris réseau afin de stocker le
chemin absolu (//serveur/dossier/dorsale.mdb) au lieu du chemin relatif (w:dossierdorsale.mdb)

La fonction est supposée retourner l'emplacement du dossier "Mes Documents" tel que tu peux le lire en faisant clic droit >
propriétés sur ce dossier.

si pour chaque utilisateur, tu as un dossier différent, tu peux leur atttribuer une cible commune.
Sur ma machine, j'ai par exemple mon dossier "Mes documents" dans une partition séparée.

--
A+
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------



"Paul Florent" a écrit dans le message de news: 43b3c169$0$11348$
Arnauld,
Merci pour ta réponse
est ce que ça marchera dans le cas de plusieurs comptes sur une même machine
et donc de plusieurs dossiers Mes documents ?

je fais un W: pour utiliser le même frontal lorsque je suis en réseau et que la lettre W: est affectée au chamin du réseau qui
pointe vers le dorsal, mais il y a peut être mieux à faire ?

Merci pour ton aide
Paul



Avatar
Paul Florent
Merci pour ton aide,
je vais essayer avec les favoris réseau