creation fichiers EXCEL version incompatible

Version imprimable

10/03/2010, 20h30
STEF68600

creation fichiers EXCEL version incompatible
Bonjour à tous,

je suis dans la panade...

je crée des fichiers xls via ces instructions :
Code:

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.
10/03/2010, 21h14
Flamby38

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.
10/03/2010, 21h20
STEF68600

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.

Bonsoir,

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

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
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

10/03/2010, 21h38
Flamby38
Sans garantie de résultat tu peux essayer ca :
Code:

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.
10/03/2010, 21h47
STEF68600

Merci, je vais essayé ton code.

PQZ donne cette solution sur un autre post:

Code:

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.
10/03/2010, 21h53
Flamby38

Eh bien, c'est peut etre le moment d'aller voir la documentation de cette fonction saveas non? :mrgreen:
la solution ne doit pas être bien loin.
10/03/2010, 21h54
STEF68600

ça fonctionne pas même en dur :

Code:

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

je trouve pas, mais je cherche

Cordialement.
11/03/2010, 10h06
sebnantes

Hello, pour la commande SaveAs essaie ça

Code:

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

Cela fera une sauvegarde forcée normalement
11/03/2010, 14h18
STEF68600

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

Citation:

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

qu'en pensez-vous ??

Merci de votre aide.

je suis en VB2008 express
11/03/2010, 14h28
sebnantes

Quand tu tapes juste "Excel.XlWin", as-tu "XlWindowState" qui apparaît dans les choix de la complétion de Visual Studio ?
11/03/2010, 15h04
STEF68600

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
11/03/2010, 15h06
sebnantes

Rajoute cette ligne

Code:

Imports Microsoft.Office.Interop

en haut de ton module/classe, après je ne suis pas sûr que cela marche.
11/03/2010, 15h07
Flamby38

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.
11/03/2010, 15h20
STEF68600

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

ci-joint mon bout de code :

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
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

11/03/2010, 15h33
sebnantes

Est-ce que tu peux importer cette dll "Microsoft.Office.Interop.Excel.dll" dans ton projet ?
11/03/2010, 15h49
STEF68600

apparement non ou je sais pas comment faire.

j'ai fait :

Code:

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.
11/03/2010, 15h55
sebnantes

Vas dans le répertoire suivant :

Citation:

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 ?
11/03/2010, 16h13
Flamby38

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.
11/03/2010, 17h00
sebnantes

Alors après quelques recherches parce que je voulais comprendre pourquoi, je suis tombé sur les choses suivantes :

Lien pour télécharger les librairies pour Office 2003
http://support.microsoft.com/kb/897646/fr

Contenu du PIA Assembly pour Office 2007
http://msdn.microsoft.com/fr-fr/libr...7.aspx#pia2007

Redirection de liaison de l'Assembly
http://msdn.microsoft.com/fr-fr/library/2fc472t2.aspx

Configuration de la liaison de l'Assembly
http://msdn.microsoft.com/fr-fr/library/433ysdt1.aspx

Après avoir lu un peu tout ça, il se peut que cela soit lié au Framework présent sur la machine. Quel est le Framework présent sur ta machine ?
11/03/2010, 17h19
STEF68600

voila où j'en suis :

j'ai ajouté la ref de COM

microsoft office 12.0 object library

je la retrouve bien dans les propriétés du projet dans l'onglet "référence"

ensuite j'ai fait la déclaration :

Imports Microsoft.Office.Interop.Excel.dll --> ref inexistante
Imports Microsoft.Office.Interop.Excel --> idem

l'imports ne fonctionne pas.

ma machine

XP pro SP3
VB2008 express
netframwork V 3.5 sp1

suite office 2003 avec mise a jour excel en 2007

merci de votre aide
11/03/2010, 17h25
Flamby38

Je pense qu'ajouter la reference suffira pour faire

Code:

oBook.SaveAs("c:\toto.xls", FileFormat:=Excel.XlWindowState.xlNormal)
11/03/2010, 17h38
STEF68600

toutjours même problème :

Citation:

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

qui a une corde....:cry:
11/03/2010, 18h12
sevyc64

Attention

En rajoutant la référence dans ton projet, tu figeras l'utilisation de cette référence et donc de la version correspondante d'Excel

Si tu rajoute la référence vers Excel 2007, Excel 2007 devra ensuite être obligatoirement installé sur tes machines pour que ton logiciel fonctionne.

Le fait de ne pas référencer ta version d'Excel te permet d'utiliser la version actuellement installé sur la machine indépendamment de la version qui à servir à coder le logiciel.

La contrepartie, c'est que l'intellisence ne marche pas puisque VB ne connais pas les objets Excel que tu vas utiliser, et notamment les constantes des énumérés.
11/03/2010, 19h40
STEF68600

aie, je suis dans l'impasse alors ?

effectivement les différents postes n'utilise pas la même version excel.

chaque utilisation doit pouvoir crée des fichiers car du coté appli local, l'utilisateur doit pouvoir depuis l'appli ouvrir le fichier pour le voir dans un datagridview, ajouter ou supprimer des données et sur le serveur une appli fusionne ces fichiers en un et là cet excel 2003 imposé.

donc il faut absolument que ces fichiers soit compatible excel 2003 au niveau commandes appli local même si il y a excel 2007.

comment faire sans se servir de la référence pour forcer l'enregistrement du fichier avec la structure excel 2003 quand on a excel 2007 ?

je suis désolé de vous embêter avec mon problème, mais je pense que cela pourra servir à d'autres.

Cordialement.
11/03/2010, 19h49
sevyc64

Regarde ma réponse sur l'autre forum

Au lieu de vouloir passer les constantes énumérées comme xlExcel8 pour Fileformat, il faut directement indiquer leurs valeurs numériques, 56 pour xlExcel8 par exemple
11/03/2010, 20h41
STEF68600

[RESOLU]

Casy alias sevyc64 , ça à l'air ok.

suppression de la réference
et
oBook.Saveas(Filename:=nom_fichier, FileFormat:=56)

j'arrive à ouvrir, modifier, supprimer avec un excel 2007 sur le poste.

j'arrive a ouvrir le fichier en excel 2003 sur un autre poste.

il me reste à essayer une appli qui a excel 2003 et verifier si le fichier s'ouvre en 2007 pour être compatible à 100%
je regarde ça demain et te tiens au courant.

vraiment un grand merci, à vous tous. :ccool:

Cordialement.
11/03/2010, 21h39
Sankasssss

Juste le petit mot de la fin, si tu utilises la dll 2003 dans les références, elle fonctionne aussi avec la version 2007, c'est ce que je fais... de cette manière mes appli fonctionne sur toutes les versions d'Excel et en plus tu as l'intellisens :ccool:
12/03/2010, 04h31
Flamby38

Ah ben dites donc c'est pas ce que j'ai mis au 5eme post? personne ne m'écoute :cry:
12/03/2010, 15h01
STEF68600

Bonjour a tous,

voici mes resultats :

appli avec excel 2003 = plantage error

Citation:

la methode saveas de worbook à échoué.

donc je pense qu'il va falloir vérifier la version excel avant la sauvegarde et appliquer différement saveas suivant la version.

pas souple du tout cette affaire...

Cordialement.
13/03/2010, 10h34
Sankasssss

Citation:

Envoyé par Flamby38

Ah ben dites donc c'est pas ce que j'ai mis au 5eme post? personne ne m'écoute :cry:

Ca arrive tout le temps sur les forum :mouarf:

Citation:

Envoyé par STEF68600

Bonjour a tous,

voici mes resultats :

appli avec excel 2003 = plantage error

donc je pense qu'il va falloir vérifier la version excel avant la sauvegarde et appliquer différement saveas suivant la version.

pas souple du tout cette affaire...

Cordialement.

Personnellement aucun problème avec la dll 97/2003 et la fonction :

Code:

mWorkBook.SaveAs(strCheminFichier, Excel.XlFileFormat.xlExcel7)
13/03/2010, 12h31
STEF68600

Bonjour,

donc en ajoutant la référence object librayrie 11 et en mettant ton code ça fonctionne et peu importe la version excel installé ?

mais comment déclare-tu l'imports ? car je n'y suis pas arrivé malgré votre aide.

Cordialement.
13/03/2010, 14h15
sebnantes

Je pense que la ligne suivante, en haut du module où tu manipules Excel devrait suffire (dès l'instant où tu as ajouté la ref à ton projet) :

Code:

Imports Microsoft.Interop.Office
13/03/2010, 16h09
Sankasssss

Citation:

Envoyé par STEF68600

donc en ajoutant la référence object librayrie 11 et en mettant ton code ça fonctionne et peu importe la version excel installé ?
.

Ça fonction bien quelque soit la version installée :ccool:

Citation:

Envoyé par sebnantes

Je pense que la ligne suivante, en haut du module où tu manipules Excel devrait suffire (dès l'instant où tu as ajouté la ref à ton projet) :

Code:

Imports Microsoft.Interop.Office

Exactement, et n'oublie pas d'ajouter la référence pour ce faire : http://msdn.microsoft.com/fr-fr/libr...8VS.80%29.aspx

Citation:

Pour ajouter une référence en Visual Basic

1. Dans l'Explorateur de solutions, double-cliquez sur le nœud Mon projet du projet.
2. Dans le Concepteur de projets, cliquez sur l'onglet Références.
3. Cliquez sur le bouton Ajouter pour ouvrir la boîte de dialogue Ajouter une référence.
4. Dans la boîte de dialogue Ajouter une référence, sélectionnez l'onglet correspondant au type de composant à référencer.
5. Sélectionnez les composants à référencer, puis cliquez sur OK.
RemarqueConseil

Vous pouvez sélectionner plusieurs composants en maintenant la touche CTRL enfoncée, à condition les composants se trouvent tous sur le même onglet.