Discussion :

[pasb71]

Bonjour,

J'ai créé un classeur excel avec un bouton qui lorsque je clique dessus va récupérer des données dans un autre classeur excel sur un partage réseau.

Par moment la fonction fonctionne parfaitement et d'autres fois j'obtiens ce message:

Erreur d'éxécution '9' (L'indice n'appartient pas à la sélection)

Sur votre forum j'ai trouvé des personnes qui ont le même problème mais je n'ai malheureusement pas réussi à résoudre le mien. Voici mon code du bouton.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Rafraichir()
 
 Workbooks.Open Filename:= _
        "\\mon_serveur\d$\data\Rapports\xls\copie_donnees.xlsx"
    Sheets("Feuil4").Select
    Range("A2:B3").Select
    Selection.Copy
    Windows("resume.xltm").Activate
    Range("B4").Select
    ActiveSheet.Paste
    Windows("copie_donnees.xlsx").Activate
    ActiveWindow.Close
 
End Sub

Merci pour votre aide

Meilleures salutations

[illight]

Salut,


Sur quelle ligne apparaît l'erreur ?

Par ailleurs, ton classeur s'appelle bien

Code :

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

 "Windows("resume.xltm").Activate"

Tu as fait ton code avec l'enregistreur de macro à priori ? Tu as modifié quoi ?

[pasb71]

Bonjour,

Oui je l'ai fait avec l'enregistreur de macro.

L'erreur se trouve sur

Code :

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

Windows("resume.xltm").Activate

Je n'ai rien modifié.

Merci

[Menhir]

A priori, tu as sans doute un problème avec le nom d'un fichier.

Au passage, il est conseillé de retravailler le code récupérer de l'enregistreur de macro.
Par exemple, ton code peut être simplifié ainsi :

Code :

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

1
2
3
4
5
6
7
8
Sub Rafraichir()
 
    Workbooks.Open Filename:= "\\mon_serveur\d$\data\Rapports\xls\copie_donnees.xlsx"
    Sheets("Feuil4").Range("A2:B3").Copy
    Windows("resume.xltm").ActiveSheet.Range("B4").Paste
    Windows("copie_donnees.xlsx").Close
 
End Sub

Personnellement, je remplacerais les Windows par des WorkBooks.

[pasb71]

Oui modifié mon code avec votre proposition mais j'obtiens toujours la même erreur.

Code :

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

1
2
3
4
Workbooks.Open Filename:="\\mon_serveur\d$\data\Rapports\xls\copie_donnees.xlsx"
    Sheets("Feuil4").Range("A2:B3").Copy
    Workbooks("resume.xltm").ActiveSheet.Range("B4").Paste
    Workbooks("copie_donnees.xlsx").Close

Merci

[Menhir]

Ton erreur est une erreur d'indice.
Le seul indice qu'il y avait sur la ligne qui générait l'erreur était un nom de fichier.
Donc l'erreur vient du nom de fichier.
Si tu laisses le même nom de fichier, il est évident que l'erreur persistera.

[Theze]

Bonjour,

ça n'a peut être rien à voir mais il est toujours préférable de "parenter" les objets :

Code :

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

1
2
 
Sheets("Feuil4").Range("A2:B3").Copy

plutôt :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    Dim Cls As Workbook
 
    Set Cls = Workbooks.Open("\\mon_serveur\d$\data\Rapports\xls\copie_donnees.xlsx")
    Cls.Sheets("Feuil4").Range("A2:B3").Copy Workbooks("resume.xltm").ActiveSheet.Range("B4")
    Cls.Close
 
End Sub

et quand on travaille sur plus d'un classeur, il est conseiller d'utiliser des variables Workbook

[pasb71]

Bonsoir,

Je viens de tester et toujours la même erreur.

Merci pour vos réponses

[Menhir]

As-tu vérifié si le nom de fichier était correct ? Il n'y aurait pas un accent en trop ou en moins qui traine ?
As-tu essayé en enlevant l’extension "xlsm" ?

[pasb71]

Bonjour,

Merci pour votre aide. C'était l'extension.

Belle journée

[Menhir]

Un conseil : au lieu d'enlever l'extension dans ton code, va dans les options de dossier de ton explorateur Windows et décoche l'option "Masquer les extensions de fichiers".
Ca te donnera une meilleure visibilité sur les types de fichiers.