Excel5 vers excel 2003

**MJMJ** · 07/03/2006, 21h48

Comment faire pour convertir une feuille .xls d'une version Excel5 vers une version 2003.La feuille contient des macros ainsi que des boites de dialogue.Cette opération provoque de nombreuses erreurs à l'ouverture de la feuille.Merci pour votre aide
MJM

**ouskel'n'or** · 08/03/2006, 09h12

Hello,

Sans ton code, il va être difficile d'identifier les erreurs... Mais je crois bien qu'il va être nécessaire de l'adapter à la version 2003.
Montre-nous

A+

**MJMJ** · 11/03/2006, 22h50

La seule chose que je puisse faire c'est d'envoyer cette feuille afin que quelqu'un puisse lire les codes erreur.Indiquer chaque code d'erreur me parait extrèmement long.
Merci de m'informer si une procédure plus simple est possible afin de me sortir de ce problème.

Pour info, le débug. s'arrête sur une ligne commencant par SUB

**MJMJ** · 11/03/2006, 23h25

Lorsque j'ouvre la feuille j'ai : La traduction a échoué.Pour plus d'information reportez vous au fichier trnslate.log.
Le projet a été traduit en Anglais

Puis si je continue :
Erreur de compilation
sub ou Function non définie.
Voici une petite partie du programme avec le point d'arrêt qui se situe à partir de Sub......; ainsi que le terme Feuilles qui est surligné en bleu

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
Sub auto_ouvrir()
  Feuilles("Sigle").Sélectionner
  With FenêtreActive
     .AffichageEnTêtes = False
     .AffichageBarreDéfilementHorizontale = False
     .AffichageBarreDéfilementVerticale = False
     .AffichageOngletsClasseur = False
  End With
  FenêtreActive.Affiché = False
  On Error GoTo suit1
  Delete "C:\Devis\xlprog\saf\saisie.anc"
suit1:
  On Error GoTo 0
  FileCopy "C:\Devis\xlprog\SAISIE.XLS", "C:\Devis\xlprog\saf\saisie.anc"
  On Error GoTo suit
  Classeurs.Ouvrir NomFichier:="C:\DEVIS\XLPROG\SAISIE.XLS", Modifiable:=True
suit:
  On Error GoTo 0
  FenêtreActive.EtatFenêtre = xlAgrandi
  Fenêtres("Saisie.XLS").Activer
  If Feuilles("Aide").plage("E37") = "" Then
    Close #1
    Open "c:\devis\xlprog\utilisat.txt" For Input As #1
    Input #1, K
    Close #1
    Feuilles("Aide").plage("E37") = K
    'Appeler Utilisateur
  End If
  'Appeler TestReseau
  Classeurs("Minute.xls").Feuilles("Original").plage("A14:AG14").Copier
  Feuilles("Saisie").Sélectionner
  plage("A14").Sélectionner
  FeuilleActive.Coller
  FenêtreActive.VoletsFigés = False
  Lignes("15:15").Sélectionner
  FenêtreActive.VoletsFigés = True
 
  plage("D7").Sélectionner
  Sélection.FormuleL1C1 = ""
  Sélection.Intérieur.IndexCouleur = 16
  Sélection.Police.IndexCouleur = 16
  Sélection.AlignementHorizontal = xlCentre
 
  Application.QuandTouche "+{ }", "Texte"
 
  Application.QuandTouche "{F1}", "Aide"
  Application.QuandTouche "{F2}"
  Application.QuandTouche "{F3}", "Tableaux"
  Application.QuandTouche "{F4}", "MAJ"
  Application.QuandTouche "{F5}", "Calcul"
  Application.QuandTouche "{F6}", "Maj_Tab"
  Application.QuandTouche "{F7}"
  Application.QuandTouche "{F8}"
  Application.QuandTouche "{F9}"
  Application.QuandTouche "{F10}", "Marques"
  Application.QuandTouche "{F11}", "Slash"
  Application.QuandTouche "{F12}", "OnOffSaisie"
 
  Application.QuandTouche "+{F1}", "Feuille_Saisie"
  Application.QuandTouche "+{F2}", "Minute"
  Application.QuandTouche "+{F3}", "Devis"
  Application.QuandTouche "+{F4}", "Bordereau"
  Application.QuandTouche "+{F5}", "Nomenclature"
  Application.QuandTouche "+{F6}", "Sortie"
  Application.QuandTouche "+{F7}"
  Application.QuandTouche "+{F8}"
  Application.QuandTouche "+{F9}", "Mispag"
  Application.QuandTouche "+{F10}"
  Application.QuandTouche "+{F11}", "SlashGroupe"
  Application.QuandTouche "+{F12}"
 
  Application.QuandTouche "^{F1}", "Repere_Nomenclature"
  Application.QuandTouche "^{F2}", "Iminute"
  Application.QuandTouche "^{F3}", "IDevis"
  Application.QuandTouche "^{F4}", "IBordereau"
  Application.QuandTouche "^{F5}", "INomenclature"
  Application.QuandTouche "^{F6}", "ISortie"
  Application.QuandTouche "^{F7}"
  Application.QuandTouche "^{F8}"
  Application.QuandTouche "^{F9}"
  Application.QuandTouche "^{F10}", "Barre_Tableau"
  Application.QuandTouche "^{F11}", "Barre_Visu"
  Application.QuandTouche "^{F12}", "Barre_Outils"
 
  Application.QuandTouche "+^{F1}", "Enreg_Saisie"
  Application.QuandTouche "+^{F2}", "Enreg_Minute"
  Application.QuandTouche "+^{F3}", "Enreg_Devis"
  Application.QuandTouche "+^{F4}", "Enreg_Bordereau"
  Application.QuandTouche "+^{F5}", "Enreg_Nomenclature"
  Application.QuandTouche "+^{F6}", "Enreg_Sortie"
  Application.QuandTouche "+^{F7}", "NewSaisie"
  Application.QuandTouche "+^{F8}", "Caract"
  Application.QuandTouche "+^{F9}", "Charge_Saisie"
  Application.QuandTouche "+^{F10}", "Cree_Rep"
  Application.QuandTouche "+^{F11}", "Load_Ancien"
  Application.QuandTouche "+^{F12}", "Imp_Enreg_Materiel"
 
  Application.QuandTouche "%{F1}", "Tab_1"
  Application.QuandTouche "%{F2}", "Tab_2"
  Application.QuandTouche "%{F3}", "Tab_3"
  Application.QuandTouche "%{F4}", "Tab_4"
  Application.QuandTouche "%{F5}", "Tab_5"
  Application.QuandTouche "%{F6}"
  Application.QuandTouche "%{F7}"
  Application.QuandTouche "%{F8}"
  Application.QuandTouche "%{F9}"
  Application.QuandTouche "%{F10}", "Visu_TotPts"
  Application.QuandTouche "%{F11}", "Visu_PV"
  Application.QuandTouche "%{F12}"
 
  Application.QuandTouche "+%{F1}"
  Application.QuandTouche "+%{F2}", "PageMinute"
  Application.QuandTouche "+%{F3}", "PageDevis"
  Application.QuandTouche "+%{F4}", "PageBordereau"
  Application.QuandTouche "+%{F5}", "PageNomenclature"
  Application.QuandTouche "+%{F6}", "PageMateriel"
  Application.QuandTouche "+%{F7}"
  Application.QuandTouche "+%{F8}"
  Application.QuandTouche "+%{F9}"
  Application.QuandTouche "+%{F10}"
  Application.QuandTouche "+%{F11}"
  Application.QuandTouche "+%{F12}"
 
  Application.QuandTouche "^%{F1}", "BoiteTexte"
  Application.QuandTouche "^%{F2}", "Imprime_Auto"
  Application.QuandTouche "^%{F3}"
  Application.QuandTouche "^%{F4}"
  Application.QuandTouche "^%{F5}"
  Application.QuandTouche "^%{F6}"
  Application.QuandTouche "^%{F7}"
  Application.QuandTouche "^%{F8}"
  Application.QuandTouche "^%{F9}"
  Application.QuandTouche "^%{F10}"
  Application.QuandTouche "^%{F11}"
  Application.QuandTouche "^%{F12}"
 
  Application.QuandTouche "+^%{F1}"
  Application.QuandTouche "+^%{F2}", "MAJenXX"
  Application.QuandTouche "+^%{F3}"
  Application.QuandTouche "+^%{F4}"
  Application.QuandTouche "+^%{F5}"
  Application.QuandTouche "+^%{F6}"
  Application.QuandTouche "+^%{F7}"
  Application.QuandTouche "+^%{F8}"
  Application.QuandTouche "+^%{F9}"
  Application.QuandTouche "+^%{F10}"
  Application.QuandTouche "+^%{F11}", "Utilisateur"
  Application.QuandTouche "+%^{F12}", "Prog"
 
  Application.QuandTouche "+%^{ENTER}"
  Application.QuandTouche "~", "Enter"
  Application.QuandTouche "{ENTER}", "Enter"
  Application.QuandTouche "{BAS}", "Bas"
  Application.QuandTouche "{HAUT}", "Haut"
  Application.QuandTouche "{DROITE}", "Droite"
  Application.QuandTouche "{GAUCHE}", "Gauche"
  Application.QuandTouche "{ORIGINE}", "Home"
  Application.QuandTouche "{INSERTION}", "Inser"
 
  Application.QuandTouche "^{SUPPRESSION}", "Suppr"
  Application.QuandTouche "^{PGPREC}", "EnHaut"
  Application.QuandTouche "^{PGSUIV}", "EnBas"
  Application.QuandTouche "+^{PGPREC}", "PlusZoom"
  Application.QuandTouche "+^{PGSUIV}", "MoinsZoom"
  Application.QuandTouche "+^{FIN}", "Sortie"
  Application.QuandTouche "^{TAB}", "Bascule"
 
  FenêtreActive.AffichageOngletsClasseur = False
  If BarresOutils("Touches de fonction").Affiché = False Then Call Barre_Outils
  With Application.BarresOutils("Touches de fonction")
       .BoutonsBarreOutils(1).Nom = "Aide ON"
       .BoutonsBarreOutils(3).Nom = "Eliminé"
       .BoutonsBarreOutils(4).Nom = "Saisie"
  End With
  BarresOutils.Ajouter Nom:="Barre d'outils 2"
  BarresOutils("Barre d'outils 2").BoutonsBarreOutils.Ajouter Bouton:=139, Avant:=1
  BarresOutils("Barre d'outils 2").Affiché = True
  BarresOutils("Barre d'outils 2").BoutonsBarreOutils(1).CopierApparence
  BarresOutils("Touches de Fonction").BoutonsBarreOutils(24).CollerApparence
  BarresOutils("Barre d'outils 2").BoutonsBarreOutils(1).Delete
  BarresOutils("Barre d'outils 2").Delete
  Call nom_des_bulles
  plage("D8:D10").Sélectionner
  With Sélection.Intérieur
    .IndexCouleur = 4
    .Motif = xlUni
    .IndexCouleurMotif = xlAutomatique
  End With
  plage("D9") = "C A L C U L"
  Application.QuandTouche "{BAS}", "Bas"
  Application.QuandTouche "{HAUT}", "Haut"
  Application.QuandTouche "{DROITE}", "Droite"
  Application.QuandTouche "{GAUCHE}", "Gauche"
 
 
  plage("D8:D10").Sélectionner
  With Sélection.Intérieur
      .IndexCouleur = 3
      .Motif = xlTreillisFoncé
      .IndexCouleurMotif = 6
  End With
  plage("D9") = "D E P L A C E M E N T"
  Application.QuandTouche "{BAS}"
  Application.QuandTouche "{HAUT}"
  Application.QuandTouche "{DROITE}"
  Application.QuandTouche "{GAUCHE}"
  If Feuilles("Saisie").Cellules(7, 4) = "Invisible Actif" Then
    Feuilles("Saisie").Cellules(7, 4) = ""
    FeuilleActive.ObjetsDessinés("AA").Couper
  End If
  plage("e1:e1").Intérieur.IndexCouleur = 35
  Call Maj
 
  plage("A15").Sélectionner
 
  If BarresOutils("Touches de fonction").Affiché = True Then BarresOutils("Touches de fonction").Affiché = False
  If BarresOutils("Outils Visualisation").Affiché = True Then BarresOutils("Outils Visualisation").Affiché = False
  If BarresOutils("Outils Tableau de Calcul").Affiché = True Then BarresOutils("Outils Tableau de Calcul").Affiché = False
  If BarresOutils("Outils Minute").Affiché = True Then BarresOutils("Outils Minute").Affiché = False
  If BarresOutils("Outils Devis").Affiché = True Then BarresOutils("Outils Devis").Affiché = False
  If BarresOutils("Outils Bordereau").Affiché = True Then BarresOutils("Outils Bordereau").Affiché = False
  If BarresOutils("Outils Nomenclature").Affiché = True Then BarresOutils("Outils Nomenclature").Affiché = False
  If BarresOutils("Outils Materiel").Affiché = True Then BarresOutils("Outils Materiel").Affiché = False
  If BarresOutils("Sommaire").Affiché = True Then BarresOutils("Sommaire").Affiché = False
  If BarresOutils("Fichier Articles").Affiché = True Then BarresOutils("Fichier Articles").Affiché = False
 
  BarresOutils("Outils Materiel").BoutonsBarreOutils(6).QuandAction = "Imp_Enreg_Materiel "
 
  Call Feuille_Saisie
 
  'Quand Erreur AllerA err_marque
  'Fermer #1
  'Ouvrir "c:\devis\biblexl\" & marque & ".dom" Pour Aléatoire En #1 NbrCar = 100
  '   K = repere * 8
  '   Pour az = 68 à 74
  '     Si az = 70 Alors az = 71
  '     K = K + 1
  '     Lire #1; K; v
  '     plage(Car(az) & l) = v
  '   Suivant
  ' Fermer #1
  ' AllerA saute_err
 
End Sub

BON COURAGE

**ouskel'n'or** · 12/03/2006, 08h41

Une réponse immédiate : Après la version 5 d'Excel, le code est effectivement passé en anglais. J'ignore si la version 97 convertit le code français en anglais. En tout état de cause, la version 2003 d'Office n'a aucune raison de le faire.
Ton code en français, faut tout le ré-écrire en anglais, pas seulement des bouts.

Déjà, tu dois faire précéder la sub auto_open de Workbook_Open (VBA 97)
En 2003, Auto_Open peut ne pas être nécessaire... là, tu vois.
Pour le début ça donnerait quelque chose comme ça :

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
Private Sub Workbook_Open()
    Application.WindowState = xlMaximized
    ActiveWorkbook.RunAutoMacros Which:=xlAutoOpen
End Sub
 
Sub Auto_open()
  Worksheets("Sigle").Select
    With ActiveWindow
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    ActiveWindow.Visible = False
'.......
'.......
Workbooks.open FileName:="C:\DEVIS\XLPROG\SAISIE.XLS"
'... etc

Remplacer toutes tes lignes

Application.QuandTouche ...

par

Code :

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

Application.OnKey ...

Bon courage

A+

**SfJ5Rpw8** · 12/03/2006, 08h50

déjà ton projet ne semble pas être complétement traduit... .. la possibilitée de coder en français n'existe plus sous excel alors effectue quelques remplacements...

Feuilles => Sheets
Classeurs => Workbooks
FenêtreActive => ActiveWindow
Sélection => Selection
Sélectionner => Select
Fenêtres()=> Windows()
plage() => range()
intérieur => intérior
QuandTouce=> onkey
....
tu trouveras sous ton réportoire c:\program file...\office...\ le fichier VBALIST.XLS ... fichier qui te permettra grâce à son onglet "Mots clés Visual Basic" de trouver les traductions des différents mots...

dis nous ensuite ou tu bloque...

bon courage ...

au fait as tu consulté le fichier : trnslate.log.

:

**MJMJ** · 18/03/2006, 17h33

merci pour les informations .

Après quelques heures passées à tenter de traduire, J'abandonne pour le moment. Plus je traduit et plus je génère d'erreurs incompréensibles pour mon niveau
Si quelqu'un est interressé par ce programme de devis à traduire ,il peut me contacter.

Autre question technique pour continuer à le débuguer sur excel5 :
Comment rechercher un mot ou une expression dans toutes les Macros en même temps.
Merci

**MJMJ** · 18/03/2006, 23h46

bbil , Merci pour la rapidité de la réponse; Mais ce n'est pas encore gagné.
Une fois Excel 2003 lancé, un premier message d'erreur
Erreur d'exécution 1004
La méthode 'Sheets' de l'objet 'Global' a échoué

Code :

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

1
2
3
4
5
6
7
Sub auto_ouvrir()
  Sheets("Sigle").Select
  With ActiveWindow
     .DisplayHeadings = False
     .DisplayHorizontalScrollBar = False
     .DisplayVerticalScrollBar = False
     .DisplayWorkbookTabs = False

Pour mon débug sur Excel5 comment rechercher un terme dans plusieurs Macros en même temps ( Sans avoir à les ouvrir une par une.
Merci ,Bonsoir
MJM

**SfJ5Rpw8** · 19/03/2006, 08h16

oui c'est pas encore fini ...

par exemple rajoute

Code :

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

1
2
3
4
5
 
Sub auto_ouvrir()
ThisworkBook.Activate 
Sheets("Sigle").Select 
...

il reste encore des delete à remplacer par des kill ....

pour la rechercher dans les macros Excel 5.0 je sais plus.. ce n'est pas pareil que sous 2000 ? Edition Rechercher, projet en cours ?, quand Tu dis plusieurs MAcros en même temps ? il sagit de fichiers Excel différents ?

**MJMJ** · 19/03/2006, 12h19

Bonjour bbil,Réponse exacte,Mais voici le blocage suivant
Erreur d'exécution 76 Chemin d'acces introuvable

FileCopy "C:\Devis\xlprog\SAISIE.XLS", "C:\Devis\xlprog\saf\saisie.anc"
On Error GoTo suit

Par contre le fichier d'aide sur 2003 n'est apparement pas installé!!!

Et en plus ce matin ma version Excel5 m'indique: erreur de chargement de la bibliotheque DLL. Ceci en mode débug. Donc je n'ai pas pu vérifier la fonction Edition Rechercher Faut -il réinstaller Excel5 ?

Bon dimanche
MJM

**MJMJ** · 19/03/2006, 15h16

Voila Excel5 fonctionne à nouveau !

Edition Rechercher, projet en cours ?, ne parait pas fonctionner sous Excel5 ( Toujours dans la feuille minute.xls )

**SfJ5Rpw8** · 20/03/2006, 00h25

Envoyé par MJMJ

Bonjour bbil,Réponse exacte,Mais voici le blocage suivant
Erreur d'exécution 76 Chemin d'acces introuvable

FileCopy "C:\Devis\xlprog\SAISIE.XLS", "C:\Devis\xlprog\saf\saisie.anc"
On Error GoTo suit

? je pense que tu as du vérifier l'existence du répertoire :
C:\Devis\xlprog\saf\
?

**MJMJ** · 20/03/2006, 20h54

Bonjour; je fatigue un peu , je n'étais pas sur le bon disque dur

Arrêt suivant : sur cette ligne

Code :

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

1
2
3
4
5
6
repere = Val(Range("B" & l).Value + " ")
   Range("B" & l) = repere
   If repere = 0 Then
     Range("B" & l) = ""
     Range("B" & l & ":B" & l).Interior.ColorIndex = 3
     GoTo saute_err

A plus tard

[Balises de code rajoutées par ThierryAIM, Merci d'y penser la prochaine fois]

**ThierryAIM** · 20/03/2006, 20h57

Envoyé par MJMJ

Bonjour; je fatigue un peu

c'est pas une raison pour en oublier les balises de code

**SfJ5Rpw8** · 20/03/2006, 20h57

Envoyé par MJMJ

Arrêt suivant : sur cette ligne

repere = Val(Range("B" & l).Value + " ")

il n'y as pas de message ?

**MJMJ** · 20/03/2006, 21h28

Il est 21h28 David Gilmour me donne la pêche

Pour élucider cette autre ligne d'erreur

Workbooks("Minute.xls").DialogSheets("BoitNom").EditBoxes("Modification 15").texte = Mid(Range("D1"), 14, InStr(14, Range("D1"), "\", 1) - 14)

**SfJ5Rpw8** · 20/03/2006, 21h48

Envoyé par MJMJ

Il est 21h28 David Gilmour me donne la pêche

Pour élucider cette autre ligne d'erreur

Workbooks("Minute.xls").DialogSheets("BoitNom").EditBoxes("Modification 15").texte = Mid(Range("D1"), 14, InStr(14, Range("D1"), "\", 1) - 14)

et toujours pas de message

**MJMJ** · 20/03/2006, 22h00

Le message est 400

Pour la question précédente je ne saisis pas la réponse " Balise de code "

**SfJ5Rpw8** · 20/03/2006, 22h20

encore des problémes de traduction essai :

Code :

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

Workbooks("Minute.xls").DialogSheets("BoitNom").EditBoxes("Edit Box 15").Text= Mid(Range("D1"), 14, InStr(14, Range("D1"), "\", 1)

Modification 15

Edit Box 15
.Texte

.Text

PS: Pense au balise de code .. les boutons [ Code] [\Code] en haut de la fenêtre de post du forum ...

**MJMJ** · 20/03/2006, 22h30

Pour bbil

Message 400

Balises de code rajoutées par: Pouvez vous m'expliquer cette annotation
Merci

Excel5 vers excel 2003

Macros et VBA Excel

Discussions similaires

Partager

Partager