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")