Discussion :

[Tanoffy]

Bonjour à tous,

Je suis relativement débutante avec VBA.

Aujourd'hui, je travaille sur une macro dans un fichier Word interagissant avec des fichiers Excel.
Dans les grandes mailles: en cliquant sur un bouton dans le fichier Word, on ouvre des fichiers Excel et on manipule les données dedans.

Mon point bloquant est le suivant:
lorsque j'utilise ActiveWorkbook.Worksheets(1).Range("A1:J10"), pas de problème
lorsque j'utilise ActiveWorkbook.Worksheets(1).Range("A1","J10"), pas de problème non plus
par contre si j'utilise ActiveWorkbook.Worksheets(1).Range(Cells(1,1),Cells(10,10)), une fenêtre avec

"Erreur d'exécution 1004: Erreur définie par l'application ou par l'objet"

apparait.

Sachant que dans les Références, sont cochés:
-Visual Basic for Applications
-Microsoft Word 14.0 Object Library
-OLE Automation
-Normal
-Microsoft Office14.0 Object Library
-Microsoft Forms 2.0 Object Library
-Microsoft Excel 14.0 Object Library
-Microsoft ActiveX Data Objects 2.8 Library

J'espère que vous saurez m'aider

Bonne journée à tous!
Tanoffy

[Nico Chg]

Bonjour,

essaie avec :

Code :

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

ActiveWorkbook.Worksheets(1).Range(Worksheets(1).Cells(1,1),Worksheets(1).Cells(10,10))

Lorsque tu travaille avec un range(.cells ...) il faut spécifier aussi la feuille à laquelle appartient la cellule.

[issoram]

Bonjour,

Code :

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

1
2
3
With ActiveWorkbook.Worksheets(1)
   .Range(.Cells(1,1),.Cells(10,10))
End With

Autre chose: éviter au possible les ActiveWorkbook et travailler avec des classeurs nommés.

[Menhir]

Ou bien :

Code :

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

1
2
3
With ActiveWorkbook.Worksheets(1)
   .Range(.Cells(1,1),.Cells(10,10)) = "test"
End With

[Tanoffy]

Bonjour,

Impectable, ça marche! Merci à vous!