Bonjour à tous,
J'essaye d'effectuer un copier d'un champs de cellules filtrer et ensuite je voudrais coller ce champs de cellules dans un autre classeur.
Le problème c'est que le debugger inscrit qu'il ne connait pas la méthode paste.
Et je n'arrive pas à copier que les cellules visibles.
Je vous joins le code, en l'attente d'une réponse de votre part je vous en remercie.
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 Dim xlsapp As New Microsoft.Office.Interop.Excel.Application ' Appli Excel Dim xlsbook As Microsoft.Office.Interop.Excel.Workbook ' Classeur Excel Dim Feuille As String = "IM" Dim Fichier As String = "C:\Users\Sylvain\Desktop\VB.NET IM\Synthèse 2011.xls" ' Ouverture du fichier Excel xlsapp.Workbooks.Open(Fichier, Password:="gatm181", WriteResPassword:="gatm181", [ReadOnly]:=False) xlsbook = xlsapp.ActiveWorkbook Dim xlsfeuille As Microsoft.Office.Interop.Excel.Workbook ' Classeur Excel Dim Fichier1 As String = "C:\Users\Sylvain\Desktop\VB.NET IM\IM n°xxxx - vierge 2011.xls" ' Ouverture du fichier Excel xlsapp.Workbooks.Open(Fichier1) xlsfeuille = xlsapp.ActiveWorkbook 'Filtre + Copier coller du GATM dans la feuille IM Vierge xlsbook.Sheets("Contact").Range("D1").AutoFilter(Field:=4, Criteria1:="GATM")
Partager