Discussion :

[lecail65]

Bonjour à tous !

Je vous sollicite pour une manipulation que je ne sais pas réaliser ou peut être qui n'est pas possible de faire mais bon je demande au cas où !!!

explications :
j'ai un formulaire Excel que des utilisateurs X,Y,Z remplissent. Ce formulaire possede un bouton afin de permettre l'enregistrement de celui-ci sur un repertoire d'un serveur SRV. Lorsque l'utilisateur à appuyer sur ce bouton le bouton deviens "disabled" (normal) et l'utilisateur peut imprimer, voir sauvegarder le fichier .xls.

Le problème :
Le problème réside dans l'enregistrement du fichier. Car lorsque l'utilisateur va faire : Fichier->Enregistrer ou Fichier->Enregistrer Sous le repertoire d'enregistrement sera le repertoire du server SRV.

Question :
Comment faire afin que l'utilisateur arrive sur un autre répertoire ???

Solution deja testé :
J'ai fais en sorte de récupérer le username de la session windows et je me suis dis que j'allais enregistrer le fichier en question une deuxieme fois, sur le bureau ou dans mes documents du poste utilisateur, puis apres que j'allais supprimer le dossier en question ! mais la suppression est impossible vu que le fichier reste ouvert

j'espère que vous aurez compris ce que je recherche à réalisé et surtout que vous pourrez m'aider c'est urgent ! lol

merci à vous !

[zazaraignée]

Le chemin par défaut devrait être le suivant

Code :

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

1
2
3
Dim Chemin As String, nomUtilisateur As String
' nomUtilisateur = "¡no se!"
Chemin = "C:\Documents and Settings\" & nomUtilisateur & "\Mes documents"

à condition que le répertoire existe sur le poste client du réseau.

Et je n'ai jamais récupéré le nom d'un utilisateur d'un réseau... alors pour ce bout là, je ne peux pas t'aider.

[tirex28]

Bonjour,

Si j'ai bien compris:

Code :

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

1
2
3
4
5
6
Dim CFolder As String
CFolder = CurDir    'sauvegarde le repertoire courant
 
'Enregistrement sur le serveur
 
ChDir CFolder     'retabli le repertoire courant

Cordialement,

Tirex28/

[lecail65]

En ce qui concerne le nom de l'utilisateur je ne rencontre pas de problème j'arrive bien à créer un chemin comme suit :

Code :

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

1
2
3
 
 
ChDir "C:\Documents and Settings\" & UsrName & "\Bureau\"

Effectivment Tirex28 j'ai essayé déjà quelque chose dans le style du code que tu m'as transmis mais cela ne change rien.

En fait peut importe ce que je met derière le "ChDir", lorsque l'utilisateur va vouloir faire enregistrer sous il arrivera sur le repertoire du server là où j'ai enregistré le fichier.

[tirex28]

Re,

Essaye alors de préciser le disque avant de restaurer le repertoire:

Code :

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

ChDrive "C"

Cordialement,

Tirex28/

[lecail65]

rahhh non le ChDrive "C" ne change rien.

est-il possible, lors de l'ouverture de la boite de dialogue "enregistrer Sous", de forcer le répertoire d'enregistrement?

cela arrangerai un peu la situation mais si par mégarde l'utilisateur choisi d'enregistrer tout court alors il enregistrera encore sur le serveur.... vous voyez le truc !!??

[kiki29]

Salut,si cela peut aider la liste des variables d'environnement

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
Option Explicit
 
Sub VariablesEnvironnement()
Dim i As Integer, sEnv As String
Dim Pos As Integer
    i = 1
    Do
        sEnv = Environ(i)
        If Len(sEnv) = 0 Then Exit Do
        Pos = InStr(Environ(i), "=")
        Cells(i, 1) = Left(sEnv, Pos - 1)
        Cells(i, 2) = Right(sEnv, Len(sEnv) - Pos)
        i = i + 1
    Loop
End Sub

et donc plus particulierement Environ("USERNAME") et Environ("USERPROFILE")
penser également au ChDrive avant le ChDir