Discussion :

[meloune VBAdebutante]

Bonjour,

Je travaille sur une macro qui me permet de créer un TCD à partir d'un autre classeur excel qui me sert de base de données.
Ce tcd est un outil qui va etre mis a disposition sur le serveur de mon entreprise.
La macro marche mais le souci c'est la racine où est enregistrée mon classeur base de données. Elle est différente selon l'ordinateur utilisé.

Actuellement mon code commence ainsi :

Code :

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

Workbooks.Open Filename:="Y:\FAStime\Technique\Base de données GDT.xlsb"

or sur un autre pc l'acces au fichier pourrait etre "W:\FAStime\Technique\Base de données GDT.xlsb" par exemple.

Quelle serait le code à ajouter au début de ma macro pour que le classeur " base de données GDT.xlsb" soit ouvert même si la racine est différente ?
je vous remercie d'avance

ps je suis novice

[SfJ5Rpw8]

Bonjour,

et au final Y: et W: c'est des unités réseaux ?

[meloune VBAdebutante]

Bonjour,

et au final Y: et W: c'est des unités réseaux ?

oui c'est la lettre qui identifie l'unité réseau.

[SfJ5Rpw8]

utilise le nom UNC de ton répertoire :


http://access.developpez.com/sources...=reseau#GetUNC

[meloune VBAdebutante]

bonjour,
et avec son adresse IP: \\168.192.1.1\FAStime\Technique\Base de données GDT.xlsb?

J'ai essayé avec mon adresse ip. C'est trop long et le chemin est introuvable

utilise le nom UNC de ton répertoire :


http://access.developpez.com/sources...=reseau#GetUNC

j'ai essayé en remplacant mon code par

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
16
17
18
19
20
21
22
23
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" _
 (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
 
 
 
Public Function fnctGetUNCPath(ByVal PathName As String) As String
Const MAX_UNC_LENGTH  As Integer = 512
Dim strUNCPath As String
Dim strTempUNCName As String
Dim lngReturnErrorCode  As Long
 
  strTempUNCName = String(MAX_UNC_LENGTH, 0)
  lngReturnErrorCode = WNetGetConnection(Left(PathName, 2), strTempUNCName, _
    MAX_UNC_LENGTH)
 
  If lngReturnErrorCode = 0 Then
     strTempUNCName = Trim(Left(strTempUNCName, InStr(strTempUNCName, vbNullChar) - 1))
     strUNCPath = strTempUNCName & Mid(PathName, 3)
  End If
 
fnctGetUNCPath = strUNCPath
End Function
MsgBox fnctGetUNCPath("\FAStime\Technique\Base de données GDT.xlsb")

j'ai un message d'erreur " seuls les commentaires peuvent apparaitre apres end sub, end fonction and property"
en sachant qu'il y a le reste de ma macro qui suit

[SfJ5Rpw8]

Tu dois mettre ton appel à MsgBox dans une procédure (Sub ) et n'oublie pas la lettre du disque en paramètre.

Code :

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

1
2
3
Sub MonNomUNC
  MsgBox fnctGetUNCPath("W:\FAStime\Technique\Base de données GDT.xlsb")
End Sub

[Invité]

quand tu vas dans l'explorateur Windows quel es l'adresse ip inscrit dans ton lecteur?
ces celui là que tu dois écrire. mois j'ai des mapage a rallonge et ça fonctionne,je n'utilise jamais les le lettres du mapage!

[pasdechances]

Bonjour,
pour répondre à ta demande il y a trois solutions :

1) ouvrir une fenetre de requete pour choisir l'emplacement du fichier, se qui me permet de t'orienter vers ce fil
2) inscrire tout les chemins possible dans ton classeur xD.(totalement inutile, mais possible)
3) tu peut te servir de la fonction Dir() afin de scaner ton pc et de retrouver le fichier cherché.(extrement long si ton pc à beaucoup de fichier)

[Invité]

bonjour,
et avec son adresse IP: \\168.192.1.1\FAStime\Technique\Base de données GDT.xlsb?