Discussion :

[bboy-eazy]

Bonjour,

Je souhaite faire une test à l'ouverture d'un fichier afin de savoir si c'est le bon fichier. Pour ceci voici mon code:

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
Dim chemin1 As Variant
chemin1 = Workbooks("Test.xls").Path
If chemin1 <> "\\Frxent02\CtrlLabo\_Dossier" Then
MsgBox "Mauvais fichier " & ThisWorkbook.Path
End If
End Sub

LE problème c'est que le fichier est sur réseau et le chemin est ceci \\Frxent02\CtrlLabo\_Dossier
or lorque je recupère chemin1 il prend pour valeur: "G:\_Dossier"
Le truc c'est que le chemin du réseau est bien \\Frxent02\CtrlLabo mais que du coup il considère que \\Frxent02\CtrlLabo est la même chose que G:\

Sur le fait je pourrai mettre ce chemin "G:\_Dossier" à la place de "\\Frxent02\CtrlLabo\_Dossier" mais comme c'est un fichier partagé et ouvert sur plusieurs ordinateurs, il s'avère que des fois ce ne soit pas G:\ mais X:\ du coup le test est faussé. COmment faire pour palier à ce problème svp??

Merci d'avance

[Gado2600]

Bonjour,

Pourrais-tu donner un peu plus d'informations (bien que ta problématique soit claire) ?
Par exemple, le pourquoi tu as besoin de contrôler s'il s'agit du bon fichier ou non ?

Cordialement,

[bboy-eazy]

D'accord,


En fait il arrive que ce fichier soit copier/coller sans faire de raccourci du coup les données entrées sur le fichier copier ne se reportent pas dans le vrai fichier à utiliser.
Du coup je voulais empecher ceci en faisant un test du chemin du fichier à l'ouverture pour forcer les utilisateurs à venir sur le fichier déposé sur le réseau qui est le bon.

[Gado2600]

Mouais... Pas évident de gérer les utilisateurs

Pour rester dans ton système de contrôle des chemins, il y a une possibilité, qui est la suivante :
Dans un onglet à part, tu listes différents chemins que tu acceptes (X:\machin ; Y:\machin...).
Lors de l'ouverture du fichier, tu vérifies que le chemin corresponde à un élément de la liste.

Cordialement

[bboy-eazy]

très bonne idée de faire ceci Je n'y avais pas pensé et c'est tout con et le plus simple en effet.

Merci de ton aide
Bonne journée

[carden752]

Bonjour,

Je pense que le plus adéquat serait d'utiliser le filesystemobject est notamment la propriété GetAbsolutePathName

Code :

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

1
2
3
4
5
6
7
 
sub testcheminabsolu ()
Dim fso As FileSystemObject
Set fso = New FileSystemObject
MsgBox fso.GetAbsolutePathName(ActiveWorkbook.Path)
set fso=nothing
end sub

[bboy-eazy]

Bonjour,

Merci pour l'interet porté à ma question.

J'ai essayé avec cette propriété et elle renvoie aussi G:\ au lieu de "\\Frxent02\CtrlLabo"


j'ai modifié le code car l'écriture ne convenait pas à ma version d'excel. je ne pense pas que cela influe sur le code:

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetAbsolutePathName(ActiveWorkbook.Path)
Set fso = Nothing
End Sub

merci

[carden752]

Bonjour,

Tu peux donc trouver le chemin UNC du fichier en utilisant la propriété ShareName :

Code :

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

fso.GetDrive(fso.GetDriveName(ActiveWorkbook.Path)).ShareName & Mid(ActiveWorkbook.FullName, 3)

[bboy-eazy]

Merci Beaucoup Carden,

C'est la fonction parfaite


Tout fonctionne bien