[VBA-Excel] Erreur automation

Version imprimable

Voir 40 message(s) de cette discussion en une page

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....

Voir 40 message(s) de cette discussion en une page