Programme VBA de version 97 à 2003
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:
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) |
