Discussion :

[arthour973]

Bonjour à tous,

j'ai dans mon classeur excel une chose que je ne comprends pas.

Voici mon problème :

A la fermeture de mon classeur, excel 2010 m'affiche "Cette image est trop grande et va être tronquée".

Il n'y a pas d'image dans mon fichier !

C'est arrivé après avoir écrit une macro de "copié/coller" toute simple.

Es-ce que quelqu'un pourrait me dire comment cela a pu apparaitraître soudainement ?

Je ne sais pas si c'est la raison mais je vous joins ma macro :

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
Sub Synthèse()
'
' Macro1 Synthèse
'
 
'
    Sheets("Synthèse").Select
    ActiveSheet.Unprotect
 
    Sheets("matrice").Select
    ActiveSheet.Unprotect
 
    Columns("B:C").Select
    Selection.Copy
 
    Sheets("Synthèse").Select
    Columns("B:C").Select
    Range("B6").Activate
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Columns("B:C").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Sheets("matrice").Select
    Columns("LP:LY").Select
    Application.CutCopyMode = False
    Selection.Copy
 
    Sheets("Synthèse").Select
    Columns("E:N").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
    Sheets("matrice").Select
 
    Range("C7").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWindow.LargeScroll ToRight:=-1

J'ai oublié de vous dire :

Si j'ouvre le classeur et que je n'exécute pas cette macro, le message ne s'affiche pas et je peux fermer normalement.

[Cocotte278]

Bonjour ,

Je vais peut-être dire une sottise mais tu copies des colonnes qui semblent bien trop loin pour exister...

Code :

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

1
2
Sheets("matrice").Select
    Columns("LP:LY").Select

N'y aurait-il pas une faute de frappe ?

Cdt

[arthour973]

Bonjour,
Pas de sottise, toutes les possibilités sont bonnes à exploiter.
J'ai "rapproché" mes colonnes à copier (CY:DH)
Mais rien n'y fait..... ça continue.
Merci de m'avoir répondu.
Amicalement,
Lionel,