Discussion :

[rayba89]

Bonjour,

Je souhaiterais avoir de l'aide pour un problème bizarre, puisque ma macro fonctionnait parfaitement, et sans avoir toucher au code ça me lance un message d'erreur maintenant.

En fait je cherche juste a afficher trois feuilles de mon classeur en mosaïque.
Pour faire ça j'ai enregistré une macro, j'ai récupéré le code, et ça marchait parfaitement!
Voici mon code:

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
Sheets("old follow-up").Select
    ActiveWindow.NewWindow
    Sheets("new follow-up").Select
    ActiveWindow.NewWindow
    'Windows("follow-up tool.xlsm:1").Activate
    With ActiveWindow
        .Top = 1
        .Left = 1.75
    End With
    With ActiveWindow
        .Width = 960.75
        .Height = 605.25
    End With
    Sheets("ctrl board").Select
    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlTiled
    With ActiveWindow
        .Width = 273
        .Height = 605.25
    End With
 
 
    Windows("follow-up tool.xlsm:3").Activate
    Sheets("old follow-up").Select
    ActiveSheet.Columns("A:X").EntireColumn.AutoFit
    ActiveWindow.Zoom = 80
    ActiveSheet.Range("B2").Select
    ActiveWindow.FreezePanes = True
    With ActiveWindow
        .Top = 1
        .Left = 273
    End With
    With ActiveWindow
        .Width = 690.5
        .Height = 301.5
    End With
 
 
    Windows("follow-up tool.xlsm:2").Activate
    ActiveWindow.Zoom = 80
    ActiveSheet.Range("B2").Select
    ActiveWindow.FreezePanes = True
    With ActiveWindow
        .Top = 304
        .Left = 273
    End With
    With ActiveWindow
        .Width = 690.5
        .Height = 301.5
    End With
 
    Windows("follow-up tool.xlsm:1").Activate

Comme j'ai déjà précisé, ça marchait parfaitement. Après un beau weekend la macro m'accueil avec le message d'erreur suivant :

erreur d'exécution 1004 : Impossible de definir la propriété top de la classe window

ca s'affiche à la première ligne ou figure le ".top"

J'ai bel et bien essayé de (re)sauvegarder la macro, voir si c’était une histoire de protection .. mais rien qui marche !

Quelqu'un pourrait m'aider a résoudre ce prob?

Merci d'avance,

[rayba89]

Le prob est résolu, il fallait mettre le 2 premiers blocs (.top . left) et (.width .height) après la ligne

Code :

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

ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlTiled

Je ne comprend pas pourquoi ça généré pas une erreur avant..