Discussion :

[ketchups]

hello c'est encore kestchup avec toutes ses questions

Enfaite j'ai trois document excel. et j'aimerais coller dans le premier document les colonnes des deux autres documents.

est-ce que quelqu'un aurait une idée de comment faire ceci?
(j'ai vu des codes pour copier des cellulles dans la même feuille ou une feuille différente mais jamais deux document différents)

[olsimare]

Bonjour.

En passant par le my.Computer.Clipboard pour copier/coller ça devrait le faire mais je pense que ça implique que les doc soient ouverts.

Cdt.

[ketchups]

heuuu pourrait tu me montrer un exemple de code car je n'ai jamais utilisé cette commande

[Aspic]

heuuu pourrait tu me montrer un exemple de code car je n'ai jamais utilisé cette commande

Code :

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

my.Computer.Clipboard(arguments)

[olsimare]

Bonjour.

Y'a plus l'aide disponible sur VS maintenant ?

Un coup de F1 sur my.Computer.Clipboard et tu trouveras ce que tu cherches ...

Cdt.

[bidou]

Dans l'exemple suivant, on va copier le contenu des colonnes de toutes les feuilles de deux classeurs existants dans un nouveau classeur qu'on sauvegardera sous le nom ClasseurResult.

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
22
23
24
25
26
27
28
29
30
31
32
Imports Microsoft.Office.Interop
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xlApp As New Excel.Application
        Dim ClasseurSource, ClasseurCible As Excel.Workbook
        ClasseurCible = xlApp.Workbooks.Add
        Dim PlageCible As Excel.Range = CType(CType(ClasseurCible.Worksheets(1), Excel.Worksheet).Columns(1), Excel.Range)
        Dim MyPath As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        For compteur As Int32 = 1 To 2
            ClasseurSource = xlApp.Workbooks.Open(MyPath + "\classeur" + compteur.ToString + ".xls")
            For Each Wsh As Excel.Worksheet In ClasseurSource.Worksheets
                If Wsh.UsedRange.Cells.Count > 1 Then
                    For Each Macol As Excel.Range In Wsh.UsedRange.Columns
                        PlageCible.Value = Macol.Value
                        PlageCible = PlageCible.Offset(, 1)
                    Next
                End If
            Next
            ClasseurSource.Close(False)
            ClasseurSource = Nothing
        Next
        PlageCible = Nothing
        CType(CType(ClasseurCible.Worksheets(1), Excel.Worksheet).Cells, Excel.Range).SpecialCells(Excel.XlCellType.xlCellTypeConstants, 16).Clear()
        ClasseurCible.SaveAs(MyPath + "\ClasseurResult.xls")
        ClasseurCible.Close()
        ClasseurCible = Nothing
        xlApp.Quit()
        xlApp = Nothing
    End Sub
 
End Class

quelques remarques.

• Il faut ajouter la référence à Excel
• Il faut gérer les erreurs pour faire une sortie propre si sa plante sinon le process Excel reste en cours
• Il faut gérer éventuellement le cas du dépassement des 256 colonnes
• La copie est une copie de valeurs, les formules ne sont pas copiées