ouverture d'un fichierRésolu

Question

Bonjour voilà je travail sur une petite appli sur Excel et j'ai un souci, j'aimerai ouvrir un fichier
selon un InputBox et ca marche mais le probleme et le message d'erreur lorsque la valeur mise
dans inputbox n'est pas trouvé. Comment faire pour faire faire apparaitre un message personnalisé
lorsque le fichier n'existe pas. 

Voilà mon code pour le moment :

Private Sub RetrouverCmd_Click()

rep = InputBox("Veuillez saisir le numéro de facture désiré")

If Fichier n'existe pas Then
    MsgBox "la facture n'existe pas"
    
    Else
            If rep <> "" Then
        
            ChDir "C:\Facture"
                Workbooks.Open Filename:="C:\Facture" & rep & ".xls"
            Else
            MsgBox "Aucune facture n'a été saisie"
        
            End If

End If

End Sub

cs_casy · Accepted Answer

If Dir("C:\Facture" & rep & ".xls") = "" then
    MsgBox ....

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Utilisateur anonyme · Answer

Salut,

Tout est sur Codyx :

http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx






__________________

Kenji

BruNews · Answer

Encore faut-il préciser que dans cet amas de coderies il n'y en a qu'1 seul de vraiment valable, celui de Renfield.

ciao...
BruNews, MVP VC++

Ouverture d'un fichier

3 réponses

Votre réponse

Discussions similaires