sunry
Messages postés3Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention22 décembre 2007
-
20 déc. 2007 à 00:17
sunry
Messages postés3Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention22 décembre 2007
-
22 déc. 2007 à 19:25
Bonjour,
Je cherche à exporter des données d'une base de données vers un fichier excel faisant office de rapport. Pour éviter trop de manipulations lors du traitement pour la mise en forme, j'ai créé un "template" qui est ouvert en lecture seule, les données sont exportées, puis le pointeur excel créé avec set est libéré, ce qui laisse le choix à l'utilisateur de l'imprimer par exemple ou l'enrregistrer sous un autre nom. Jusque là ok. Mon problème est que pour lancer deux fois de suite la routine avec différents paramètres par exemple, je suis obligé de fermer l'appli vb et la rouvrir pour relancer la routine d'export xls. En effet, la première fois cela fonctionne sans problème, la deuxième fois dés que je cherche à modifier qqch, il refuse (que ce soit un insert, modifier une police ou mettre en gras).
Je ne vois plus trop comment faire, le flag "Faire confiance au projets VB" ne saute même pas.
Pouvez-vous m'aider ?
Copie du code ouvrant le fichier "template" xls :
Tout le code qui gère ce transfert est dans un module. J'ai dû créé xls comme variable globale au module car je l'utilise partout dans ce module (une fonction qui ouvre le fichier, une qui traite les données, une qui supervise tout, une qui libère la mémoire, etc...)
Option Explicit
Private xls As Excel.Application
Private Function fp_OpenXLS(szFile As String) As Boolean