boucle

Le
Michel
Bonjour,

Dans une macro je teste si un fichier est ouvert ( ça c'est OK)

Je demande à l'utilisateur de fermer le fichier avant de continuer si
il est ouvert par une Msgbox.

Est il possible de faire en sorte que la macro continue automatiquement
dés que le fichier est fermé, et que l'on ne puisse pas continuer si
non ?

Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Frederic LE GUEN
Le #23058251
On Jan 27, 5:53 pm, Michel
Bonjour,

Dans une macro je teste si un fichier est ouvert ( ça c'est OK)

Je demande à l'utilisateur de fermer le fichier avant de continuer si
il est ouvert par une Msgbox.

Est il possible de faire en sorte que la macro continue automatiquement
dés que le fichier est fermé, et que l'on ne puisse pas continuer si
non ?

Michel



Si ton test sur le fichier fonctionne, au lieu de faire un IF (comme
ça semble être le cas), fait un While test .... Wend
Comme ça tu continueras ton programme après que le fichier soit fermé

Fred
MVP
Michel
Le #23059071
Frederic LE GUEN a pensé très fort :
On Jan 27, 5:53 pm, Michel
Bonjour,

Dans une macro je teste si un fichier est ouvert ( ça c'est OK)

Je demande à l'utilisateur de fermer le fichier avant de continuer si
il est ouvert par une Msgbox.

Est il possible de faire en sorte que la macro continue automatiquement
dés que le fichier est fermé, et que l'on ne puisse pas continuer si
non ?

Michel



Si ton test sur le fichier fonctionne, au lieu de faire un IF (comme
ça semble être le cas), fait un While test .... Wend
Comme ça tu continueras ton programme après que le fichier soit fermé

Fred
MVP



Merci, c'est ce que je viens de faire mais .... j'aimerais que la boite
de dialogue (Msgbox) ouverte se ferme automatique à la fermeture du
fichier.

Voila ce que j'ai fais.

Sub test()

While IsFileOpen("C:AccueilCourrierStats.xls")
MsgBox "ATTENTION le fichier C:AccueilCourrierStats.xls" _
& vbCrLf & " est déjà ouvert Merci de le fermer avant de fermer le
fichier Word"

Wend
Jacquouille
Le #23059291
Bonjour Michel
La msgbox n'attend-elle pas une réponse? Et ne bloque-t-elle pas le
déroulement de la macro, tant qu'il n'y a pas réponse?

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Michel" a écrit dans le message de groupe de discussion :


Frederic LE GUEN a pensé très fort :
On Jan 27, 5:53 pm, Michel
Bonjour,

Dans une macro je teste si un fichier est ouvert ( ça c'est OK)

Je demande à l'utilisateur de fermer le fichier avant de continuer si
il est ouvert par une Msgbox.

Est il possible de faire en sorte que la macro continue automatiquement
dés que le fichier est fermé, et que l'on ne puisse pas continuer si
non ?

Michel



Si ton test sur le fichier fonctionne, au lieu de faire un IF (comme
ça semble être le cas), fait un While test .... Wend
Comme ça tu continueras ton programme après que le fichier soit fermé

Fred
MVP



Merci, c'est ce que je viens de faire mais .... j'aimerais que la boite
de dialogue (Msgbox) ouverte se ferme automatique à la fermeture du
fichier.

Voila ce que j'ai fais.

Sub test()

While IsFileOpen("C:AccueilCourrierStats.xls")
MsgBox "ATTENTION le fichier C:AccueilCourrierStats.xls" _
& vbCrLf & " est déjà ouvert Merci de le fermer avant de fermer le
fichier Word"

Wend
Michel
Le #23059281
Dans son message précédent, Jacquouille a écrit :
Bonjour Michel
La msgbox n'attend-elle pas une réponse? Et ne bloque-t-elle pas le
déroulement de la macro, tant qu'il n'y a pas réponse?

Jacquouille




Si elle attend la validation du OK
Publicité
Poster une réponse
Anonyme