Discussion :

[Simon5713]

Bonjour,

je souhaite ouvrir un fichier excel depuis un code VBA mais ce fichier à ouvrir est sur un réseau partagé. J'ai écrit ce code :

Code :

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

Set classeur = Application.Workbooks.Open(ThisWorkbook.Path & "\" & "Fichier_a_copier", ReadOnly:=True)

Il copie le chemin de mon classeur depuis lequel je demande l'ouverture et va cherche le fichier à ouvrir par ce même chemin (suivi de son nom). Je précise que mon fichier "destination" est dans le même dossier que le classeur à ouvrir.

Cela fonctionne très bien en local sur mon ordinateur mais dès que je fais un essais dans un dossier en réseau les fichiers sont introuvables. Le chemin du classeur destination est bien copié par contre.

Auriez vous des idées ?

Merci en avance et bonne journée

[Zekraoui_Jakani]

Ceci est l'instruction pour l'ouverture en local:

Code :

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

Set classeur = Application.Workbooks.Open(ThisWorkbook.Path & "\" & "Fichier_a_copier", ReadOnly:=True)

Mais quelle est l'instruction que vous donnez pour l'ouverture du fichier sur réseau ?

[Simon5713]

Bpnjour,

justement en réseau je ne sais pas comment lancer l'ouverture ... Mon fichier se trouve dans le même dossier et a donc le même chemin que je copie en changeant simplement le nom du classeur a la fin.

Je pensais qu'en réseau si le chemin était copié il parviendrait à trouver le fichier mais non..

[Zekraoui_Jakani]

Ouvrez le fichier qui se trouve sur réseau
Dans une cellule quelconque, taper la formule =Cell("filename";"A1"); (en Français, je présume =cellule("nom de fichier";"A1"))
Ceci vous donnera le bon chemin sur réseau, à exploiter dans le code

[Pierre Fauconnier]

Salut.

J'ai déjà eu ce genre de soucis avec des disques réseau qui n'ont pas été montés avec une lettre. Si tu montais ton volume réseau en lui attribuant une lettre, je pense que cela résoudrait ton problème.

[Igloobel]

... Mon fichier se trouve dans le même dossier et a donc le même chemin que je copie en changeant simplement le nom du classeur a la fin.

Je pensais qu'en réseau si le chemin était copié il parviendrait à trouver le fichier mais non..

Pour récupérer le chemin de ton classeur c'est :ActiveWorkbook.Path

mais je te conseille d'utiliser les File Dialogs

c'est plus souple et plus pro voici un exemple

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
24
25
26
27
28
29
30
31
32
Sub MOOON_Test()
 
'ouverture d'un fichier par boite FileDialog
'**********************************************************
    'Declaration d'une variable comme objet FileDialog
    Dim fd As FileDialog
 
    'Creation d'un objet FileDialog comme un File Open dialog box.
    Set fd = Application.FileDialog(msoFileDialogOpen)
 
    'Déclaration d'une variable contenant le "path" de style variant
    Dim vrtSelectedItem As Variant 'obligatoirement de type variant
 
    With fd
        '.AllowMultiSelect = True
        .InitialFileName = ActiveWorkbook.Path & "\"
 
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
 
                'vrtSelectedItem est un String contenant le "path"  de chaque item selectionné.
                'affichage du "PATH et du fichier selectionné" dans une boite message
                MsgBox "Vous avez sélectionné : " & vrtSelectedItem
                File_Select = vrtSelectedItem
            Next
             .Execute
        Else
            Exit Sub
        End If
    End With
 
End Sub

@ Zekraoui_Jakani

Je pense que ta solution est peu trop lourde car ajouter une formule qui récupère le chemin+le nom du fichier+le nom la feuille me parrais pas adapté surtout s'il ne dois pas modifier les fichiers

[Pierre Fauconnier]

Les FileDialogs amènent à une intervention de l'utilisateur durant l'exécution de la macro. Ca ne me semble pas adapté lorsque l'on veut récupérer un fichier dont on connait le chemin ou que l'on peut le récupérer par code, comme c'est le cas ici.

De plus, il importe de bien faire la différence entre ThisWorkbook (déjà proposé et utilisé par le demandeur lui-même) et ActiveWorkbook. Ce ne sont pas forcément les mêmes classeurs.

Ce n'est pas "plus souple" ou "plus pro" d'utiliser les FileDialogs (quels sont les critères qui déterminent ce qui est plus souple ou plus pro?), c'est juste une démarche différente à utiliser lorsque l'on a besoin de l'intervention de l'utilisateur pour récupérer un fichier, alors que ThisWorkbook.Path ou ActiveWorkbook.Path permettent de se passer de cette intervention puisque le chemin est supposé connu

[Simon5713]

Merci pour vos réponses mais aucune ne fonctionne...

Le chemin copié est le bon (les classeurs sont tous au même endroit du réseau, seul leur nom change)

Le lecteur est déjà mappé avec une lettre (il s'appelle G:)

Le code permettant l'ouverture est un peu barbare car je souhaite ouvrir en lecture seule pour une simple copie sans risque de modification.

Du coup je suis complètement bloqué parce qu'en local tout fonctionne même si je déplace le fichier par ci par là.

[Pierre Fauconnier]

Lorsque tu es en réseau, regarde ce que te donne ? thisworkbook.path dans la fenêtre d'exécution (CTRL+G dans l'éditeur VBA). Peux-tu nous donner ce qui est renvoyé par cette commande?

[Simon5713]

Voilà ce que je reçois : G:\03_xxxx\01_xxxx

Le lecteur est bien nommé et il s'agit du même chemin récupéré que ce lui de mon code

[Pierre Fauconnier]

Pourrais-tu donner le code exact que tu utilises?

Tu dis "Les fichiers sont introuvables"... Qu'est-ce qui te faire dire cela? As-tu un message d'erreur? Si oui, lequel?

Tu devrai décomposer ta ligne:
Récupérer le chemin du fichier actif;
Recomposer le nom complet (chemin et nom) du fichier que tu veux ouvrir dans une variable;
Ouvrir le fichier dont le nom complet se trouve dans la variable.

Ca permettrait de voir plus facilement où cela coince...

[Simon5713]

J'utilise ce code pour copier le chemin d’accès au fichier ouvert et ajouter le nom du fichier à ouvrir (qui se trouve dans le même dossier)

Code :

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

Set classeur = Application.Workbooks.Open(ThisWorkbook.Path & "\" & "Fichier_a_copier", ReadOnly:=True)

En local tout fonctionne mais dès que je déplace le dossier dans le lecteur réseau le chemin (qui semble être bon) ne fonctionne plus. Je reçois le message suivant :

[MarcelG]

Bonjour à vous,

Peut-être une piste.
Si le classeur actif a été ouvert depuis un lecteur réseau connecté (E:\...., H:\...), il pourrait être opportun d'ouvrir un second classeur, porté sur le même répertoire, en utilisant le chemin complet de façon explicite.

Autrement dit,
Remplacer
E:\......
par
\\leréseau\monchemincomplet\nomduclasseur.xlsm

Je reporte cette fonctionnalité qui, de mémoire, m'a été fournie pas Gayot il y a quelques années

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
24
25
26
27
28
29
30
31
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" _
 (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
 Public site As String
 
Option Compare Text
 
Public Function fnctGetUNCPath(ByVal PathName As String) As String
 
'fonction donnée par GAYOT sur forum, discussion ouverte par MG
'http://www.developpez.net/forums/d1025924/logiciels/microsoft-office/excel/macros-vba-excel/recherche-repertoire-libelle-integral/
 
'comment récupérer le chemin intégral du fichier si connection lecteur réseau
'tuto :
'http://access.developpez.com/sources/?page=reseau#GetUNC
 
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

avec

Code :

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

1
2
3
4
5
6
7
8
Dim maréf_true As String, lerép As String
 
With ThisWorkbook
                maréf_true = IIf(Len(fnctGetUNCPath(.FullName)) = 0, .FullName, fnctGetUNCPath(.FullName))
                lerép = Replace(maréf_true,  .Name, "")
                Debug.Print lerép
                Workbooks.Open Filename:=lerép & "lenomduclasseur.xlsm"
End With

A plus tard.