Discussion :

[romain241192]

Bonjour à tous,

J'ai un problème sur une macro: après création de graphiques, je souhaite les copier-coller dans une feuille récapitulative. Problème: sur mon pc, mon programme fonctionne parfaitement, mais sur le pc de mon boss, à l'exécution du programme, je reçois le message d'erreur "La méthode Paste de la classe Worksheet a échoué".

C'est d'autant plus frustrant que lorsque je clique sur Débogage et que je continue la lecture du programme sans rien modifier, le programme continue (pour re-bugger à l'instruction Paste suivante ou je relance une nouvelle fois le programme sans modification avec succès)...

J'ai du coup essayé le programme sur un troisième pc, aucun souci... je pense que le problème vient donc du pc de mon patron mais je n'en connais pas la source.

Une idée?

Je précise que les versions d'Excel sont identiques quel que soit le poste...

Merci d'avance!

PS: Extrait de la macro: (tableau et non_qualite sont des feuilles du classeur)

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
Dim emp1, emp2, emp3, emp4, emp5, emp6, emp7, emp8 As Range
 
Set emp1 = tableau.Range("A6:E24")
non_qualite.ChartObjects(2).Activate
    ActiveChart.ChartArea.Copy
tableau.Paste
tableau.ChartObjects(1).Left = emp1.Left
tableau.ChartObjects(1).Top = emp1.Top
tableau.ChartObjects(1).Height = emp1.Height
tableau.ChartObjects(1).Width = emp1.Width
 
Set emp2 = tableau.Range("F6:J24")
non_qualite.ChartObjects(1).Activate
    ActiveChart.ChartArea.Copy
tableau.Paste
tableau.ChartObjects(2).Left = emp2.Left
tableau.ChartObjects(2).Top = emp2.Top
tableau.ChartObjects(2).Height = emp2.Height
tableau.ChartObjects(2).Width = emp2.Width

[parmi]

Bonjour,

Est-ce que le niveau de sécurité est le même sur le PC de ton patron ?

PS: quand tu mets du code utilise le bouton [#] pour le formater.

[romain241192]

De quoi parles-tu pour le niveau de sécurité?
Les macros sont activées dans les deux pc si c'est la question.

[parmi]

Il y a différents paramètres à ajuster dans la Gestion de la confidentialité (compléments, ActiveX, macros, VBA,...)
J'ai pensé que ça pouvait être quelque chose là-dedans qui était différent.

Et si tu changeais les .Paste par .PasteSpecial ?

En passant, sur cette ligne

Dim emp1, emp2, emp3, emp4, emp5, emp6, emp7, emp8 As Range

seul emp8 est déclarée en Range. Les autres sont tous des Variant

[romain241192]

J'ai déjà testé de changer les paste en pasteSpecial, j'ai rajouté des select et des activate en vain... je vais regarder les paramètres de sécurité, mais j'ai déjà transmis à mon boss une dizaine de fichiers contenant des macros et il n'y avait jamais eu de souci :-(

[Theze]

Bonjour,

En utilisant une variable objet "ChartObject" :

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
 
Sub Test()
 
    Dim emp As Range
    Dim Graph As ChartObject
 
    Set emp = tableau.Range("A6:E24")
 
    Set Graph = non_qualite.ChartObjects(2)
    Graph.Chart.ChartArea.Copy
 
    tableau.Paste
 
    Set Graph = tableau.ChartObjects(1)
 
    With Graph
 
        .Left = emp.Left
        .Top = emp.Top
        .Height = emp.Height
        .Width = emp.Width
 
    End With
 
    Set emp = tableau.Range("F6:J24")
 
    Set Graph = non_qualite.ChartObjects(1)
 
    Graph.Chart.ChartArea.Copy
 
    tableau.Paste
 
    Set Graph = tableau.ChartObjects(2)
 
    With Graph
 
        .Left = emp.Left
        .Top = emp.Top
        .Height = emp.Height
        .Width = emp.Width
 
    End With
 
End Sub

Hervé.

[romain241192]

Je testerais çà demain, mais c'est franchement frustrant d'avoir un code qui fonctionne sur tous les pc sauf celui qui est important -_-"

Merci à vous!

[Theze]

C'est sûr, sur celui du boss ça la fout mal

Hervé.