Discussion :

[GabMaster]

Bonjour tout le monde.

Problème principal
J'ai un problème avec l'ouverture d'un fichier excel via une macro.

Explication.
J'ai une fichier de compilation de données et 2500 fichiers de données.
Dans mon fichier de compilation j'ai une macro qui va chercher tous les fichiers du répertoire qui les ouvres
Va chercher les données dont j'ai besoin et qui referme le fichier et passe au suivant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Rep = ActiveWorkbook.Path & "\"
ChDir ActiveWorkbook.Path
Fichier_base = ActiveWorkbook.Name
Fichier_Entretien = Dir("*.xls")
 
While Fichier_Entretien <> "" And Fichier_Entretien <> Fichier_base
Application.Workbooks.Open (Fichier_Entretien)
 
...
 
Mon code de récupération des données
 
...
 
      Workbooks(Fichier_Entretien).Close False
        Fichier_Entretien = Dir()
Wend

Mon problème est que lorsque je lance la macro (sur excel 2016 ou sur Excel 2010)
j'ai un message d'erreur qui me dit

Execution interrompue et il me propose de continuer, de mettre fin ou deboguer.
En réalité il n'y a pas d'erreur car quand je clique sur continuer la macro continue puis
rebelote et 10 de der la macro replante.

Souvent l'erreur viens apres la commande .open comme si Excel essayait de copier les données du fichier alors qu'il n'etait pas encore ouvert.

J'ai cherché sur internet et je n'ai pas trouvé de solution à mon problème.

Pouvez-vous m'aider ?

Cordialement

[joe.levrai]

Bonjour,

ça m'arrive aussi, parfois, aléatoirement. Et très souvent quand j'ai fais le cochon à interrompre intempestivement des procédures .... pour ensuite les arrêter sauvagement (bouton STOP) au lieu de le faire proprement

deux solutions s'offrent à toi si le problème est identique, moi elles me dépannent quand ça arrive :

1) quand je redémarre le PC, le problème cesse
2) désactiver cette fonctionnalité via :

Code :

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

Application.EnableCancelKey = xlDisabled

Mais attention, cette instruction t'empêchera également de reprendre la main pour stopper le processus (combinaison de touches Ctrl+Maj+Break)

[GabMaster]

Salut,

Je ne travaille jamais comme un cochon....
J'avais déjà vu sur des forums qu'il fallait redemarre (je l'avais deja fait par sécurité avant de le lire)
mais cela ne fonctionne pas.

Par contre UN TRES GRAND MERCI, la technique

Code :

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

Application.EnableCancelKey = xlDisabled

fonctionne parfaitement.

Cela me sauve la vie.

Je te mets un plus 1 (car je peux pas mettre plus...)