Problème ouverture fichier.xls

Question

Bonjour,  

J'ai développé une petite application pour un export de fichier excel , en VB.NET
J'arrive à ouvrir ces fichiers excel avec Excel 2010 mais absolument pas avec excel 2003 alors que mon fichier s'appelle "fichier.xls" 

 wbExcel.SaveAs("fichier.xls") 


Quelqu'un a t il une idée pour me permettre d'ouvrir ce fichier avec Excel 2003? 

Cordialement 

Configuration: Windows 7 / Firefox 8.0.1

lermite222 · Accepted Answer

Remplace par 56
ou déclare la constante 
Const xlExcel8 = 56
En principe ça devrait fonctionner.

chossette9 · Answer

Bonjour, 

la ligne que vous donnez permet d'enregistrer un fichier, mais pas de l'ouvrir ???

Cordialement.

gatoune78 · Answer

oui, je sais, j'exporte le fichier ;-)

et après, je ne l'affiche pas tout de suite

En fait, c'est un autre utilisateur qui va chercher le fichier dans le répertoire et qui cherche ensuite à l'afficher sur son propre poste

Cdt

lermite222 · Answer

Bonjour,
wbExcel.SaveAs "fichier.xls", xlExcel8
A+

gatoune78 · Answer

Ca me dit que xlExcel8 n'est pas déclaré...

Est ce normal?

En tout cas merci ;-)

gatoune78 · Answer

Super merci !!


Et sinon, autre petite question, j'ai dans mon application la fonction
BorderAround2() pour permettre de mettre des bordures aux cellules

quand je lance l'application depuis un poste avec Excel 2010, cette fonction fonctionne à merveille

Avec le poste avec la version 2003, le programme plante

Pour info, le programme sert à exporter des données via un programme vb.net et donc mon poste est en Excel 2010 alors que celui des personnes pour qui je bosse est en Excel 2003...

Celà est il lié ?

Dois je crée un autre sujet ?

En tout cas un grand merci pour l'aide !!

lermite222 · Answer

Dois je crée un autre sujet ?  
Pas nécessaire. 
Certaines propriétés et fonctions de 2010 n'existe pas en version 2003, tu dois en tenir compte. 
Le mieux c'est de développer sur la version la plus basse utilisée, dans ton cas 2003. 
Pour que ta macro fonctionne quand même tu peu mettre un 
On Error Resume Next 
Avant les lignes qui plante, mais cela va influencer le design dans le 2003 
A+ 
Edit: Je ne l'ai même pas dans le 2007
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

lermite222 · Answer

Tu pourrais aussi faire une double macro en fonction de la version de l'appli.

gatoune78 · Answer

Oui il faudrait peut être faire deux macros

j'ai trouvé sur internet que la "library" que j'utilise dans mon application est trop "élevée" pour Excel 2003.

Dans ce cas, ne devrais je pas télécharger une library compatible ?
Si oui, y a t il un endroit ou je peux la trouver ?

Cdt

lermite222 · Answer

Non, faut pas ajouter de bibliothèque.
pour connaitre la version de l'application..
Dim V
    V = Application.Version
Pour le 2000 c'est "9.0" pour le 2007 c'est "12.0" pour le 2010 ?? je ne l'ai pas
et je verrais le code qui flanche..
if Application.Version = "XX.0" le code du 2010
  Le code qui va dans ton 2010
Else
    Le code qui va dans le 2003
End if
Éventuellement enlever le Option Explicit en haut de la page.

gatoune78 · Answer

d'accord, je vais essayer ca :)

mais j'ai besoin de mon BorderAround2 dans la version 2003, je fais comment avec cette méthode ?

Cdt

lermite222 · Answer

Quel type de bordure ça fait ?
Je pourrais voir pour transcrire ce code en 2003

gatoune78 · Answer

des bordures toutes simples en fait un trait noir fin
ah d'accord merci beaucoup

Cependant, pourrais je utiliser la microsoft excel 9.0 livrary depuis mon poste pour développer cette application ou pas du tout ?

Cdt ;-)

lermite222 · Answer

pas du tout et tu ne saurais pas installer le 2003, excel refuserait en disant qu'il y a une plus récente. Je le sais parce que quand j'ai changer de PC je vouais le 2000 et le 2007, j'ai du installer le 2000 en premier et ensuite le 2007 en gardant le 2000 (il pose la question).
Même en désinstallant ton 2010 ça n'irais pas, y reste des fichiers et tu pourras pas mettre le 2003.
Seul solution, développer sur un PC qui a le 2003.

des bordures toutes simples en fait un trait noir fin 
Cadre sur la plage ou toutes les cellules?

gatoune78 · Answer

Je ne peux pas développer sur le PC qui a le 2003 car ils sont tous utilisés... (je suis en stage dans l'entreprise)

"des bordures toutes simples en fait un trait noir fin
Cadre sur la plage ou toutes les cellules? "
Sur les plages définies dans le code ;-)

lermite222 · Answer

Oui mais..... 
Maintenant que tu avance... 
Tu développe une appli VB.Net, qui fait appel à Excel 2010 
Tu a fait un setup de ton appli pour la mettre sur un autre PC ??? 
Explique comment tu pratique, j'ai l'impression que tu "oublie" certaines étape. :-)) 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

gatoune78 · Answer

oui j'ai fait un setup pour un autre PC 

Alors en fait, au départ, je crée une application excel 

je crée les "titre" de mes tableaux, je mets tout en page quoi (fusion de cellules, bordures etc) 

je fais mes connexions avec la base de données, j'exporte mes données dans des datagrid, et je les mets dans le fichier excel 

et j'enregistre 

puis j'affiche 

Sur excel 2010, tout fonctionne et sur 2003 ça plante... 
et je ne sais pas où ca plante car les pc sur lesquels j'execute le projet n'ont pas de visual studio installé 

Cdt ;-)

lermite222 · Answer

Oui, les méthode du 2010 et 2003 ayant étés (provisoirement) ôtées, faut aussi voir si les méthodes/propriétés que tu met dans ton VB (pour lequel tu ne m'a toujours pas communiquer la version) sont supportées par le FrameWork des autre  PC hôte.  
Sous quel OS sont les autre PC ? XP, Vista ???  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)  
NOTE : Je ne répond pas aux MP pour les questions techniques.

gatoune78 · Answer

euh je dirais Vista ou Seven mais j'ai un gros doute...

j'ai écris plus haut que c'était un visual studio 2010 :-)

Puis je vous dire ca demain car j'ai quitté le lieu du stage et ne cotoyant pas les postes tous les jours je ne le connais pas par coeur :/

Cordialement

gatoune78 · Answer

Bonjour, je reviens vers vous avec la configuration des postes

Alors la plupart des postes sont sous Windows Server 2003 avec Office 2000, ce sont des consoles

Et le reste sont sous XP

Cordialement

lermite222 · Answer

Bonjour, 
J'ai trouver pour la mise en forme de tes cellules, c'est un peu plus compliquer que je ne pensais... 
A l'endroit où tu a... 
'wsExcel.Range("B54:C54").BorderAround2()  
'wsExcel.Range("C54:D54").BorderAround2()  
'wsExcel.Range("D54:E54").BorderAround2()  
'wsExcel.Range("E54:F54").BorderAround2()  
'wsExcel.Range("F54:G54").BorderAround2()  
'wsExcel.Range("G54:H54").BorderAround2()
Tu supprime ces lignes que tu remplace par 
Dim V 
    'pour prendre en compte les mises à jour 
    V = Split(Application.Version, ".") 
    If Val(V(0)) < 14 Then 'merci chossette9
        Cadre2003 
    Else 
        Cadre2010 
    End If
Ensuite tu colle les 3 routines ci-dessous  
Sub Cadre2010() 
Dim TB, i As Byte 
    TB = Array("B54:C54", "C54:D54", "D54:E54", "E54:F54", "F54:G54", "G54:H54") 
    For i = 0 To UBound(TB) 
        wsExcel.Range(tb(i)).BorderAround2() 
    Next 
End Sub 
Sub Cadre2003() 
Dim TB, i As Byte 
Dim Plage As Range 
    TB = Array("B54:C54", "C54:D54", "D54:E54", "E54:F54", "F54:G54", "G54:H54") 
    For i = 0 To UBound(TB) 
        Set Plage = wsExcel.Range(TB(i)) 
        Cadre Plage 
    Next 
End Sub 
Sub Cadre(Plage As Range) 
    With Plage.Borders(xlEdgeLeft) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With Plage.Borders(xlEdgeTop) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With Plage.Borders(xlEdgeBottom) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With Plage.Borders(xlEdgeRight) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
End Sub
Tu va avoir des lignes en erreur mais ça n'influence pas, sur le 2010 ce seront les 2 sub Cadre2003 et Cadre et sur 2003 ce sera Cadre2010 
Y aurais eu plus simple avec de la compilation conditionnelle mais je n'ai pas trouver la constante d'excel2010 ni d'un autre Excel d'ailleur. 
mais ton OS il est en 32 ou 64byte, ça pourrais servir 
2ém problème 
Tu à suivi le déboguage que je t'ai dis pour trouver où ça plante ? 

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

gatoune78 · Answer

Mon OS est en 64 Bytes et les autres, je n'en ai aucune idée...
je ne peux pas faire de débogage sur les postes clients car il n'y pas de visual studio installé mais j'ai mis plein de try...catch afin de pouvoir trouver les erreurs, que je pourrai mettre ici dès que je les aurais ;-)

Concernant le code que vous m'avez donné, il y a plein d'erreur
déjà, tous les xl... ne sont pas pris en comtpe 

De plus, le  
Dim Plage As Range renvoie une erreur sur le Range


et

TB = Array("B54:C54", "C54:D54", "D54:E54", "E54:F54", "F54:G54", "G54:H54")
        For i = 0 To UBound(TB)

cette ligne ne fonctionne pas non plus...

Cdt

lermite222 · Answer

Essaye ceci.. 
supprimer les 3 routines et les remettre comme ça 
#If Win32 Then 
Sub Cadre2003() 
Dim TB, i As Byte 
Dim Plage As Range 
    TB = Array("B54:C54", "C54:D54", "D54:E54", "E54:F54", "F54:G54", "G54:H54") 
    For i = 0 To UBound(TB) 
        Set Plage = wsExcel.Range(TB(i)) 
        Cadre Plage 
    Next 
End Sub 

Sub Cadre(Plage As Range) 
    With Plage.Borders(xlEdgeLeft) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With Plage.Borders(xlEdgeTop) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With Plage.Borders(xlEdgeBottom) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
    With Plage.Borders(xlEdgeRight) 
        .LineStyle = xlContinuous 
        .Weight = xlThin 
    End With 
End Sub 

#Else 

Sub Cadre2010() 
Dim i As Byte 
    dim TB() as String = {"B54:C54", "C54:D54", "D54:E54", "E54:F54", "F54:G54", "G54:H54"} 
    For i = 0 To UBound(TB) 
        wsExcel.Range(tb(i)).BorderAround2() 
    Next 
End Sub 

#End If

Voir si VB veux bien compiler 
Tu dis 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

gatoune78 · Answer

Dois je laisser ca ?

      Dim V
        'pour prendre en compte les mises à jour
        V = Split(appExcel.Version, ".")
        If Val(V(0)) < 14 Then
            Cadre2003()
        Else
            Cadre2010()
        End If

Si oui, il y a un problème, il me dit que Cadre2003 n'est pas déclaré....

gatoune78 · Answer

J'ai essayé certains trucs, j'ai enlevé la sauvegarde (qui plantait aussi donc)...

et en fait, en attendant votre réponse, j'avais fait ca :

Dim V
'pour prendre en compte les mises à jour
V = Split(appExcel.Version, ".")
If Val(V(0)) < 14 Then
#if win32 then
Cadre2003()
#end if
Else
Cadre2010()
End If 

j'avais fait ca pour enlever l'erreur selon laquelle Cadre2003 n'est pas déclaré


Mais j'ai remarqué que en fait, ca ne passe pas dans la boucle 
#if win32...

Alors que c'est bien un 32 Bytes...

;-)

lermite222 · Answer

Désolé pour le tâtonnement mais je n'ai pas TES configurations bien évidemment.  
Essaye en..  
Supprimer ces lignes ou les mettre en rem et changer les 2 titres des sub par  MetCadre par exemple, je dis bien la sub Cadre2010 et la sub Cadre2003 à renommer en MetCadre  
Je viens de tester sur VB2010 et ça ça va, le seul problème c'est que je ne suis pas certain de la constante (j'ai pas un 64)  essaye aussi avec Win64 ?
éventuellement inverser les sub  
EDIT : et en remplacement des lignes que tu montre plus haut tu met simplement 
Call MetCadre 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)  
NOTE : Je ne répond pas aux MP pour les questions techniques.

gatoune78 · Answer

J'ai renommée les procédures en MetCadre

et ca me met une erreur HRESULT 0x8002003 sur le poste en 32 bytes 
et aucune erreur sur le mien

dans la procédure
j'ai rajouté un message pour voir si le programme passait dans la boucle
#win32

et je n'ai aucun message sur le poste mais j'en ai un sur le mien...


(j'ai écrit un message pour le if et un autre message pour le else)

cdt

Problème ouverture fichier.xls

27 réponses

Discussions similaires

Newsletters