Discussion :

[argv666]

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]

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]

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]

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]

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

[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