HELP = VB6 / Excel : Déploiement & Compatibilité !!!!

Question

INTRODUCTION :
---------------------


 


Salut &#224; tous, 


 


je suis en charge de maintenir un executable Visual Basic (developp&#233; sous VB 6)  qui pilote des classeurs Excel via la Microsoft Excel Object Library 8.0 (excel 97). Celui-ci utilise simplement des fichiers .txt comme data d'entr&#233;e et l'executable parse celui ci et met en forme les diverses feuilles d'excel r&#233;sultante et insere les donn&#233;es du fichier (graphique compris)... jusque l&#224; tout va bien.


 


J'avais d&#233;j&#224; rencontr&#233; des probl&#232;mes de compatibilit&#233; entre les diverses versions d'Excel avec un autre executable du m&#234;me genre (son code sert d'ailleurs de base sur le nouvel executable) et cel&#224; venait de la version de l'OLB d'EXCEL utilis&#233; lors de la compilation (onglet "references" dans VB6). J'avais donc compil&#233; en version EXCEL8 pour "assurer" la compatibilit&#233; ascendante vers les autres versions d'office et ca fonctionnait pour cet executable.... mais pas pour le nouveau !!! Je n'arrive pas a faire fonctionner mon executable (compil&#233; avec Excel8) sous excel 97 / wind XP sp2 ou encore excel 2000 / win 2000... Par contre avec XP SP2 et office 2000 ou encore 2003 ca marche !!!!


 


             
MA QUESTION : 
-------------------


 


Comment cr&#233;er un executable (compil&#233; sous VB6) qui est capable de piloter toutes les versions d'EXCEL et qui ne soit pas d&#233;pendant de la version de Windows. 


 


Les contraintes de compatibilit&#233; : toutes les versions d'EXCEL (depuis 97 &#224; aujourd'hui)
                                                 tous les windows (depuis 98 &#224; maintenant y compris NT)


 


J'ai bien utilis&#233; " l'assistant d'empaquetage et d&#233;ploiement " fourni avec VB6 mais rien n'y fait ... CA NE MARCHE PAS !!!


 


Avez vous une solution concrete &#224; me donner ? 


 


Je ne sais plus quoi faire ET je d&#233;sepere !! 


 


Merci d'avance pour vos r&#233;ponses. 

LibiMarion

PCPT · Answer

salut,
le meilleur moyen de ne jamais &#234;tre emmer*** par les versions est de ne pas appeler leurs contr&#244;les correpondant.

c'est plus contraignant, souvent plus de lignes &#224; taper, etc... mais &#231;&#224; permet, la plupart du temp, beaucoup plus de libert&#233;s!

exemple, d&#233;clarer la variable en objet, et l'instancier en application
Set ExlObj = CreateObject("Excel.Application")

pas besoin de r&#233;f&#233;rencer d'objet excel. j'ai toujours fait comme &#231;&#224;, il y a sans doute d'autres mani&#232;res telles que tester la version et faire le code pour chaque (), mais celle-ci me semble une des meilleures.

PCPT  [AFCK]

LibiMarion · Answer

Un apercu rapide de mon programme (920 lignes, je tronque bien sur et tu remarquera que j'avais d&#233;j&#224; fait comme tu le pense) :

Public MyExcel As Excel.Application
Public MyWorkbook As Excel.Workbook
Public MySheet_Plg As Excel.Worksheet
Public MyRange As Excel.Range

Set MyExcel = CreateObject("Excel.Application")


'on cr&#233;e un nouveau classeur
Set MyWorkbook = MyExcel.Workbooks.Add


'on efface les feuilles excel au cas o&#249;
For i = 1 To MyWorkbook.Sheets.Count - 1
    MyExcel.DisplayAlerts = False
    MyExcel.Sheets(i).Delete
    MyExcel.DisplayAlerts = True
Next i

'on donne un nom &#224; la feuille
MyWorkbook.Sheets(1).Name = recuperer_traduction(fichier_trad, 5)
Set MySheet_Plg = MyWorkbook.Worksheets(1)

........

' Mise en page
   Worksheets("Planning").Cells(2, 1).Value = recuperer_traduction(fichier_trad, 1)
    MySheet_Plg.Columns(1).ColumnWidth = 35
    MySheet_Plg.Columns(2).ColumnWidth = 7.57
    Range(Cells(4, 1), Cells(nbligne, 1)).HorizontalAlignment = xlRight
    Range(Cells(1, 1), Cells(3, 1)).HorizontalAlignment = xlLeft
    MySheet_Plg.Cells(2, 1).Font.Bold = True
    Worksheets("Planning").Cells(1, 2).Value = nom_sem(mindate)
    MySheet_Plg.Cells(1, 2).HorizontalAlignment = xlCenter
    Worksheets("Planning").Cells(2, 2).Value = mindate
    Range(Cells(2, 2), Cells(2, 2)).Style.IncludeNumber = True
    Range(Cells(2, 2), Cells(2, 2)).NumberFormat = "dd-mmm"
    
......

'on sauvegarde
    On Error Resume Next
    MyExcel.Workbooks.Item(1).SaveAs (fich3)
    If Err.Number = 1004 Then
        Call attribuer_titre(fich3)
    Else
        Call Class_Terminate
    End If
   
    MyExcel.WindowState = xlMaximized
    
    'on rend la feuille visible
    MyExcel.Visible = True

.....

Il faut absolument que je trouve une alternative. Ce matin apr&#232;s Update d'office 97, le programme semble fonctionner sous Win XP SP2 / Office 97... En revanche, il ne marche pas sur un Win 2000 / Office 2000 (certes non &#224; jour)... 

Une solution g&#233;n&#233;rique autre que celle que tu m'a donn&#233; ? De quoi peut venir ce porbl&#232;me sur l'autre poste en 2000... alors que le m&#234;me exec avec les m&#234;mes data d'entr&#233;e fonctionne en office 97 ?????? 

Erreur 9 : Indice en dehors de la plage : Connerie ouai jamais eu ce message sur l'autre poste !!!

PCPT · Answer

indice peut &#234;tre celui de la colonne, qui peut &#234;tre index&#233;e &#224; 0 ou 1 &#224; la place de .... l'inverse selon la version d'excel

LibiMarion · Answer

Dites moi que c'est pas vrai !!!! Tu pense r&#233;ellement que d'une version &#224; l'autre l'indice des colonnes peut varier ? Dans ce cas je fais koi moi, je fais un CASE sur la version et je pars de 0 ou 1 selon la version ? Faudrai t il encore savoir quelle version comme &#224; 0 et l'autre &#224; 1 !!!

Sinon je sais r&#233;cuperer dans les registres de windows la version d'Excel qui est employ&#233;e sur le poste, je peut donc tester mais faut savoir koi avant !

Pur&#233;e mais Bilou il a craqu&#233; avec ces divergences dans les versions d'office !!!!!

PCPT · Answer

j'ai dit peut-&#234;tre, c'est &#224; tester (ou &#224; se renseigner sur "copain google").
~peut-&#234;tre~ aussi peut-on r&#233;cup&#233;rer le libell&#233; de la colonne au lieu de l'indice.....
ou alors, si excel n'est pas directement en jeu, d'apr&#232;s ton extrait de code, l'erreur pourrait aussi venir de ta boucle for
(genre MyExcel.Sheets(i) pour valeur de i n'existant pas), soit m&#234;me de ta fonction recuperer_traduction, 5 &#233;tant peut-&#234;tre un indice de tableau (donc variable) n'existant pas....
PCPT    [AFCK]

LibiMarion · Answer

Ah ouai aussi pas mal le truc de la d&#233;finition de la mise en page qui marche pas si tu n'a aucune imprimante install&#233;e mon code est le suivant :

' Mise en page
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.393700787401575)
        .RightMargin = Application.InchesToPoints(0.393700787401575)
        .TopMargin = Application.InchesToPoints(0.590551181102362)
        .BottomMargin = Application.InchesToPoints(0.590551181102362)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

Youpi faudrait en plus g&#233;rer ce genre de probl&#232;me COOL !! La je suis aux anges .... merci Crosoft. Tu connais le moyen via VB de tester si au moins une imprimante est install&#233;e ?

Et sinon pour la fonction recuperer_traduction c'est des indices connu pour r&#233;cuperer le contenu appropri&#233; de l'entete de colonnes (traduit dans la langues du user).

Je vais voir &#224; t&#234;te repos&#233;e la gestion des indices dans ce programme (qui n'est pas le mien je le rappelle, sans ca tout serait verrouill&#233; ! Point trop n'en faut disais l'autre).

Si tu as une soluc pour l'histoire de l'imprimante afin d'eviter l'erreur : la methode de l'objet pagesetup &#224; echou&#233;....

PCPT · Answer

re, proprement, pour l'imprimante, normalement tu peux les compter ainsi : Option Explicit ' ' Private Sub Form_Load() Dim Cpt As Long, ObjPrint As Printer Cpt = 0 For Each ObjPrint In Printers Cpt = Cpt + 1 Next If Cpt > 0 Then 'ta vraie fonction MsgBox "imprimante trouvée!!! ", 32 End If 'sous entendu ici \/ 'ELSE ' MSGBOX "pas de bol !!!",32 'ENDIF Unload Me '<- pour l'exemple^^ End Sub Coloration syntaxique automatique [AFCK] bon courage PCPT [AFCK]

LibiMarion · Answer

Merci pour ton bout de code, je passe d&#233;sormais le probl&#232;me li&#233; &#224; l'objet pagesetup : Nickel et je pr&#233;viens l'utilisateur par la m&#234;me occasion => 2 en 1...
 
Sinon j'ai recr&#233;e hier soir depuis mon poste (Win XP SP2 + Office 97 SR2 ) mon exe VB et retester sur le poste en win 2000 et office 2000 : ca &#224; l'air de fonctionner... enfin !

Autre chose, je cherche un moyen pour verifier l'ensemble des compatibilit&#233;s de l'exe pour :

les OS  : Windows 98, 2000, XP (avec et sans SP) 
les offices : 97 &#224; 2003

sur un m&#234;me poste. J'ai entendu parler d'un logiciel d'emulation PC comme VMWARE... qui pourrait (au conditionnel) me permettre d'effectuer l'ensemble des tests et valider l'ensemble des configurations ....

Tu pense que c'est le meilleur moyen ou il y une autre possibilit&#233; ?

PCPT · Answer

si tu avais fait toi-m&#234;me l'&#233;mulateur, tu conna&#238;trais (au conditionnel &#233;galement) son fonctionnement.
&#233;muler, c'est bien beau, mais est-ce que les r&#233;sultats seraient r&#233;ellement fiables....
perso je n'aurais pas confiance. les Beta, &#231;&#224; sert &#224; &#231;&#224;.
tu ne peux pas t'amuser &#224; cr&#233;er toutes les possibilit&#233;s de configs.
tu peux d&#233;grossir en fournissant l'exe + base sur VbF (topic testez svp...... DL ftp ici), et pour le reste, c'est selon les retours de tes clients.
j'vois &#231;&#224; comme &#231;&#224; du moins 
PCPT    [AFCK]

LibiMarion · Answer

Sans perdre mon courage, j'ai install&#233; VMWARE workstation 4.5 et cr&#233;e pour le moment 2 configs de mon pc sous WIN XP et Win 2000 Pro. Chacune de ces bases &#224; &#233;t&#233; d&#233;clin&#233; pour le moment en office 2000 et 2003, soit 4 configs diff&#233;rentes.

En faisant mes tests j'ai rencontr&#233; l'erreur suivante : VB6FR.dll introuvable ! Ok, je cherche cette dll sur google et je tombe sur ca : http://www.vbfrance.com/codes/SUPPRIMER-LES-REFERENCES-AUX-DLL-VB6FR-VB5FR/33592.aspx qui permet d'appeller directement le runtime Visual Basic 6 () natif de l'OS sans passer par cette DLL (install&#233;e avec MS Visual Basic 6 et qui au passage ne fait qu'appeller le runtime VB6 et ressortir les messages d'erreurs li&#233; &#224; l'execution en francais)...

Je passe mon premier et deuxieme programme dans cette petite moulinette, et en avant gimgamp !!! Et bien s&#251;r ca fonctionne nickel (faudra quand que je teste sur windows server 2003 : voir cette breve http://support.microsoft.com/default.aspx?scid=kb;en-us;823746 car la version de Msvbvm60.dll &#224; chang&#233; => J'ai donc t&#233;l&#233;charg&#233; le runtime VB6 au cas o&#249; mon programme explose sur une configuration en Win 2003. 

Voil&#224;, j'ai appris pas mal de chose en 1 semaine sur VB, les r&#233;f&#233;rences et les probl&#232;mes de compatibilit&#233;s entre OS... et je m'en sors plut&#244;t bien de ce c&#244;t&#233; l&#224; !!! 

Merci &#224; toi &#224; tout cas pour tes precieux conseils et tes morceaux de codes qui me permettent de contourner certains soucis... Eh eh mon chef &#224; eu l'ennui ce matin pour l'histoire de pas d'imprimante sur le PC : je lui dis alors t'inquiete pas je g&#232;re j'ai la soluc ! Illico presto exe remplac&#233;, probl&#232;me contourn&#233;, fichier excel g&#233;n&#233;r&#233; et mon chef enjou&#233; 

A bientot pour de futurs demandes de conseils

PCPT · Answer

alors tout va bien dans le meilleur des mondes
attention!!! la VM (vb6.....dll) sera fournie lors de ton Package (&#224; faire bien s&#251;r).
donc ne pas confondre une config neuve (donc sans runtime puisque pas VB) et la supression des r&#233;f&#233;rences pour la compatibilit&#233;s des projets VB5/VB6
bonne continuation @+
PCPT    [AFCK]

HELP => VB6 / Excel : Déploiement & Compatibilité !!!!

11 réponses

Discussions similaires