Ouverture xls dans une macro sans faire bugger

Le
Kikoolol
Bonjour,
Voici mon problème : j'ai créé un bouton dans une userform pour aller
directement ouvrir un autre fichier excel bien spécifique (l'utilisateur n'a
pas a choisir quel est le fichier en question car c'est le programme qui
l'ouvre seul).
Mon problème est le suivant : si je renomme ou je supprime "par erreur" le
fichier à ouvrir, la macro plante, car Excel ne trouve plus le fichier.
Y a t il un moyen de dire a Excel #si tu ne trouves pas ce fichier dans le
dossier spécifié dans la macro alors tu affiches un message type "Fichier non
trouvé"# sans faire planter la macro?

Merci d'avance pour vos suggestions.
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
FFO
Le #4962431
Salut à toi

Tu pourrais rajouter ces lignes dans ton code :

If Dir("E:CheminFichier.XLS") = "" Then
MsgBox ("Fichier.XLS inexistant")

Soit avant tes lignes qui ouvrent le dit fichier avec une instruction qui
les saute lorsque le fichier est absent ainsi :

If Dir("E:CheminFichier.XLS") = "" Then
MsgBox ("Fichier.XLS inexistant")
Goto Suite
End If
Code d'ouverture du fichier
Suite :
La suite du code

Soit aprés tes lignes qui ouvrent le dit fichier avec une instruction qui
les saute lorsque le fichier est absent juste avant ainsi :

On Error Resume Next
Code d'ouverture du fichier
If Dir("E:CheminFichier.XLS") = "" Then
MsgBox ("Fichier.XLS inexistant")
End If
Suite du code


Celà devrait convenir






Bonjour,
Voici mon problème : j'ai créé un bouton dans une userform pour aller
directement ouvrir un autre fichier excel bien spécifique (l'utilisateur n'a
pas a choisir quel est le fichier en question car c'est le programme qui
l'ouvre seul).
Mon problème est le suivant : si je renomme ou je supprime "par erreur" le
fichier à ouvrir, la macro plante, car Excel ne trouve plus le fichier.
Y a t il un moyen de dire a Excel #si tu ne trouves pas ce fichier dans le
dossier spécifié dans la macro alors tu affiches un message type "Fichier non
trouvé"# sans faire planter la macro?

Merci d'avance pour vos suggestions.



Philippe.R
Le #4962421
Bonjour,
Variante (non testée) sans GoTo, avec, en début de procédure :

on Error resume next

puis, à la suite de la commande d'ouverture :

If Dir(ici le chemin de ton fichier)= "" Then MsgBox "Fichier non trouvé
!",vbinformation,"M.P.F.E."
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Kikoolol" news:
Bonjour,
Voici mon problème : j'ai créé un bouton dans une userform pour aller
directement ouvrir un autre fichier excel bien spécifique (l'utilisateur
n'a
pas a choisir quel est le fichier en question car c'est le programme qui
l'ouvre seul).
Mon problème est le suivant : si je renomme ou je supprime "par erreur" le
fichier à ouvrir, la macro plante, car Excel ne trouve plus le fichier.
Y a t il un moyen de dire a Excel #si tu ne trouves pas ce fichier dans le
dossier spécifié dans la macro alors tu affiches un message type "Fichier
non
trouvé"# sans faire planter la macro?

Merci d'avance pour vos suggestions.



Kikoolol
Le #4962131
Merci pour vos solutions je les testerai des que possible
Publicité
Poster une réponse
Anonyme