[VBA-Excel] Erreur automation

**argv666** · 18/09/2006, 09h31

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 :

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

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.

**SfJ5Rpw8** · 18/09/2006, 09h43

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

Code :

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

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

**argv666** · 18/09/2006, 10h04

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 ?

**ouskel'n'or** · 18/09/2006, 10h11

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 ?

**ouskel'n'or** · 18/09/2006, 10h14

PS - Si c'est à la fermeture, ajoute un "DoEvents" entre l'enregistrement et ta ligne "...Close..."

**argv666** · 18/09/2006, 10h19

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

**ouskel'n'or** · 18/09/2006, 10h20

Code :

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

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

**SfJ5Rpw8** · 18/09/2006, 10h26

desolé j'ai glissé sur le clavier un s de trop :

Code :

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

1
2
dim wk as workbooks

il faut lire (je vais corriger mon précédent post)

Code :

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

1
2
3
 
 
dim wk as workbook

**argv666** · 18/09/2006, 10h28

oui j'avais vu pour le "s"

Voici ce que j'ai rajouter :

Code :

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

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 ?

**SfJ5Rpw8** · 18/09/2006, 10h30

et ils sont ou les wk ?

**argv666** · 18/09/2006, 10h32

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

**argv666** · 18/09/2006, 10h40

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

Code :

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

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.

**ouskel'n'or** · 18/09/2006, 10h49

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 :

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

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

**argv666** · 18/09/2006, 10h58

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 ?

**ouskel'n'or** · 18/09/2006, 11h22

Comme je ne vois pas

essaie de déplacer la ligne

xlapp.Visible = True

en mettant

Code :

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

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.

**argv666** · 18/09/2006, 11h44

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

**AlainTech** · 18/09/2006, 12h11

Envoyé par argv666

Code :

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

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?

**argv666** · 18/09/2006, 12h37

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

**AlainTech** · 18/09/2006, 12h44

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

Pourquoi rouvir ce qui est déjà ouvert?

**argv666** · 18/09/2006, 12h58

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

[VBA-Excel] Erreur automation

Macros et VBA Excel

Discussions similaires

Partager

Partager