[VBA-Excel] Erreur automation

Version imprimable

Bonjour à tous,

J'ai un programme VBA (à partir de BusinessObjects) qui ouvre un fichier excel, fait des traitements sur les cellules (juste de la présentation) et je le referme.
Mon pb est lorsque je referme l'application, il m'affiche une erreur d'execution du type '1'. Erreur automation. Le serveur a généré une exception.
Voici mon 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
 
Sub Export_Excel()
    Dim xlFicName As String
 
    Application.Interactive = False
 
    ' Sauvegarde en XLS
    xlFicName = ThisDocument.Path + "\" + ThisDocument.Name + ".xls"
    ThisDocument.SaveAs xlFicName
 
    ' Ouverture fichier
    Set xlapp = New Excel.Application
    xlapp.Workbooks.Open xlFicName
 
    ' Formatage des restitutions
    xlapp.Sheets(1).Select
    RotationTexte 1, 6, 180
    'FormatCentreDroit 1, "B11:F11"
    GroupementVertical 1, 6
    RéduireTailleTableau 1
    ElargirColones 1, "A:AF", 5
    xlapp.Windows(1).DisplayGridlines = False
 
    ' Formatage des restitutions
    xlapp.Sheets(2).Select
    RotationTexte 2, 8, 180
    'FormatCentreDroit 1, "B11:F11"
    GroupementVertical 2, 8
    RéduireTailleTableau 2
    ElargirColones 2, "A:AF", 5
    xlapp.Windows(1).DisplayGridlines = False
 
    xlapp.ActiveWorkbook.Save
    xlapp.Visible = True
 
    xlapp.ActiveWorkbook.Close
    xlapp.Quit
    Set xlapp = Nothing
 
End Sub

L'erreur se trouve au niveau de la ligne : xlapp.ActiveWorkbook.Close
Merci pour votre aide.

:help:

evite d'utiliser les active...workbook ou autre..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
dim wk as workbook
set wk =  xlapp.Workbooks.Open xlFicName
 
' Remplace ensuite tes activeWorbook par wk
'
'
..
''  xlapp.ActiveWorkbook.Save 
'deviens :
wk.save 
 
...
 
 
'pour finir 
set  wk =nothing

18/09/2006, 10h04
argv666

cela ne fonctionne pas,
lorsque j'execute, une erreur se produit sur "Set wk = xlapp.Workbooks.Open(xlFicName)". il me dit incompatibilité de type.
une idée ?
18/09/2006, 10h11
ouskel'n'or

Hello,
Tu dis "Mon pb est lorsque je referme l'application, il m'affiche une erreur d'execution du type '1'. Erreur automation."
Ton erreur est-elle au moment de la fermeture ou de l'enregistrement ?
18/09/2006, 10h14
ouskel'n'or

PS - Si c'est à la fermeture, ajoute un "DoEvents" entre l'enregistrement et ta ligne "...Close..."
18/09/2006, 10h19
argv666

bbil, j'ai le même pb avec ta solution...
ouskel'n'or, j'ai une pb lors de la fermeture du fichier Excel.
Quel "doevent" doisje rajouter ? je ne comprend pas bien...
Merci

Code:

1
2
3
4
5
6
    xlapp.ActiveWorkbook.Save
    xlapp.Visible = True
    DoEvents 'Regarde dans l'aide à quoi ça sert 
    xlapp.ActiveWorkbook.Close
    xlapp.Quit
    Set xlapp = Nothing

18/09/2006, 10h26
SfJ5Rpw8
desolé j'ai glissé sur le clavier un s de trop :
Code:

1 2 dim wk as workbooks
il faut lire (je vais corriger mon précédent post)
Code:

1 2 3 dim wk as workbook

oui j'avais vu pour le "s"

Voici ce que j'ai rajouter :
Code:

1 2 3 4 5 6 7 8 xlapp.ActiveWorkbook.Save xlapp.Visible = True MsgBox DoEvents xlapp.ActiveWorkbook.Close xlapp.Quit Set xlapp = Nothing
Le msgbox m'affiche "0", ce n'est pas normal, n'est ce pas ?

18/09/2006, 10h30
SfJ5Rpw8

et ils sont ou les wk ?
18/09/2006, 10h32
argv666

je les ai enlever, vu que j'avais le meme pb .....

en rajoutant les "wk", j'ai la meme erreur automation

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
 
Sub Export_Excel()
    Dim xlFicName As String
    Dim wk As Workbook
 
    Application.Interactive = False
 
    ' Sauvegarde en XLS
    xlFicName = ThisDocument.Path + "\" + ThisDocument.Name + ".xls"
    ThisDocument.SaveAs xlFicName
 
    ' Ouverture fichier
    Set xlapp = New Excel.Application
    Set wk = xlapp.Workbooks.Open(xlFicName)
 
    ' Formatage des restitutions
    xlapp.Sheets(1).Select
    RotationTexte 1, 6, 180
    GroupementVertical 1, 6
    RéduireTailleTableau 1
    ElargirColones 1, "A:AF", 5
    xlapp.Windows(1).DisplayGridlines = False
 
    ' Formatage des restitutions
    xlapp.Sheets(2).Select
    RotationTexte 2, 8, 180
    GroupementVertical 2, 8
    RéduireTailleTableau 2
    ElargirColones 2, "A:AF", 5
    xlapp.Windows(1).DisplayGridlines = False
 
    wk.Save
 
    xlapp.Visible = True
    MsgBox DoEvents
    wk.Close
    xlapp.Quit
    Set xlapp = Nothing
    Set wk = Nothing
 
End Sub

j'ai tjs 0 lors du msg, et l'erreur lors de la cloture.

:help:

18/09/2006, 10h49
ouskel'n'or
Où as-tu vu que j'avais mis "msgbox DoEvents"
Tiens, pendant que tu y es, mets en un aussi entre "Close" et "quit"
Code:

1 2 3 4 5 6 7 xlapp.Visible = True DoEvents wk.Close DoEvents xlapp.Quit Set xlapp = Nothing Set wk = Nothing
Et regarde l'aide à DoEvents ;)
Tu dis
18/09/2006, 10h58
argv666

je voulais juste voir ce que retournait la fonction.
Meme en mettant cette fonction 'doevents' avant le close et le quit, ca bug..
D'ailleurs, il ne passe pas au deuxieme 'doevents' car il bug au close.

Pourquoi il ne veut pas fermer ? c bizzare, non ?
18/09/2006, 11h22
ouskel'n'or
Comme je ne vois pas :( essaie de déplacer la ligne

Citation:

xlapp.Visible = True

en mettant
Code:

1 2 3 4 5 6 7 xlapp.ActiveWorkbook.Save DoEvents xlapp.ActiveWorkbook.Close xlapp.Visible = True DoEvents xlapp.Quit Set xlapp = Nothing
Mon raisonnement ? Tu traites "l'application" avant de tenter la fermeture du fichier. Est-on sûr que le fichier soit "actif" quand tu veux le fermer ?

A défaut d'une autre proposition, essayer celle-ci ne coûte rien... :(
Désolé, je n'ai rien de mieux.
18/09/2006, 11h44
argv666

non cela ne fonctionne pas non plus....
est ce qie le pb pourait venir d'ailleurs ? Genre fichier corrompu ou autres ?
merci

:scarymov:

Citation:
Envoyé par argv666
Code:

1 2 3 4 5 6 7 ' Sauvegarde en XLS xlFicName = ThisDocument.Path + "\" + ThisDocument.Name + ".xls" ThisDocument.SaveAs xlFicName ' Ouverture fichier Set xlapp = New Excel.Application Set wk = xlapp.Workbooks.Open(xlFicName)
Ce qui me tracasse, c'est que tu sauves un fichier (dans un autre format que l'origine), puis que tu rouvres le même fichier (dans une nouvelle instance d'Excel).
Pourquoi fais-tu une nouvelle ouverture de ce fichier qui est déjà présent en mémoire?

18/09/2006, 12h37
argv666

En fait, je travaille sur BusinessObjects et le VBA.
J'enregistre le fichier BO en version Excel.
Puis je recupere ce fichier pour traitements. Ces traitements sont juste des traitements de presentation.
Donc ma "source" n'est pas un fichier excel mais BO
Voila pq ....
18/09/2006, 12h44
AlainTech

Ta réponse n'enlève rien à ma question.

Pourquoi rouvir ce qui est déjà ouvert?
18/09/2006, 12h58
argv666

Lorsque j'enregistre sous Excel mon fichier BO, Excel n'est pas "ouvert".
J'ai regardé dans le gestionnaire des taches, et Excel n'y est pas.
Donc j'ouvre une appli du type Excel par la suite
voila pq....
18/09/2006, 13h16
AlainTech

Je te conseille donc de "fermer" toute référence au fichier en question dans BO avant de l'ouvrir en Excel.

Je pense vraiment que ton problème vient de cette double ouverture.
18/09/2006, 13h44
argv666

il n'y a aucune reference à excel.
J'enregistre un fichier "au format" excel.
De plus, je ne dois pas utiliser vba et excel.

:arf:
18/09/2006, 13h47
AlainTech

Citation:

Envoyé par AlainTech

Je te conseille donc de "fermer" toute référence au fichier en question dans BO avant de l'ouvrir en Excel.

bon j'ai reporter la fermeture de l'application excel dans une procedure à part :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub FermeExcel() Dim test As Boolean test = True If Not (xlapp Is Nothing) And test Then test = False DoEvents xlapp.ActiveWorkbook.Close xlapp.Quit Set xlapp = Nothing End If End Sub
Lorsque j'excute pas à pas cette procedure, le curseur passe dans la condtion "if", arrive à "xlapp.ActiveWorkbook.Close", l'execute et repasse tout de suite sur "If Not (xlapp Is Nothing) And test Then" et ne prend pas en compte le booleen "test" donc repasse dans la condition et plante.

Est ce que ca parle à qq'1 ?
(j'ai un autre fichier qui fonctionne bien avec cette procedure )...

18/09/2006, 14h02
AlainTech

Pourquoi reparles-tu d'Excel?

Je te parle de fermer ThisDocument dans BO avant de vouloir le rouvrir dans une instance Excel.
18/09/2006, 14h33
argv666

Si je ferme thisdocument, je ferme le rapport BO en entier et le script VBA ne peut plus continuer (car VBA est au "niveau" de BO et non pas d'Excel).

Je ne peut pas ouvrir excel et lancer la macro. Tout doit se faire dans BO.
18/09/2006, 14h59
AlainTech

Ne peux-tu faire l'essai en ayant ta macro en dehors du document que tu traites?

Je reste convaincu (peut-être à tort, je peux l'accepter) que l'ouverture, dans une instance d'Excel, du fichier en cours dans BO est à l'origine de ce problème.

Citation:

Envoyé par argv666

Je ne peut pas ouvrir excel et lancer la macro. Tout doit se faire dans BO.

Je ne t'ai jamais proposé de faire ça.
18/09/2006, 19h03
ouskel'n'or

Hello Alain,
Sous BO, il est possible d'enregistrer un fichier en format Texte ou en format Excel... tcété-rats
Quand tu enregistres un fichier sous un autre format, le fichier actif demeure le fichier BO. C'est pourquoi il est nécessaire d'ouvrir Excel, puis le fichier sauvegardé avant de travailler dedans.
Juste pour éclairer la situation ;)

NB - Il y a un forum BO sur DVP...