Discussion :

[JohnNC115]

Bonjour amis codeurs et tout le forum

Je me tourne une nouvelle fois vers vous car là je bloque complètement sur une partie de mon programme.

Le but de cette partie est de copier des feuilles d'un classeur, suivant une condition, dans un nouveau classeur, tout fraîchement créé, après la feuille 1

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Private Sub CommandButton4_Click()

'****déclaration des variables****
Dim xlApp As New Excel.Application

Dim catalogue As Workbook
'fichier cible

Dim CatalogueEco As Workbook
'fichier source1

Dim CatalogueConfort As Workbook
'fichier source2

Dim Thecell As Range
Dim Thesheet As Worksheet

'****définition des classeurs****
Set CatalogueConfort = xlApp.Workbooks.Open("K:\11 - COMMERCIAL\03 - Enregistrements\Affaires Projet\AXICONCEPT PB 2011\test\Catalogue confort")

Set CatalogueEco = xlApp.Workbooks.Open("K:\11 - COMMERCIAL\03 - Enregistrements\Affaires Projet\AXICONCEPT PB 2011\test\Catalogue économique")

Set catalogue = Workbooks.Add

'**** lancement du test et de la copie****

'définition des valeurs des cellules à tester contenu dans le classeur source
For Each Thecell In ThisWorkbook.Sheets("materiel").Range("A4", ThisWorkbook.Sheets("materiel").Cells(Rows.Count, 1).End(xlUp))

'condition de sélection du fichier source1
    If Thecell.Offset(0, 3).Value = "économique" Then
'définition des valeurs des feuilles à tester contenu dans le classeur source
        For Each Thesheet In CatalogueEco.Worksheets

'condition de copie de la feuille du fichier source dans le fichier cible 
            If Thesheet.Name = Thecell.Value Then
            Thesheet.Copy after:=catalogue.Worksheets(1)
'c'est lors de cette phase de copie que tout bloque

            Exit For
            End If
        Next
    Else
'condition de sélection du fichier source2
        If Thecell.Offset(0, 3).Value = "confort" Then
'définition des valeurs des feuilles à tester contenu dans le classeur source
            For Each Thesheet In CatalogueConfort.Sheets

'condition de copie de la feuille du fichier source dans le fichier cible 
                If Thesheet.Name = Thecell.Value Then
                Thesheet.Copy after:=catalogue.Worksheets(1)
'c'est lors de cette phase de copie que tout bloque

                Exit For
                End If
            Next
        End If
    End If
Next

CatalogueEco.Saved = True
CatalogueConfort.Saved = True

CatalogueEco.Close
CatalogueConfort.Close

Set CatalogueEco = Nothing
Set CatalogueConfort = Nothing

xlApp.Quit

End Sub

voici le message d'erreur qui est affiché
"Erreur d'exécution '1004':
la méthode 'Copy' de l'objet '_Worksheet' a échoué"

je vous remercie d'avance de votre aide

[pgz]

Bonjour.

Tu as ouvert CatalogueEco et Catalogue confort dans xlAPP.
Catalogue est ouvert dans l'application qui contient le projet VBA qui s'exécute.

Tu ne peux pas copier d'une application à une autre.

Cordialement,

PGZ

[JohnNC115]

Tout d'abord merci pgz de prendre un peu de ton temps pour me répondre

si j'ai bien tout compris à tes explications, il suffirait que j'intègre le nouveau classeur créé ("catalogue") dans la nouvelle application ouverte ("xlApp").

soit le code suivant

Code :

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

1
2
3
4
5
6
Private Sub CommandButton4_Click()

'****définition des classeurs****
Set catalogue = xlApp.Workbooks.Add

End Sub

effectivement ça marche

merci pour tes éclaircissements: je pensais qu'un échange entre applications étaient faisable mais apparement je me trompais

par contre comment puis je faire pour que ce nouveau classeur ainsi créé se rende visible à la fin de ma procédure ?

[pgz]

Re,

Tu peux faire

Code :

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

xlApp.Visible = True

Si nécesaire, tu peux ajouter un Activate.

PGZ

[JohnNC115]

ça marche nickel merci pgz

sujet résolu