Discussion :

[mouaa]

Bonjour, j'ai un souci:

à partir d'access, je fais des générations de fichiers Excel.
Suivant les cases qui sont cochées sur le formulaire de génération, Access va générer 1 ou plusieurs fichiers d'affilée.
après la génération de chacun des fichiers, je remets la largeur des colonnes en place.

et c'est là que se pose mon problème.
Voilà 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
Function LargeurColonnes(Chemin As String)
'ouvrir le fichier excel
Set oapp = CreateObject("Excel.Application")
Set oClasseur = oapp.Workbooks.Open(Chemin)
'Sélectionne la première feuille
Set oFeuille = oClasseur.Worksheets(1)
oapp.Visible = False
'Parcours les cellules de la première ligne
i = 1
While oFeuille.Cells(1, i).Value <> ""
Set oCell = oFeuille.Cells(1, i)
i = i + 1
'Ajuster la taille des colonnes au texte
oCell.EntireColumn.AutoFit
Wend
ActiveWorkbook.Close savechanges:=True
oapp.Quit
Set oapp = Nothing
Set oClasseur = Nothing
End Function

Lorsque je veux générer lpusieurs fichiers Excel d'un coup, au premier fichier créé et mis en forme, tout va bien.
mais lorsque j'arrive au 2e, Access ne veut pas de mon "ActiveWorkbook.Close savechanges:=True".

"Variable objet ou variable de bloc With non définie"

Pourtant la 1e fois ça marche... comprends po

[mouaa]

Rectification, pour un export tout seul ça ne marche pas non plus

[mouaa]

Ayé j'ai trouvé !

pour info, voilà la solution:
j'ai remplacé

Code :

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

1
2
3
4
ActiveWorkbook.Close savechanges:=True 
'par
oClasseur.Save
oClasseur.Close

je ne vois pas trop la différence, mais au moins ça fonctionne