Pb de pilotage Excel

Version imprimable

28/09/2006, 22h38
Pascal Lob

Pb de pilotage Excel

Bonjour,
J'ai créé une appli VB qui génére un fichier Excel. Sur mon Pc ça marche très bien, mais quand j'installe l'appli chez un ami, ça plante complétement.

Je n'ai pas eu la présence d'esprit de noter le message d'erreur.

Je travaille avec Excel 2003 et j'utilise Microsoft Excel 11.0 Object Library.
Mon pote utilise Excel 2000.

Qui peut m'aider ?
29/09/2006, 07h53
SfJ5Rpw8

Citation:

Envoyé par Pascal Lob

...
Qui peut m'aider ?

ton pote en nous donnant le message d'erreur et la ligne concernée..
29/09/2006, 15h30
Pascal Lob

Le message d'erreur complet est.

P0608028 V101.exe a rencontré un problème et doit fermer. Nous vous prions de nous excuser pour le désagrément encouru.

Si vous étiez en train d'effectuer un travail en cours, les informations sur lequelles ......

Puis il me demande si je veux signaler le pb à Microsoft.

Aucun Numéro d'erreur, rien d'autre.
29/09/2006, 19h57
ThierryAIM

Citation:

Envoyé par Pascal Lob

P0608028 V101.exe a rencontré un problème et doit fermer. Nous vous prions de nous excuser pour le désagrément encouru.

Pas bon, ça :?

tu peux mettre ta source en pièce-jointe, stp, car là, c'est impossible de t'aider !

Voilà :

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
'Ouvre le classeur Excel
On Error GoTo PbAppli
Set App_xls = CreateObject("Excel.Application") 'Ouvre Excel
On Error GoTo PbFic
Set Classeur_xls = App_xls.Workbooks.Open(Rapport_str)
Set Page_xls = Classeur_xls.Worksheets.Add
'Entête de la page
Lec_int = 1
Page_xls.Cells(Lec_int, 1) = "Déclaration pour l'anné " & AnRef_lst.Text
Page_xls.Range("A1").Font.Bold = True
 
'Lecture des demandeurs
Req_str = "SELECT decl.IdDeclaration, dem.nom, dem.prenom, dem.adresse1, dem.adresse2, dem.cp, comm.nom " _
<div style="margin-left:40px">& "FROM  declaration decl, demandeur dem, commune comm " _</div><div style="margin-left:40px">& "WHERE decl.demandeur = dem.demandeur AND dem.ville = comm.code " _</div><div style="margin-left:40px">& "AND AnDeclaration = '" & AnRef_lst.Text & "' " _</div><div style="margin-left:40px">& "ORDER BY dem.nom, dem.prenom"</div>RecSet.Open Req_str, FDC_cnx, adOpenForwardOnly, adLockReadOnly
Do While Not RecSet.EOF
<div style="margin-left:40px">Lec_int = Lec_int + 1</div>Page_xls.Cells(Lec_int, 1) = "Demandeur :"
<div style="margin-left:40px">Page_xls.Range("A" & Lec_int).Font.Bold = True</div><div style="margin-left:40px">Page_xls.Cells(Lec_int, 1) = RecSet.Fields("dem.nom") & " " & RecSet.Fields("prenom") _</div><div style="margin-left:40px"><div style="margin-left:40px">& " " & RecSet.Fields("adresse1") & " " & RecSet.Fields("adresse2") & " " & RecSet.Fields("cp") _</div></div>& " " & RecSet.Fields("comm.nom")
<div style="margin-left:40px">RecSet.MoveNext</div>Loop
RecSet.Close
 
Classeur_xls.Save
Classeur_xls.Close
Set Page_xls = Nothing
Set Classeur_xls = Nothing
Set App_xls = Nothing