Fermer Excel à partir d'excel: fonctionne une fois sur 2 !
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:
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
