Discussion :

[claude53a]

Bonjour
J'ai écrit ce programme en Visual Basic 97 pour ouvrir une boite de dialogue.
Il a fonctionné parfaitement pendant des années.
Je suis passé en Windows Vista et Excel 2003.
Il ne fonctionne plus; Voir ci-après :
"Erreur d'exécution 1004"
"Impossible de lire la Proprité DrawingObjects de la classe Dialogsheet"

Je ne comprends pas, pouvez vous m'aider pour ce programme fonctionne sous Excel 2003. Merci

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
'Affiche dans boite de dialogue la date de la ligne active :
 
AligneN = ActiveCell.Row
 
    ' ActiveWorkbook.Sheets("Boite_de_dialogue").DrawingObjects("Modification 6").Text = _
    Cells(6, 3).Value
 
    ActiveWorkbook.Sheets("Boite_de_dialogue").DrawingObjects("Modification 6").Text = _
    Cells(AligneN, 1).Value
 
    ActiveWorkbook.Sheets("Boite_de_dialogue").DrawingObjects("Modification 8").Text = _
    Cells(AligneN, 2)
 
    ActiveWorkbook.Sheets("Boite_de_dialogue").DrawingObjects("Modification 10").Text = _
    Cells(AligneN, 3)
 
    ActiveWorkbook.Sheets("Boite_de_dialogue").DrawingObjects("Modification 14").Text = _
    Cells(AligneN, 6)
 
    ActiveWorkbook.Sheets("Boite_de_dialogue").DrawingObjects("Modification 30").Text = _
    Cells(51, 10)
 
    ActiveWorkbook.Sheets("Boite_de_dialogue").DrawingObjects("Modification 57").Text = _
    Cells(52, 10)

[Kimy_Ire]

Bonjour claude53a,

Jamais entendu parlé de la méthode DrawingObjects de la classe Sheets.

Essaye avec Shapes pour voir ?
Mais je dois t'avouer n'avoir aucune idée.

N'hésite pas à revenir avec d'avantage d'explications !

Cordialement,
Kimy