Couper/Coller Cellule/Colonne Excel depuis VB.NET

Bonjour,

Je voulais savoir si c'était possible de faire un couper/coller d'une cellule ou d'un ensemble de cellule dans un fichier excel piloté depuis vb.net ?

En effet, pour des raisons de mises en page (et d'économie de papier ! Soyons écolo !) je souhaiterais prendre une partie d'un tableau et l'afficher en dessous du tableau initial.

Merci d'avance pour votre aide.

Cordialement, Florian

bonsoir,

c'est possible en faisant par exemples :

Code:

---

1 2 3 4 5 6 7 8 9 10

MonWorkBook.Worksheets("MaPage1").cells(r1,c1).Cut MonWorkBook.Worksheets("MaPage2").cells(r2,c2).paste   MonWorkBook.Worksheets("MaPage1").Range("MaPlage1").cells(r1,c1).Cut MonWorkBook.Worksheets("MaPage2").Range("MaPlage2").cells(r2,c2).paste   MonWorkBook.Worksheets("MaPage1").Range("MaPlage1").cells.Cut MonWorkBook.Worksheets("MaPage2").Range("MaPlage2").cells(r2,c2).paste   ...

---

à adapter les noms et valeur si une ou plusieurs cellules, possibilité d'utiliser également PasteSpecial, Insert, ....

Une bonne méthode très simple consiste à utiliser la mémorisation automatique de macro en VBA sous Excel, et transposer le code sous VB

Bonjour,

Tout d'abord, merci pour ta réponse.
Par contre, j'ai essayé sa :

Code:

---

1 2 3

ExcelInstance.Worksheets(1).Range(FeuilleCourante.Cells(5, 5), FeuilleCourante.Cells(7, 9)).Cut() ExcelInstance.Worksheets(1).Cells(12, 1).Paste()

---

ExcelInstance est du type Excel.Application.

Cependant, j'ai un message d'erreur m'indiquant que la propriété Paste n'éxiste pas.

J'ai également essayé en mettant une plange et en utilisant Range("Maplage").Paste() mais j'obtiens la même erreur.

Si quelqu'un à une idée, je suis preneur.

Merci :)

bonsoir,

Citation:

---

ExcelInstance est du type Excel.Application

---

il faut déclarer le classeur utilisé

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private _Application As Excel.Application Private _WorkBooks As Workbooks Private _WorkBook As Workbook   _Application = New Excel.Application _WorkBooks = _Application.Workbooks _WorkBook = _WorkBooks.Open(NomClasseurUtilisé)   _WorkBook.Worksheets(1).Range(FeuilleCourante.Cells(5, 5), FeuilleCourante.Cells(7, 9)).Cut() _WorkBook.Worksheets(1).Cells(12, 1).Paste()

---