Discussion :

[MadMax4]

Bonjour

(VS 2010)
J'ai une application qui génère des fichiers excel.
Dans une fonction, je cherche à copier un onglet d'un classeur vers un autre.
ça avait l'air simple.

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
 
 Private Function copy_Onglet(ByVal Onglet As String) As Boolean
 
        Dim source As Object = xlBook.Worksheets(Onglet)
        Dim cible As Object = Bud.Sheets("Feuil2")
 
        Try
            source.Select()
            source.Copy(cible)
 
        Catch ex As Exception
           Return False
        End Try
 
        Me.ma_ProgressBar.PerformStep()
        Return True
 
    End Function

Auparavant, j'ai défini :
Dim xlApp, Bud As New Microsoft.Office.Interop.Excel.Application
Dim xlBook, Bud_book As Workbook

j'ai recherché la syntaxe sur des forums et ça a l'air correct. MAIS visual studio s'obstine à répondre "la méthode copy de la classe worksheet a échoué" !

Qu'est-ce que je n'ai pas compris ?

Merci de vos lumières

[_Ez3kiel]

Apparemment problème mémoire ... Voir http://support.microsoft.com/kb/210684/fr

[clementmarcotte]

Bonjour,

À moins que tu ne l'aies ouvert ailleurs, ton classeur de destinanion doit être ouvert, et tu n'as pas besoin d'ouvrir deux instances d'Excel. C'est comme quand on utilise Excel "à la mitaine"; il est possible d'avoir plusieurs classeurs ouverts avec la même instance d'Excel. En m'inspirant de ton code, j'ai fait ceci en vitesse en partant d'un bouton sur une Form.

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
33
34
35
36
37
38
39
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Il n'est pas nécessaire d'ouvrir deux applications Excel simultanémnet
        'C'est comme quand on utilise Excel "à la mitaine". Excel peut ouvrir
        'des classeurs simultanément
        Dim Bud As New Microsoft.Office.Interop.Excel.Application
        Bud.Visible = True
        'ouvrir 2 classeurs
        Dim xlBook, Bud_book As Microsoft.Office.Interop.Excel.Workbook
        xlBook = Bud.Workbooks.Open("C:\Users\Clément Marcotte\Documents\CompilationDeDonnées.xlsm")
        Bud_book = Bud.Workbooks.Open("C:\Users\Clément Marcotte\Documents\Classeur1.xlsm")
        ' Désigner une feuille de chaque classeur
        Dim source As Microsoft.Office.Interop.Excel.Worksheet = xlBook.Worksheets("Onglet")
        Dim cible As Microsoft.Office.Interop.Excel.Worksheet = Bud.Sheets("Feuil2")
        Try
            'La plupart du temps, cela ne sert à rien de
            'sélectionner une feuille, parce que l'on peut
            'utiliser directement la plupart des objets
            'source.Select()
            source.Range("A1:L19").Copy()
            cible.Paste()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
 
        End Try
   'fermer les 2 classeurs
        With xlBook
            .Save()
            .Close()
        End With
        With Bud_book
            .Save()
            .Close()
        End With
        'Vérifier dans le gestionnaire de tâches si Excel s'est bien fermé
        'Au besoin, le fermer manuellement.
        Bud.Quit()
 
 
    End Sub

En gros, on lance une session d'Excel, laquelle ouvre deux classeurs.
On copie une plage sur une feuille d'un classeur et on la colle sur une feuille de l'autre classeur. Mais note qu'Excel est un animal coriace quand il s'agit de le fermer après un pilotage. Bien souvent, il faut le fermer manuellement. Il me semble que j'ai 2 ou 3 lignes de code à quelque part pour le mater. Quand je mettrai la main dessus, je mettrai un autre message.

En passant, il existe en natif dans le modèle objet d'Excel, une méthode plus efficace que le presse-papiers pour copier ou déplacer une feuille complète d'un classeur vers un autre. Mais cela fait un peu longtemps que j'ai cela et je n'ai pas le code à portée de la main. Mais je vais quand même chercher ce soir (chez-moi, GMT - 5), pour voir si je ne trouverais pas quelque chose assez rapidement. Mais, le complément, si complément il y a, va venir presque en soirée en France.

[MadMax4]

merci _Ez3kiel.

merci clementmarcotte,
effectivement, lancer deux instances d'excel est parfaitement inutile et c'est ça qui pose problème d'ailleurs. Avec une seule instance, ça fonctionne.

Pour quitter propre, je ferme systématiquement l'instance excel en fin de traitement de manière à ne pas laisser une myriade de process excel en cours.

Je suis preneur de ton code de copie de feuille efficace, ça peut servir.

cordialement.
ps : d'abord effrayé par l'heure à laquelle tu as envoyé ton post, j'ai vu ensuite ton décalage horaire ... tu dois être en Guyane, non ?

[clementmarcotte]

merci _Ez3kiel.

ps : d'abord effrayé par l'heure à laquelle tu as envoyé ton post, j'ai vu ensuite ton décalage horaire ... tu dois être en Guyane, non ?

Bonjour,

Non, à Amos, au Québec. À environ 600 km au Nord-Nord-Ouest de Montréal. C'est la ville qui a servi d'inspiration à Bernard Clavel pour Harricana.