Macro Excel et réseau

Question

Bonjour,
J'ai des macros Excel qui ouvrent des fichiers du genre :
Workbooks.Open Filename:="C:\Mes Documents\Répertoire\Monfichier.xls"

Ces macros ne fonctionnent pas en réseau quand je les lance d'un autre poste.
Dans ce cas l'ouverture se fait avec
Workbooks.Open Filename:= \\Nom_Ordi\Mes Documents\ Répertoire\Monfichier.xls"

…mais cette syntaxe ne fonctionne pas sur le poste où se trouve le fichier !

Comment faire pour faire tourner mes macros quel que soit le poste utilisé pour les lancer ?

A l'avance merci pour vos lumières

tompols · Answer

Salut,

En rajoutant une condition du type
If nom_ordi_utilisé = nom_ordi then Workbooks.Open Filename:="C:\Mes Documents\Répertoire\Monfichier.xls"
Else Workbooks.Open Filename:="C:\Mes Documents\Répertoire\Monfichier.xls"

Non ???

Armojax · Answer

Bonjour Warbler,

Peux-tu regarder si le UserName diffère d'un poste du réseau à l'autre, ce qui est probablement le cas (en faisant : MsgBox Application.UserName, par exemple).

Auquel cas, tu peux paramétrer ta commande :
If Application.UserName = "Toto" Then etc.

Warbler · Answer

merci pour ta réponse.
ça marche (après avoir différencié les username).

Mais y-a-t-il une commande VBA pour extraire le nom de l'ordi ?
ça serait plus pratique, car il y a plusieurs utilisateurs par postes.

@+ Warbler

Armojax · Answer

Trouvé, grâce à l'excellent bouquin de Stephen Bullen et John Green. Merci à eux.
Chez moi ça marche, en tout cas.

Voici la marche à suivre :

1) Créer un module de Classe : Insertion / Module de Classe

2) Lui donner un nom : Sélectionner le module de Classe Classe1 qui vient d'être créé, afficher la fenêtre Propriétés et modifier le champ (name). Je l'ai appelé CSysInfo.

3) Placer dans ce module le code suivant :

Private Declare Function GetComputerName Lib "kernel32" _
  Alias "GetComputerNameA" ( _
  ByVal lbbuffer As String, _
  nsize As Long) As Long
  
Public Property Get ComputerName() As String
  Dim stBuff      As String * 255
  Dim lAPIResult  As Long
  Dim lBuffLen    As Long
  
  lBuffLen = 255
  lAPIResult = GetComputerName(stBuff, lBuffLen)
  If lBuffLen > 0 Then ComputerName = Left(stBuff, lBuffLen)
  
End Property

4) On peut ensuite utiliser la nouvelle fonctionnalité dans une macro "normale", de la façon suivante :

Dim obSysInfo As New CSysInfo
NomOrdi = obSysInfo.ComputerName

Essaie et dis-moi si ça marche.
Ajx.

Macro Excel et réseau

4 réponses

Discussions similaires

Newsletters