Discussion :

[Trius]

Bonjour,

J'ai cherché une commande permettant de faire ce que je souhaite mais je n'ai pas trouvé...

Je souhaite automatiser des transferts de fichiers et pour ce faire je dois accéder à un disque qui demande tous les jours de rentrer le mot de passe. Mon code actuel ne reconnait pas le chemin de ce disque si j'oublie d'accéder à ce dossier avant de lancer la macro.

Auriez-vous un moyen de résoudre ce petit souci (je sais le faire pour accéder à une base Access verrouillée mais là...)?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Sub Déplacement
 
        Source = "Z:\Dossier\Fichier A"
        Destin = "R:\Sauvegarde\Fichier A"
 
    FileCopy Source, Destin
 
End Sub

Dans le code le disque scellé est le disque Z.

Merci!

[jfontaine]

Bonjour,

Tu peux monter un lecteur reseau en utilisant la commande dos Net use

Dans Excel

Code :

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

Shell ("Net Use R: \\NomServeur\NomPartage\Repertoire\ /USER:Domaine\Login")

NET USE utilise NetBios et permet de connecter ou déconnecter un lecteur réseau sous DOS. La connexion est également effective sous Windows (versions actuelles). Je ne vois que les commandes compatibles avec toutes les versions plus celle actuelles.
NET USE [lecteur: | *] [\\computer\repertoire [password | ?]]
[/SAVEPW:NO] [/YES] [/NO] /delete

Drive: permet de déterminer la lettre du disque
\\computer\repertoire désigne le nom de l'ordinateur et le dossier partagé.
Mot de passe permet de spécifier un mot de passe, mais pas le login ce qui rend cette commande difficile à utiliser sur les lecteurs réseaux actuels. | ? permet de spécifier que le mot de passe doit être prompté.
/delete supprime le dossier réseau
[/user:[nom de domaine\]nom utilisateur] permet de désigner un nom d'utilisateur sur le domaine spécifié
[/user:[nom de domaine avec point\]nom utilisateur] identique mais pour les intranet par exemple.
[user:[nom de l'utilisateur@nom de domaine avec points]
[/persistent: Yes ou No] permet de rendre la connexion permanente.
La commande permet également de partager des imprimantes.

NET USE port \\ordinateur\nom_imprimante [mot de passe] permet d'attribuer un port à une imprimante réseau.

Exemple:

NET USE L: \\serveur\public /persistent:yes désigne par la lettre L le dossier public de l'ordinateur serveur. Cette connexion est recrée au prochain démarrage
NET USE L: affiche les propriétés de la connexion L:
NET USE L: /delete supprime la connexion L:
Net use LPT2 \\serveur\laserjet redirectionne le port local LPT2 vers l'imprimante réseau du serveur.

[Trius]

Bonjour,

Tu peux monter un lecteur reseau en utilisant la commande dos Net use

Dans Excel

Code :

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

Shell ("Net Use R: \\NomServeur\NomPartage\Repertoire\ /USER:Domaine\Login")

Ca marche impeccablement!

Merci beaucoup je n'aurai jamais trouvé ça!