Mon probleme est le suivant:
Comment faire pour qu'un programme enregistre des données sur un serveur du
style
ActiveWorkbook.SaveAs Filename:=G_nomFichier, login utilisateur, mot de
passe
alors que la plupart des utilisateurs ne possedent pas les droits sur le
dossier ou doit etre enregistré ce fichier.
Mais est ce possible?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Je ne suis pas en réseau, donc je ne peux pas tester le code suivant, que j'ai pêché sur Internet. Il permet de mapper un serveur et de s'en déconnecter. Une fois l'opération faite, tu peux effectuer ton enregistrement. Le problème est que tu ves coder "en dur" des informations de login qui ne seront pas trop sécurisées. La fonction à utiliser pour se connecter est : "connectServ" et celle pour se déconnecter : "DisconnectServ". Essaie aussi d'utiliser "vbHide" au lieu de "vbNormalFocus" dans la ligne : retour = Shell(LigneCommande, vbNormalFocus). Voici le code :
Public Function attendre(intervalle As String, indice As Integer) As Integer Valeur = Time tmp = DateAdd(intervalle, indice, Valeur) Do While Time < tmp Loop End Function Private Function connectServ(serv As string, Share AS string, Lettre AS string, Pass AS string, usr AS string ) Dim LigneCommande As String, val, retour As Integer LigneCommande = "NET USE " & serv & ": " & Share & "" & Lettre & " " & Pass & " /USER:" & usr & " /PERSISTENT:NO" retour = Shell(LigneCommande, vbNormalFocus) val = attendre("s", 5) End Function Private Function DisconnectServ(Lettre AS string) Dim LigneCommande As String, val, retour As Integer LigneCommande = "NET USE " & Lettre & ": /DELETE" retour = Shell(LigneCommande, vbNormalFocus) val = attendre("s", 5) End Function
Cordialement. Daniel
Bonjour tout le monde,
Mon probleme est le suivant: Comment faire pour qu'un programme enregistre des données sur un serveur du style ActiveWorkbook.SaveAs Filename:=G_nomFichier, login utilisateur, mot de passe alors que la plupart des utilisateurs ne possedent pas les droits sur le dossier ou doit etre enregistré ce fichier. Mais est ce possible?
merci
Bonjour.
Je ne suis pas en réseau, donc je ne peux pas tester le code suivant,
que j'ai pêché sur Internet. Il permet de mapper un serveur et de s'en
déconnecter. Une fois l'opération faite, tu peux effectuer ton
enregistrement. Le problème est que tu ves coder "en dur" des
informations de login qui ne seront pas trop sécurisées. La fonction à
utiliser pour se connecter est : "connectServ" et celle pour se
déconnecter : "DisconnectServ". Essaie aussi d'utiliser "vbHide" au
lieu de "vbNormalFocus" dans la ligne :
retour = Shell(LigneCommande, vbNormalFocus).
Voici le code :
Public Function attendre(intervalle As String, indice As Integer) As
Integer
Valeur = Time
tmp = DateAdd(intervalle, indice, Valeur)
Do While Time < tmp
Loop
End Function
Private Function connectServ(serv As string, Share AS string, Lettre AS
string, Pass AS string, usr AS string )
Dim LigneCommande As String, val, retour As Integer
LigneCommande = "NET USE " & serv & ": \" & Share & "" & Lettre & " "
& Pass & " /USER:" & usr & " /PERSISTENT:NO"
retour = Shell(LigneCommande, vbNormalFocus)
val = attendre("s", 5)
End Function
Private Function DisconnectServ(Lettre AS string)
Dim LigneCommande As String, val, retour As Integer
LigneCommande = "NET USE " & Lettre & ": /DELETE"
retour = Shell(LigneCommande, vbNormalFocus)
val = attendre("s", 5)
End Function
Cordialement.
Daniel
Bonjour tout le monde,
Mon probleme est le suivant:
Comment faire pour qu'un programme enregistre des données sur un serveur du
style
ActiveWorkbook.SaveAs Filename:=G_nomFichier, login utilisateur, mot de passe
alors que la plupart des utilisateurs ne possedent pas les droits sur le
dossier ou doit etre enregistré ce fichier.
Mais est ce possible?
Bonjour. Je ne suis pas en réseau, donc je ne peux pas tester le code suivant, que j'ai pêché sur Internet. Il permet de mapper un serveur et de s'en déconnecter. Une fois l'opération faite, tu peux effectuer ton enregistrement. Le problème est que tu ves coder "en dur" des informations de login qui ne seront pas trop sécurisées. La fonction à utiliser pour se connecter est : "connectServ" et celle pour se déconnecter : "DisconnectServ". Essaie aussi d'utiliser "vbHide" au lieu de "vbNormalFocus" dans la ligne : retour = Shell(LigneCommande, vbNormalFocus). Voici le code :
Public Function attendre(intervalle As String, indice As Integer) As Integer Valeur = Time tmp = DateAdd(intervalle, indice, Valeur) Do While Time < tmp Loop End Function Private Function connectServ(serv As string, Share AS string, Lettre AS string, Pass AS string, usr AS string ) Dim LigneCommande As String, val, retour As Integer LigneCommande = "NET USE " & serv & ": " & Share & "" & Lettre & " " & Pass & " /USER:" & usr & " /PERSISTENT:NO" retour = Shell(LigneCommande, vbNormalFocus) val = attendre("s", 5) End Function Private Function DisconnectServ(Lettre AS string) Dim LigneCommande As String, val, retour As Integer LigneCommande = "NET USE " & Lettre & ": /DELETE" retour = Shell(LigneCommande, vbNormalFocus) val = attendre("s", 5) End Function
Cordialement. Daniel
Bonjour tout le monde,
Mon probleme est le suivant: Comment faire pour qu'un programme enregistre des données sur un serveur du style ActiveWorkbook.SaveAs Filename:=G_nomFichier, login utilisateur, mot de passe alors que la plupart des utilisateurs ne possedent pas les droits sur le dossier ou doit etre enregistré ce fichier. Mais est ce possible?
merci
berkowil
Merci Daniel, j'essayerai cela dans la semaine et je te tiendrai au courant Merci encore!!
"Daniel.C" a écrit dans le message de news:
Bonjour. Je ne suis pas en réseau, donc je ne peux pas tester le code suivant, que j'ai pêché sur Internet. Il permet de mapper un serveur et de s'en déconnecter. Une fois l'opération faite, tu peux effectuer ton enregistrement. Le problème est que tu ves coder "en dur" des informations de login qui ne seront pas trop sécurisées. La fonction à utiliser pour se connecter est : "connectServ" et celle pour se déconnecter : "DisconnectServ". Essaie aussi d'utiliser "vbHide" au lieu de "vbNormalFocus" dans la ligne : retour = Shell(LigneCommande, vbNormalFocus). Voici le code :
Public Function attendre(intervalle As String, indice As Integer) As Integer Valeur = Time tmp = DateAdd(intervalle, indice, Valeur) Do While Time < tmp Loop End Function Private Function connectServ(serv As string, Share AS string, Lettre AS string, Pass AS string, usr AS string ) Dim LigneCommande As String, val, retour As Integer LigneCommande = "NET USE " & serv & ": " & Share & "" & Lettre & " " & Pass & " /USER:" & usr & " /PERSISTENT:NO" retour = Shell(LigneCommande, vbNormalFocus) val = attendre("s", 5) End Function Private Function DisconnectServ(Lettre AS string) Dim LigneCommande As String, val, retour As Integer LigneCommande = "NET USE " & Lettre & ": /DELETE" retour = Shell(LigneCommande, vbNormalFocus) val = attendre("s", 5) End Function
Cordialement. Daniel
Bonjour tout le monde,
Mon probleme est le suivant: Comment faire pour qu'un programme enregistre des données sur un serveur du style ActiveWorkbook.SaveAs Filename:=G_nomFichier, login utilisateur, mot de passe alors que la plupart des utilisateurs ne possedent pas les droits sur le dossier ou doit etre enregistré ce fichier. Mais est ce possible?
merci
Merci Daniel,
j'essayerai cela dans la semaine et je te tiendrai au courant
Merci encore!!
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:eB2nkKkdJHA.556@TK2MSFTNGP06.phx.gbl...
Bonjour.
Je ne suis pas en réseau, donc je ne peux pas tester le code suivant, que
j'ai pêché sur Internet. Il permet de mapper un serveur et de s'en
déconnecter. Une fois l'opération faite, tu peux effectuer ton
enregistrement. Le problème est que tu ves coder "en dur" des informations
de login qui ne seront pas trop sécurisées. La fonction à utiliser pour se
connecter est : "connectServ" et celle pour se déconnecter :
"DisconnectServ". Essaie aussi d'utiliser "vbHide" au lieu de
"vbNormalFocus" dans la ligne :
retour = Shell(LigneCommande, vbNormalFocus).
Voici le code :
Public Function attendre(intervalle As String, indice As Integer) As
Integer
Valeur = Time
tmp = DateAdd(intervalle, indice, Valeur)
Do While Time < tmp
Loop
End Function
Private Function connectServ(serv As string, Share AS string, Lettre AS
string, Pass AS string, usr AS string )
Dim LigneCommande As String, val, retour As Integer
LigneCommande = "NET USE " & serv & ": \" & Share & "" & Lettre & " " &
Pass & " /USER:" & usr & " /PERSISTENT:NO"
retour = Shell(LigneCommande, vbNormalFocus)
val = attendre("s", 5)
End Function
Private Function DisconnectServ(Lettre AS string)
Dim LigneCommande As String, val, retour As Integer
LigneCommande = "NET USE " & Lettre & ": /DELETE"
retour = Shell(LigneCommande, vbNormalFocus)
val = attendre("s", 5)
End Function
Cordialement.
Daniel
Bonjour tout le monde,
Mon probleme est le suivant:
Comment faire pour qu'un programme enregistre des données sur un serveur
du style
ActiveWorkbook.SaveAs Filename:=G_nomFichier, login utilisateur, mot de
passe
alors que la plupart des utilisateurs ne possedent pas les droits sur le
dossier ou doit etre enregistré ce fichier.
Mais est ce possible?
Merci Daniel, j'essayerai cela dans la semaine et je te tiendrai au courant Merci encore!!
"Daniel.C" a écrit dans le message de news:
Bonjour. Je ne suis pas en réseau, donc je ne peux pas tester le code suivant, que j'ai pêché sur Internet. Il permet de mapper un serveur et de s'en déconnecter. Une fois l'opération faite, tu peux effectuer ton enregistrement. Le problème est que tu ves coder "en dur" des informations de login qui ne seront pas trop sécurisées. La fonction à utiliser pour se connecter est : "connectServ" et celle pour se déconnecter : "DisconnectServ". Essaie aussi d'utiliser "vbHide" au lieu de "vbNormalFocus" dans la ligne : retour = Shell(LigneCommande, vbNormalFocus). Voici le code :
Public Function attendre(intervalle As String, indice As Integer) As Integer Valeur = Time tmp = DateAdd(intervalle, indice, Valeur) Do While Time < tmp Loop End Function Private Function connectServ(serv As string, Share AS string, Lettre AS string, Pass AS string, usr AS string ) Dim LigneCommande As String, val, retour As Integer LigneCommande = "NET USE " & serv & ": " & Share & "" & Lettre & " " & Pass & " /USER:" & usr & " /PERSISTENT:NO" retour = Shell(LigneCommande, vbNormalFocus) val = attendre("s", 5) End Function Private Function DisconnectServ(Lettre AS string) Dim LigneCommande As String, val, retour As Integer LigneCommande = "NET USE " & Lettre & ": /DELETE" retour = Shell(LigneCommande, vbNormalFocus) val = attendre("s", 5) End Function
Cordialement. Daniel
Bonjour tout le monde,
Mon probleme est le suivant: Comment faire pour qu'un programme enregistre des données sur un serveur du style ActiveWorkbook.SaveAs Filename:=G_nomFichier, login utilisateur, mot de passe alors que la plupart des utilisateurs ne possedent pas les droits sur le dossier ou doit etre enregistré ce fichier. Mais est ce possible?