Message d'erreur : "438" VBA

Question

Bonjour,

j'ai mis en place une macro afin d'importer une feuille provenant d'un autre classeur et de la remplacer par une feuille déjà existante.

Je vous joint ce que j'ai écris comme macro pour que le message d'erreur s'affiche :

Sub Importation()

Dim Nom As String 

Nom = Workbooks("EXTRA\_FINALOct.xlsm").Sheets("feuille\_support").Range("A1").Value 

With Workbooks("heure.xls").Sheets(1).Range("A1:X70").CopyWorkbooks("EXTRA\_FINALOct.xlsm").Sheets("feuille\_support").Range("A1") 

    End With 

End Sub

Je vous remercie d'avance.

Answer 1

Bonjour,

Note que j'ai mis un " _" après le copy : ".copy _". Corrige, sinon tu auras une erreur à la ligne suivante. Le " _" signifie que l'instruction se poursuit sur la ligne suivante.

Sinon, l'erreur signifie que VBA ne trouve pas le classeur ou que la feuille n'est pas une feuille de calcul (une feuille de graphique par exemple). Vérifie le nom du classeur.

Daniel

Answer 2

Tout fonctionne parfaitement !

Je vous remercie et bonne continuation à vous.

Answer 3

Bonjour,

Tout d'abord, merci beaucoup pour votre réponse rapide.

J'ai maintenant un second problème, un message d'erreur s'affiche à nouveau.

C'est l'erreur "n°9 : L'indice n'appartient pas à la sélection"

Je vous joint les captures d'écrans de mon module pour vous faciliter la tâche.

A très vite !

Answer 4

Bonjour,

Essaie comme ça :

Sub Importation()
Dim Nom As String
Nom = Workbooks("EXTRA_FINALOct.xlsm").Sheets("feuille_support").Range("A1").Value
Workbooks("heure.xls").Sheets(1).Range("A1:X70").Copy _
Workbooks("EXTRA_FINALOct.xlsm").Sheets("feuille_support").Range("A1")
End Sub

Daniel