Discussion :

[leloup84]

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.

[Garuda]

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

[leloup84]

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 :

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
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

[leloup84]

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

[joe.levrai]

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 :

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

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

[parmi]

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 ?

[leloup84]

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

[joe.levrai]

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)

[leloup84]

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

[parmi]

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

Code :

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

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

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

[leloup84]

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