Macro qui plante excel si je déplace mon fichier hors du bureau

Résolu
ouic01 Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -  
ouic01 Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un fichier excel avec macros qui fonctionne correctement lorsque le fichier est stocké sur le bureau.
Or, dès que je déplace mon fichier à un autre emplacement, la même macro qui fonctionnait sur le bureau fait maintenant planter excel, sans aucun message d'erreur.
Si je replace le fichier sur le bureau, la macro refonctionne à nouveau correctement...

Seule ma macro "consultation" fait planter le fichier déplacé. Les autres macros sont OK.
Lien de téléchargement du classeur : http://www.ureal.fr/download/excel/test.xlsm

Avez-vous déjà rencontré ce problème ?
Quelles peuvent-en être les raisons ?

Toute aide est la bienvenue.
Merci.
A voir également:

2 réponses

Réponse 1 / 2
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Je ne parviens pas à reproduire le plantage .....
Aucun souci en ce qui me concerne.. quelque soit l'emplacement du fichier...

Je serai toi, je placerai un point d'arrêt dans la macro puis je l'exécuterai en mode pas à pas pour essayer de voir à quel endroit il plante.

1
ouic01 Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   14
 
je m'y colle
0
Réponse 2 / 2
ouic01 Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   14
 
Après exécution du mode pas à pas, aucun bug n'est survenu. Mais lorsque j'ai réexécuté la macro en mode normal, le bug survient à nouveau.

Je pense avoir trouvé une solution alternative qui semble fonctionner :
En réenregistrant mon fichier à l'ouverture, le bug disparait.

Etrange .... mais si ça peut aider quelqu'un, voici le code à placer dans "ThisWorkbook": 

Private Sub Workbook_Open()

    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    Application.DisplayAlerts = True 'Remettre absolument ensuite

End Sub
0