Msg "Erreur d'exécution '9': L'indice n'appartient pas à la sélection" seulement depuis VPN

Bonjour,
J'ai un fichier avec Excel et une macro qui permet d'ouvrir un autre fichier avec différents onglets en fonction du mot de passe saisie.
Cette macro fonctionne très bien.

mais au travers d'un VPN les personnes depuis l'extérieur ont un message :
"Erreur d'exécution '9': L'indice n'appartient pas à la sélection"

Du coup depuis l'extérieur on arrive pas accéder à ce fichier.

Hors le VPN fonctionne puisqu'ils ont accès au dossier et aux fichiers pour lancer la macro, c'est au niveau de la macro que cela semble bloquer.
Quelqu'un voit-il d'où çà peut venir.

^{Quel code utilises-tu pour accéder au fichiers ?}

J'ai fait évoluer mon code (voir ci-dessous) et je n'ai plus le même message d'erreur mais pour autant depuis les locaux on a accès, depuis le VPN j'ai ce message :


Pièce jointe 274832Pièce jointe 274835

Code:

---

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 33

Private Sub CommandButton2_Click()   Dim WB_Planning As Workbook Dim Planning As Worksheet Dim ligne As Integer   If UserForm.Site.Value = "Loudéac" Then Workbooks.Open Filename:="\\SRV-DOM\Fichiers communs\Ordonnancement\PLANNING FERME-PREVI\Planning de production 2017 LOU.xlsm", _ ReadOnly:=True, Password:="Auteur" Else If UserForm.Site.Value = "La Cavalerie" Then Workbooks.Open Filename:="\\SRV-DOM\Fichiers communs\Ordonnancement\PLANNING FERME-PREVI\Planning de production 2017 MIL.xlsm", _ ReadOnly:=True, Password:="Auteur" End If End If     Set WB_Planning = ActiveWorkbook Set Planning = WB_Planning.Worksheets("Planning")   dernierelignePlanning = Planning.UsedRange.Rows.Count   For ligne = 5 To dernierelignePlanning If Planning.Cells(ligne, 11).Value = "Prévi" Then 'supprimer les lignes du 1er "Prévi" jusqu'à la fin du tableau Planning.Range(Cells(ligne, 1), Cells(dernierelignePlanning, 1)).EntireRow.Delete Exit For End If Next UserForm.Hide Workbooks("Accueil planning.xlsm").Close False   End Sub

---

Personne n'a encore croisé ce cas ?
Les utilisateurs au travers du VPN n'accède pas au fichier.

Bonjour,

je suis amené, sur certains projets, à gérer deux chemins d'accès aux fichiers sur des serveurs partagés.
parfois, le chemin d'accès doit être écrit avec les "dossiers windows" en anglais au lieu du français (Utilisateurs|Users - Fichiers Communs|Commons etc...)

as-tu tenté de vérifier que le chemin d'accès au fichier, lorsque tu es en VPN, est identique à l'adresse du fichier quand tu es pas en VPN (notamment la racine du lecteur réseau) ?

en VPN :

- ouvre manuellement le fichier
- utilises la ligne de code suivante :

Code:

---

Msgbox Workbooks("Planning de production 2017 LOU.xlsm").FullName

---

et vérifie que la chaine retournée est bien identique à l'adressage que tu utilises dans ton code

Bonjour,

Où sont les fichiers que la macro tente d'ouvrir ?
Est-ce qu'ils sont dans le même répertoire que le fichier avec macro ?

Oui ils sont dans le même répertoire.

Récupère l'adresse du dossier via la propriété Path de Thisworkbook et concatène avec le nom du fichier (n'oublie pas le slash)

Concrètement par rapport au code que j'ai laissé ci-dessus ?

Si le fichier n'est pas dans un sous-répertoire

Code:

---

Workbooks.Open Filename:=ThisWorkbook.Path & "\Planning de production 2017 LOU.xlsm", _ ...

---

Sinon, ajouter le sous-répertoire avant le nom du fichier

ok je test demain ou au plus tard mercredi et je vous redis