Discussion :

[spileo]

Bonjour,
j'ai programmé ceci à partir de Microsoft Visual Basic 6.0:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim CATIA As Object
Set CATIA = GetObject(, "CATIA.Application")
Dim appExcel As Excel.Application
Set appExcel = CreateObject("Excel.Application")
Dim wbExcel As Workbook
Set wbExcel = appExcel.Workbooks.Open(CATIA.ActiveDocument.Path & "\NomenclatureCatia.xls")
Dim wsExcel As Worksheet
Set wsExcel = wbExcel.Worksheets(1)
...
wsExcel.Range("A5").Select

Lors de la compilation, tout se passe bien. Quand je lance le programme à partir de l'exécutable, au bout d'un moment windows me dit qu'Excel a rencontré un problème et doit fermer.
La seule erreur que j'ai eu en débogant mon programme se produit quand le compilateur arrive à la ligne wsExcel.Range("A5").Select alors que wsExcel contient effectivement une feuille. Là je ne comprends pas, surtout que lorsque l'erreur se produit, un appui sur F5 résoud le problème. Comme je voulais voir ce que faisait le programme je n'est pas mis la ligne appExcel.Visible = False. Pensez-vous que ça vienne de là? Pensez-vous que l'instruction On error resume next pourrait résoudre le problème?

D'autre part, comment se fait-il que lorsqu'on pilote une application en plus d'Excel depuis Visual Basic (en l'occurence Catia), on soit obligé de rajouter le qualificateur appExcel devant l'instruction "ActiveCell" pour que le compilateur ne renvoie pas d'erreur alors que si Excel est la seule application pilotée ça fonctionne et que l'instruction "ActiveCell" n'est pas un objet existant dans Catia?
Merci.

[SfJ5Rpw8]

il nous manque des éléments pour répondre... mais déjà ..ce que l'on peu dire c'est que dans la plus part des cas tu peu te passer des ActiveCell, Select ... activeSheet.. et que s'en passer permet souvent d'éviter des petits problémes..

[spileo]

Merci pour cette réponse bbil. Je vais enlever les select qui restent dans le source de mon programme. C'est dommage celui que tu voyais me servait à trouver la dernière cellule non vide:

Code :

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

1
2
3
wsExcel.Range("A5").Select
appExcel.Selection.End(xlDown).Select
dL = appExcel.ActiveCell.Row

Toi tu suggère plutôt d'incrémenter un entier représentant la ligne de la cellule et de tester la valeur de la cellule? A+

[SfJ5Rpw8]

Merci pour cette réponse bbil. Je vais enlever les select qui restent dans le source de mon programme. C'est dommage celui que tu voyais me servait à trouver la dernière cellule non vide:

Code :

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

1
2
3
wsExcel.Range("A5").Select
appExcel.Selection.End(xlDown).Select
dL = appExcel.ActiveCell.Row

Toi tu suggère plutôt d'incrémenter un entier représentant la ligne de la cellule et de tester la valeur de la cellule? A+

non plutôt :

Code :

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

 dL = wsExcel.Range("A5").End(xlDown).Row

[spileo]

Merci bbil!
Bon en fait j'ai enlevé tous les select et tous les activesheet et autres que j'ai pu trouver et j'ai réécris le code plus proprement, en utilisant ça notamment

Code :

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

 dL = wsExcel.Range("A5").End(xlDown).Row

Effectivement ça se passe nettement mieux.
En fait je les avais mis parce que je n'ai pas écrit mon programme en un jour. Je l'ai découpé en plusieurs projets (qui ne contenaient pratiquement pas de activesheet...) puis j'ai fait du copier coller de code pour tout rassembler dans un module et dans une form. C'est quand j'ai tout rassemblé que ça a commencé à planter, les select ne fonctionnaient plus... Alors j'ai mis les activesheet pour faire fonctionner les select et là ça s'est remis à fonctionner mais que sur mon pc.
Bref la partie principale du programme fonctionne mais il y a aussi une sous fonction qui sert à faire de la mise en page et là le select ça ne marche pas.
Je vais voir s'il n'y a pas un moyen d'éviter d'écrire ce genre de truc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
wsExceliFe.Cells(LSTotal, 1).Select
With appExcel.Selection.Font
 .Name = "Arial"
 .FontStyle = "Normal"
 .Size = 14
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
End With

Merci encore. à+

[SfJ5Rpw8]

même principe :

Code :

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

1
2
3
4
5
 
 
With wsExceliFe.Cells(LSTotal, 1).Font
 .Name = "Arial"
...