Revérification du présence d'un fichier

  • Initiateur de la discussion Initiateur de la discussion mlmoracle
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

mlmoracle

Guest
Voilà j'ai une partie dans ma programmation où je vérifie si un fichier existe. Si il n'existe pas je stop la macro

Code:
    If FichierExiste(Rep_fichier) = False Then
    
    reponse = MsgBox("Le fichier : " & Rep_fichier & " n'existe pas." _
    & vbCrLf & "Les courbes ne seront pas tracées.", vbOKOnly, "Erreur emplacement du fichier")
    
    Else

    [...]    ' Traçage des courbes

Je voudrai demander à l'utilisateur si il veut recommencer la vérification du fichier, c-a-d lui laisser le temps de coller le fichier, avec par exemple

Code:
    Do
    [...] 
    reponse = MsgBox("Le fichier : " & Rep_fichier & " n'existe pas." _
    & vbCrLf & "Voulez-vous annuler l'ajout des courbes ?", vbRetryCancel, "Erreur emplacement du fichier")
    Loop Until reponse = vbRetry

Mais je n'arrive pas à m'en sortir, si vous pourriez me donner un coup de main 🙂
 
Dernière modification par un modérateur:
Re : Revérification du présence d'un fichier

Je pensais être clair désolé.

Quand je dis coller le fichier, c'est physiquement, c-a-d prendre le fichier et le coller dans le bon dossier.

En fait je cherche une méthode de programmation pour obtenir ceci (le do loop que j'ai cité était juste une proposition mais je n'ai pas trouvé une solution à partir de celui-ci)
 
Re : Revérification du présence d'un fichier

peut-être :

Code:
If FichierExiste(Rep_fichier) = False Then
Do    
    reponse = MsgBox("Le fichier : " & Rep_fichier & " n'existe pas." _
    & vbCrLf & "Voulez-vous réessayer ?", vbRetryCancel, "Erreur emplacement du fichier")
   
 Loop until FichierExiste(Rep_fichier)=true or reponse = vbcancel
if reponse = vbcancel then exit sub
end if
    [...]    ' Traçage des courbes
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
Réponses
0
Affichages
3 K
C
U
Réponses
3
Affichages
1 K
Undersound
U
W
Réponses
4
Affichages
2 K
wilbur11
W
B
Réponses
2
Affichages
5 K
brizard
B
Retour