VBnet - vb Copier le contenu d'un fichier vers un autre fichier Excel

Version imprimable

11/10/2007, 13h31
ketchups

VBnet - vb Copier le contenu d'un fichier vers un autre fichier Excel

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)
11/10/2007, 18h56
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.
12/10/2007, 11h16
ketchups

heuuu pourrait tu me montrer un exemple de code car je n'ai jamais utilisé cette commande
12/10/2007, 16h06
Aspic

Citation:

Envoyé par ketchups

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

Code:

my.Computer.Clipboard(arguments)
12/10/2007, 18h09
olsimare

Bonjour.

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

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

Cdt.

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:

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

15/10/2007, 12h59
ketchups

Merci beaucoup Bidou pour ta réponse
j'essaye ça dès demain car je ne suis pas au travail
je te tiens au courant

alors j'ai essayé ton code
mais vb net ne reconnait pas My.Computer.FileSystem.SpecialDirectories.MyDocuments
Code:

1 2 3 4 5 6 7 8 9 10 enfaite j'ai mes deux fichier Dim Fich1 As Object Dim Fich2 As Object Fich1 = CreateObject("excel.application") Fich1.workbooks.open(filename:=LbDest.Text & "temp1" & ".xls", editable:=True) Fich2 = CreateObject("excel.application") Fich2.workbooks.open(filename:=LbDest.Text & "temp2" & ".xls", editable:=True)
pis enfaite je veux copier le contenu des donnée de Fich2 dans Fich1