boucle bloquant tjs au même endroit

**sami35** · 21/05/2007, 12h39

Bonjour, lorsque j'exécute une macro, celle-ci reste bloquée sur une partie de mon code sans me mettre de message d'erreur.

Si je continue l'exécution par F5, elle se relance, rebloque au même endroit et ainsi de suite. Cette macro est une boucle qui repasse sur le code jusqu'à avoir pris en compte tous les cas de mon exécution.

Voici le bout de code sur lequel bloque ma macro

Code :

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

1
2
Workbooks.Open Filename:="\\NtchasA3\Projets\Pilotage Performance\Production - Reporting\Reporting 2007\Reporting 2007.xls", WriteResPassword:="11XXXX", _
                                                Password:="11XXXX"

Ai-je fait une erreur ou écrit qqch qui ne convient pas

Merci

**Daranc** · 21/05/2007, 16h20

Salut
tu n'as pas placé un

Code :

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

Application.Displayalert=false

des fois
parce que si tu boucles sur un classeur déjà ouvert il peut y avoir un petit problème
Daranc

**Daranc** · 21/05/2007, 16h25

autrement défini le chemin de ton serveur en dehors de la boucle tant que tu ne change pas de repertoire actif

Code :

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

1
2
3
chemin="// monserveur/de fichier/"
chdir chemin
Workbooks.Open Filename:="mon_classeur.XLS"

Daranc

**sami35** · 21/05/2007, 16h52

En effet, j'ai bien des

Code :

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

Application.Displayalert=false

Par contre après, je remets bien des

Code :

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

Application.Displayalert=true

Pour ce qui est du chemin du serveur, j'ai essayé et ça ne change rien

**Daranc** · 22/05/2007, 07h48

salut
ton fichier ne s'ouvre bien qu'une seule fois?
tu n'essayes pas de l'ouvrir plusieurs fois dans ta boucle?
essayes de prendre le mode pas à pas pour voir ce qui ce passe ?
met un rem devant application.displayalerte de façon à avoir les messages d'erreurs lorsque tu bloque
Daranc

**sami35** · 22/05/2007, 09h41

A chaque fois que je relance la boucle, ça fonctionne.

Chaque boucle correspond à une personne différente. Je crée des fichiers "nom_prénom.xls" à chaque tour.

Quant au "rem", je ne sais pas utiliser. Peux-tu me dire comment le mettre sur

Code :

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

Application.Displayalert=false

**ouskel'n'or** · 22/05/2007, 09h47

Je ne vois pas ta boucle, mais laisses-tu le temps à tes fichiers de s'ouvrir ? Place un DoEvents sur la ligne suivant l'ouverture de chaque fichier et regarde dans l'aide à quoi ça sert

A+

**Daranc** · 22/05/2007, 10h49

un rem ?
sans rem

Code :

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

 application.displayalert =false

avec rem

Code :

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

'application.displayalert = false

ce qui passe la ligne de code en commentaire
Daranc

**sami35** · 22/05/2007, 11h04

Ok, tu m'aurais dit commentaires...
J'utilise pas le terme "rem", sorry.

J'avais déjà essayé en mettant les "Application.Displayalert" en commentaires mais rien y fait.
J'ai tout de même fait tourner ma macro en laissant F5 enfoncé; tout fonctionne. Je n'ai plus que ce petit détail à résoudre.

C'est quand même sympa de m'apporter des solutions. Même si ça me débloque pas forcément, ça m'apprend des choses.