creation fichiers EXCEL version incompatible

**STEF68600** · 10/03/2010, 20h30

Bonjour à tous,

je suis dans la panade...

je crée des fichiers xls via ces instructions :

Code :

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

1
2
3
oExcel = CreateObject("Excel.Application") 
oBook = oExcel.Workbooks.Open(Filename:=nom_fichier) 
oSheet = oExcel.ActiveSheet

le problème c'est qu'a l'origine les pc de la boite avait Excel 2003 tout allait bien.

depuis quelque temps Excel 2007 apparait ce qui ne pose pas de prob à la construction du fichier.

mais impossible d'ouvrir le fichier avec Excel 2003 et 2007.
Je pense que cela viens du système d'interpolation qui était en V11 pour Excel 2003 et est maintenant en V12 pour excel 2007.

ma question : comment continuer à fabriquer mes fichiers pour qu'il soit compatible en version 2003 et 2007 ???

Merci de votre aide.
Cordialement.

**Flamby38** · 10/03/2010, 21h14

est ce que tu as bien un oBook.close() ?
est ce que tu crées tes fichiers au format xls ou au format xlsx?
est ce que tu peux poster ton code? On ne voit que le début ici.

**STEF68600** · 10/03/2010, 21h20

je suis une nouille... enfin presque.

je fichier continu à être fabriquer avec l'extension XLS, même si le pc utilise excel 2007... c'est clair qu'il faudrait théoriquement une extension XLSX.

question :

1) comment détecter la version excel installée ?
2) comment forcer l'enregistrement "format 97-2003" si excel 2007 est détecté ?

le traitement des fichiers construit utilise excel 2003 (fusion des données dans un fichier unique par une autre appli sur un serveur).
et pas possible de faire installer le convertisseur, pire que l'administration !

Merci d'avance.
Cordialement.

**STEF68600** · 10/03/2010, 21h29

Bonsoir,

ci-dessous extrait d'ajout données dans le fichier :

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
 oExcel = CreateObject("Excel.Application")
            oBook = oExcel.Workbooks.Open(Filename:=nom_fichier)
            oSheet = oExcel.ActiveSheet
            If oBook.ReadOnly = True Then
                info.Text = "le fichier est déjà ouvert, veuillez fermer le fichier et Excel !"
                System.Windows.Forms.Application.DoEvents()
                oExcel.DisplayAlerts = False
                oBook.close(Filename:=nom_fichier)
                oExcel.Quit()
                oExcel.DisplayAlerts = True
                oExcel = Nothing
                oBook = Nothing
                Exit Sub
            Else
 
                With oExcel.Sheets("suivi")
 
                    i = oExcel.WorksheetFunction.CountA(oExcel.Worksheets("suivi").Columns(1))
                    i = i + 1.0
                    ' demandeur
                    .Cells(i, 1).Numberformat = "@" 'Cellules au format texte
                    .Cells(i, 1).Value = TextBox3.Text
                    'noms ITC
                    .Cells(i, 2).Numberformat = "@" 'Cellules au format texte
                    .Cells(i, 2).Value = mesinfos.TextBox2.Text
                    ' date
                    .Cells(i, 3).Value = DateTimePicker1.Text
                    ' Temps passée
                    .Cells(i, 4).Value = ComboBox4.Text
                    ' client
                    .Cells(i, 5).Numberformat = "@" 'Cellules au format texte
                    .Cells(i, 5).Value = TextBox1.Text
                    ' contact client
                    .Cells(i, 6).Numberformat = "@" 'Cellules au format texte
                    .Cells(i, 6).Value = TextBox2.Text
                    ' N° SOON
                    .Cells(i, 7).Value = TextBox4.Text
                    ' code agence
                    .Cells(i, 8).Value = TextBox7.Text
                    'noms DEPARTEMENT
                    .Cells(i, 9).Numberformat = "@" 'Cellules au format texte
                    .Cells(i, 9).Value = ComboBox2.Text
                    ' famille
                    .Cells(i, 10).Numberformat = "@" 'Cellules au format texte
                    .Cells(i, 10).Value = ComboBox3.Text
                    'Questions
                    .Cells(i, 11) = Replace(TextBox6.Text, Chr(13) & Chr(10), " ")
                    'Réponse
                    .Cells(i, 12) = Replace(TextBox8.Text, Chr(13) & Chr(10), " ")
                    'email
                    .Cells(i, 13).Numberformat = "@" 'Cellules au format texte
                    .Cells(i, 13).Value = TextBox9.Text
                    'action
                    .Cells(i, 14).Value = TextBox10.Text
                    'téléphone
                    'appel du module pour espace tel.
                    telephone = TextBox14.Text
                    ESPACE.espace(telephone, TextBox14.Text)
                    System.Windows.Forms.Application.DoEvents()
                    .Cells(i, 15).Numberformat = "@" 'Cellules au format texte
                    .Cells(i, 15).Value = TextBox14.Text
                    'autoajustage des colonnes
                    .Cells.Columns.AutoFit()
 
                    'fermeture des instances Excel
                    oExcel.DisplayAlerts = False
                    oBook.Saveas(Filename:=nom_fichier)
                    oBook.close(Filename:=nom_fichier)
                    oExcel.Quit()
                    oExcel.DisplayAlerts = True
                    oSheet = Nothing
                    oExcel = Nothing
                    oBook = Nothing
             End if

Cordialement

**Flamby38** · 10/03/2010, 21h38

Sans garantie de résultat tu peux essayer ca :

Code :

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

1
2
3
4
5
6
 
if val(oExcel.Version) > 11
    oWorkbook.SaveAs("C:\temp\foobar.xls", 56) && xlExcel8
else
    oWorkbook.SaveAs("C:\temp\foobar.xls")
endif

oExcel.version te donnes la version d'excel, après il y a des options dans le saveas que tu peux donner, c'est logique, c'est comme quand tu fais enregistrer sous dans excel, tu as des options.

Maintenant je ne fais que copier ce que j'ai trouvé sur google, je ne sais pas si ca marche ou pas, mais ca devrait au moins te donner une bonne piste pour trouver une solution.

**STEF68600** · 10/03/2010, 21h47

Merci, je vais essayé ton code.

PQZ donne cette solution sur un autre post:

Code :

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

LeWorkbook.SaveAs sChemin, xlWorkbookNormal

mais j'arrive pas à mettre le xlWorkbookNormal

oBook.Saveas(Filename:=nom_fichier) ,xlWorkbookNormal --> "fin d'instruction attendue"

oBook.Saveas(Filename:=nom_fichier) ,oExcel.xlWorkbookNormal --> idem
oBook.Saveas(Filename:=nom_fichier,xlWorkbookNormal ) --> idem
oBook.Saveas(Filename:=nom_fichier,oExcel.xlWorkbookNormal ) --> idem

une idée ??

Cordialement.

**Flamby38** · 10/03/2010, 21h53

Eh bien, c'est peut etre le moment d'aller voir la documentation de cette fonction saveas non?

la solution ne doit pas être bien loin.

**STEF68600** · 10/03/2010, 21h54

ça fonctionne pas même en dur :

Code :

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

oBook.Saveas("c:\toto.xls", oExcel.xlWorkbookNormal)

je trouve pas, mais je cherche

Cordialement.

**sebnantes** · 11/03/2010, 10h06

Hello, pour la commande SaveAs essaie ça

Code :

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

oBook.SaveAs("c:\toto.xls", FileFormat:=Excel.XlWindowState.xlNormal)

Cela fera une sauvegarde forcée normalement

**STEF68600** · 11/03/2010, 14h18

je viens de faire le test et j'ai l'erreur d'execution sur cette ligne

Le membre public 'XlWindowState' du type 'ApplicationClass' est introuvable.

qu'en pensez-vous ??

Merci de votre aide.

je suis en VB2008 express

**sebnantes** · 11/03/2010, 14h28

Quand tu tapes juste "Excel.XlWin", as-tu "XlWindowState" qui apparaît dans les choix de la complétion de Visual Studio ?

**STEF68600** · 11/03/2010, 15h04

Salut,

non j'ai pas ce complément.

j'ai en proposition

equals
...blabla
...blabla
...blabla
tostring

qu'est-ce qu'il manque une déclaration un module ???

Merci de votre aide

**sebnantes** · 11/03/2010, 15h06

Rajoute cette ligne

Code :

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

Imports Microsoft.Office.Interop

en haut de ton module/classe, après je ne suis pas sûr que cela marche.

**Flamby38** · 11/03/2010, 15h07

Se pourrait-il qu'il manque une référence au projet? genre la référence à excel que tu devrais trouver en faisant clic droit / add reference dans l'onglet COM.

**STEF68600** · 11/03/2010, 15h20

effectivement j'ai pas de ref excel dans mon projet,

par contre quand je vais dans le COM j'ai pas cette reference.

malgré que excel2007 soit installé. ça fonctionnait avant avec 2003 sans ajouter quoi que ce soit ???

merci de votre aide

**STEF68600** · 11/03/2010, 15h24

ci-joint mon bout de 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
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
oExcel = CreateObject("Excel.Application")
            oBook = oExcel.Workbooks.Add
            oSheet = oExcel.ActiveSheet
 
            With oExcel.Sheets("Feuil1")
                i = oExcel.WorksheetFunction.CountA(oExcel.Worksheets("feuil1").Columns(1))
                i = i + 1.0
                ' demandeur
                .Cells(i, 1).Value = "DEMANDEUR"
                'noms ITC
                .Cells(i, 2).Value = "NOMS ITC"
                ' date
                .Cells(i, 3).Value = "DATE"
                ' temps passée
                .Cells(i, 4).Value = "TEMPS"
                ' client
                .Cells(i, 5).Value = "CLIENT"
                ' contact client
                .Cells(i, 6).Value = "CONTACT"
                ' N° SOON
                .Cells(i, 7).Value = "N° SOON"
                ' code agence
                .Cells(i, 8).Value = "CODE AGENCE"
                'noms DEPARTEMENT
                .Cells(i, 9).Value = "DEPARTEMENT"
                ' famille
                .Cells(i, 10).Value = "FAMILLE"
                'Questions
                .Cells(i, 11).Value = "QUESTIONS"
                'Réponse
                .Cells(i, 12).Value = "REPONSE"
                'email
                .Cells(i, 13).Value = "Email Demandeur"
                'action
                .Cells(i, 14).Value = "Action Commerciale ?"
                'telephone
                .Cells(i, 15).Value = "Tel Client"
 
                i = i + 1
 
                ' demandeur
                .Cells(i, 1).Numberformat = "@" 'Cellules au format texte
                .Cells(i, 1).Value = TextBox3.Text
                'noms ITC
                .Cells(i, 2).Numberformat = "@" 'Cellules au format texte
                .Cells(i, 2).Value = mesinfos.TextBox2.Text
                ' date
                .Cells(i, 3).Value = DateTimePicker1.Text
                ' Temps passée
                .Cells(i, 4).Value = ComboBox4.Text
                ' client
                .Cells(i, 5).Numberformat = "@" 'Cellules au format texte
                .Cells(i, 5).Value = TextBox1.Text
                ' contact client
                .Cells(i, 6).Numberformat = "@" 'Cellules au format texte
                .Cells(i, 6).Value = TextBox2.Text
                ' N° SOON
                .Cells(i, 7).Value = TextBox4.Text
                ' code agence
                .Cells(i, 8).Value = TextBox7.Text
                'noms DEPARTEMENT
                .Cells(i, 9).Numberformat = "@" 'Cellules au format texte
                .Cells(i, 9).Value = ComboBox2.Text
                ' famille
                .Cells(i, 10).Numberformat = "@" 'Cellules au format texte
                .Cells(i, 10).Value = ComboBox3.Text
                'Questions
                .Cells(i, 11) = Replace(TextBox6.Text, Chr(13) & Chr(10), " ")
                'Réponse
                .Cells(i, 12) = Replace(TextBox8.Text, Chr(13) & Chr(10), " ")
                'email
                .Cells(i, 13).Numberformat = "@" 'Cellules au format texte
                .Cells(i, 13).Value = TextBox9.Text
                'action
                .Cells(i, 14).Value = TextBox10.Text
                'téléphone
                'appel du module pour espace tel.
                telephone = TextBox14.Text
                ESPACE.espace(telephone, TextBox14.Text)
                System.Windows.Forms.Application.DoEvents()
                .Cells(i, 15).Numberformat = "@" 'Cellules au format texte
                .Cells(i, 15).Value = TextBox14.Text
                .name = "suivi" ' renomage de l'onglet
                'autoajustage des colonnes
                .Cells.Columns.AutoFit()
 
            End With
            With oExcel.Sheets("Feuil2")
                i = oExcel.WorksheetFunction.CountA(oExcel.Worksheets("Feuil2").Columns(1))
 
                i = i + 1.0
                'creation nombre de demande incorrect
                .Cells(i, 1).Value = "Demande Hotline incorrect"
                ' demandeur
                .Cells(i, 2).Value = "DEMANDEUR"
                'noms ITC
                .Cells(i, 3).Value = "NOMS ITC"
                ' date
                .Cells(i, 4).Value = "DATE"
                .name = "demande incorrecte"
                'autoajustage des colonnes
                .Cells.Columns.AutoFit()
 
            End With
            With oExcel.Sheets("Feuil3")
                i = oExcel.WorksheetFunction.CountA(oExcel.Worksheets("feuil3").Columns(1))
                i = i + 1.0
                ' demandeur
                .Cells(i, 1).Value = "DEMANDEUR"
                'noms ITC
                .Cells(i, 2).Value = "NOMS ITC"
                ' date
                .Cells(i, 3).Value = "DATE"
                ' temps passée
                .Cells(i, 4).Value = "TEMPS"
                ' client
                .Cells(i, 5).Value = "CLIENT"
                ' contact client
                .Cells(i, 6).Value = "CONTACT"
                ' N° DEVIS
                .Cells(i, 7).Value = "N°DEVIS"
                ' MONTANT
                .Cells(i, 8).Value = "MONTANT"
                'noms DEPARTEMENT
                .Cells(i, 9).Value = "DEPARTEMENT"
                ' famille
                .Cells(i, 10).Value = "FAMILLE"
                'Descriptif
                .Cells(i, 11).Value = "DESCRIPTIF"
                'telephone
                .Cells(i, 12).Value = "Tel Client"
 
                'implication avv
                .Cells(i, 13).Value = "AVV Client"
                'implication Définiton Produits
                .Cells(i, 14).Value = "Définiton Produits"
                'Validation Produits
                .Cells(i, 15).Value = "Validation Produits"
                'Relance Affaire
                .Cells(i, 16).Value = "Suivi Affaire"
                'Saisie Soon
                .Cells(i, 17).Value = "Saisie Soon"
                'Réserve
                .Cells(i, 18).Value = "Traitement Solo"
 
                .name = "suivi affaire" ' renomage de l'onglet
                'autoajustage des colonnes
                .Cells.Columns.AutoFit()
 
                'fermeture des instances Excel
                oExcel.DisplayAlerts = False
 
                oBook.Saveas(Filename:=nom_fichier, 8Oc'est ici le problème8O)
 
                oBook.close(Filename:=nom_fichier & ".xls")
                oExcel.Quit()
                oExcel.DisplayAlerts = True
                oSheet = Nothing
                oExcel = Nothing
                oBook = Nothing

**sebnantes** · 11/03/2010, 15h33

Est-ce que tu peux importer cette dll "Microsoft.Office.Interop.Excel.dll" dans ton projet ?

**STEF68600** · 11/03/2010, 15h49

apparement non ou je sais pas comment faire.

j'ai fait :

Code :

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

imports Microsoft.Office.Interop.Excel.dll

il veux pas il dit introuvable

et j'ai de nouveau regardé dans COM j'ai pas cette référence office.

**sebnantes** · 11/03/2010, 15h55

Vas dans le répertoire suivant :

C:\Program Files\Microsoft Visual Studio 9.0\Visual Studio Tools for Office\PIA\

Regarde dedans si tu as quelque chose lié à Office. Petit question qui peut paraître bête, as-tu excel d'installer sur le pc sur lequel tu codes ?

**Flamby38** · 11/03/2010, 16h13

http://vb.net-informations.com/excel...reate_file.htm

Si tu n'as pas ce qui est sur les copies d'écran c'est louche.

creation fichiers EXCEL version incompatible

VB.NET

Discussions similaires

Partager

Partager