Discussion :

[letudiant68]

Bonjour, je suis actuellement confronté à un phénomène plutôt étrange :

J'ai créé un classeur Excel lié à une base de données SQL via un lien ODBC.
Ce classeur contient une feuille "Main" permettant de choisir des critères de recherche et un bouton qui génère une feuille rapport (à partir d'une feuille modèle) en fonction des critères choisis par l'utilisateur.

J'utilise donc le classeur normalement, c'est à dire je génère puis supprime manuellement des rapports.
Tout fonctionne correctement pour les 3 premiers rapports cependant au 4ème rapport un bug visuel apparait : je vois la ListBox de ma feuille "Main" apparaitre dans ma feuille rapport. Rien de grave, en changeant d'onglet puis en revenant dans mon onglet rapport la ListBox disparait.
Cependant si je supprime ce 4ème rapport, Excel plante sans aucun message d'erreur, j'ai seulement le droit à un vague "Microsoft Excel for Windows a rencontré un problème et doit fermer. Nous vous prions de nous excuser pour le désagrément encouru."

Je précise que cet évènement se produit toujours au bout du 4ème rapport et ce quel que soit les critères choisi pour générer les rapports.

Plus étrange encore : si je sauvegarde mon classeur juste avant de supprimer le 4ème rapport, que je ferme le classeur puis le ré-ouvre, Excel ne plantera pas à la suppression de la feuille mais le bug réapparaitra si je génère et supprime à nouveau 3 rapports supplémentaires.


Voilà, j'ai essayé d'être clair mais je ne suis pas sûr de m'être bien fait comprendre. En espérant que quelqu'un ait une idée de ce qu'il pourrait se passer dans ce maudit classeur.

[parmi]

Bonjour,

Sans voir de code, c'est difficile de répondre, mais ça pourrait peut-être être causé au niveau de la mémoire utilsée (?)
Si tu crées des connexions, des variables objets ou autres, est-ce que tu t'assures de les supprimer de la mémoire ?

du genre:

Code :

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

Set MonObjet = Nothing

[letudiant68]

Merci pour la réponse, je viens de tester le classeur sur un autre ordinateur plus puissant avec Excel 2010 et je ne rencontre pas le problème.
Pour me connecter à la base de données j'utilise une syntaxe comme celle là :

Code :

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

1
2
3
4
With Feuil3.QueryTables.Add(Connection:= _
        "ODBC;DSN=Mon DSN;UID=utilisateur;PWD=motdepasse;" _
        , Destination:=Feuil3.Range("A1"))
End With

Y a-t-il une variable objet à supprimer dans ce cas là?

[parmi]

Peut-être essayer de faire un Delete avant de passer à une suivante ?

Code :

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

Feuil3.QueryTable.Delete

[letudiant68]

Bonjour, problème résolu !
Merci à parmi pour m'avoir mis sur la bonne voie, il s'agissait bien d'une histoire de mémoire, voici les détails pour ceux que ça intéresse :


Effectivement on peut supprimer l'objet QueryTable juste après que la requête se soit terminée afin de libérer un peu de mémoire (étant donné que je n'ai pas besoin que les données soient actualisées par la suite) cependant cela ne suffit pas à arrêter le bug.

J'ai remarqué que mon rapport se générait un 2 secondes avec mon ordinateur puissant tandis qu'il mettait quasiment 1 minute avec mon vieil ordinateur.
J'ai donc lancé ma macro qui génère les rapports en mode pas à pas sur le vieil ordinateur afin de voir quelle ligne de mon code met le plus de temps à s'exécuter.
Il s'agissait de la ligne

Code :

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

Feuil5.Copy After:=Sheets(Sheets.Count)

où je me sers donc de ma feuille modèle pour en créer une nouvelle qui contiendra le rapport.

Or cette feuille modèle contient 6 graphiques et l'opération de copie semble donc trop lourde pour mon vieil ordinateur. J'ai alors décidé de les supprimer de ma feuille modèle et de les créer après avoir généré ma feuille rapport. Résultat l'opération est beaucoup plus rapide et le bug n'apparait plus.