Bonjour à tous,
Je suis confrontée a un problème que je n'arrive pas à résoudre.
Voici le contexte.
Une fonction en VBA a été implémentée sous access. Cette fonction est reliée à un fichier excel. Cette fonction calcule pour chaque personne présente dans la base de données un montant propre à chaque personne.
A chaque fois que je fais une extraction de la base de donnée la fonction va calculer ce montant.
Je dois donc ouvrire et fermer le fichier excel à chaque fois. Le programme a l'aire de fonctionner pour 2 à 3 personnes et ensuite il s'arrête.
Je suspecte un problème entre la connextion du fichierexcel et la fonction lorsque je quitte le fichier excel.
Voici le code que j'ai dans ma fonction:
Dim ExcelPourX As New Excel.Application
Public Function X(.......)
....
Set ExcelPourX = CreateObject("excel.Application")
ExcelPourX.visible = True
ExcelPourX.Workbooks.Open (".......xlsx")
ExcelPourX.ActiveWorkbook.RefreshAll
.....
Call ExcelPourX.ActiveWorkbook.Close(True)
ExcelPourX.Application.Quit
Set ExcelPourX = Nothing
Exit Function
End function
Avez-vous une idée de pourquoi sa bloque?
D'avance je vous remercie.
Partager