VBA message Box au lieu de deboguage

[Bens7]

Bonjour a tous !!
J'ai un user Form avec 3 bouton qui me permettent d'ouvrir un document present dans mon dossier le probleme c'est que si le fichier est introuvable (PDF ou JPEG) rien ne se passe , et si c'es un fichier excel j'ai le message de deboguage....
Je souhaiterais tous simplement si le fichier est introuvable une message box: "FICHIER INTROUVABLE"
merci le code ci joint:

'BOUTON XLSX
Private Sub CommandButton3_Click()
   Dim classeur_rmf
     ChDir ActiveWorkbook.Path
 
    Set classeur_rmf = Workbooks.Open(ActiveWorkbook.Path & "\Facture\" & TextBox26 & ".xlsx")
     UserForm1.Hide
End Sub


'BOUTON PDF
Private Sub CommandButton7_Click()
Dim Chemin_FichierPDF$, hwndSim

  Chemin_FichierPDF = ActiveWorkbook.Path & "\Facture\" & TextBox26 & ".pdf"

  hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin_FichierPDF, 0, 0, 1)
End Sub

'BOUTON JPG
Private Sub CommandButton8_Click()
Dim Chemin_FichierJPG$, hwndSim

  Chemin_FichierJPG = ActiveWorkbook.Path & "\Contrat\" & TextBox26 & ".jpg"
  hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin_FichierJPG, 0, 0, 1)
  
' BOUTON JPG (2)

Dim Chemin_FichierJPG2$, hwndSim2

  Chemin_FichierJPG2 = ActiveWorkbook.Path & "\Contrat\" & TextBox26 & " (2)" & ".jpg"
  hwndSim2 = ShellExecuteForExplore(0&, vbNullString, Chemin_FichierJPG2, 0, 0, 1)
      
End Sub

 

[mikachu]

Re : VBA message Box au lieu de deboguage

Bonjour.

Essaye en plaçant un:

On error msgbox "FICHIER INTROUVABLE"

maintenant, ou le mettre... ??? sans le fichier c'est dur à dire. Je dirais avant le UserForm1.Hide

 

[Bens7]

Re : VBA message Box au lieu de deboguage

ok j'essaye

 

[Bens7]

Re : VBA message Box au lieu de deboguage

Desole mais peut importe ou je le met :
Attendu Go To ou Resume

 

[Pierrot93]

Re : VBA message Box au lieu de deboguage

Bonjour,

regarde peut être ceci :

On Error GoTo msg
    'linstruction renvoyant l'erreur
'suite du code
Exit Sub
msg:
MsgBox "FICHIER INTROUVABLE"

bon après midi
@+

 

[Pierrot93]

Re : VBA message Box au lieu de deboguage

Re,

A noter, perso testerais plutôt l'existance du fichier avec la fonction "Dir" :

Dim fichier As String
fichier = Dir(cheminetnomfichier)
If fichier = "" Then MsgBox "fichier inconnu"

 

[Bens7]

Re : VBA message Box au lieu de deboguage

Ok mais ou je met ca pour que ca marche pour chaque bouton avant les End Sub de chaque Bouton ?

 

[Pierrot93]

Re : VBA message Box au lieu de deboguage

Re,

regarde également la fonction "Dir", post #6....

 

[Bens7]

Re : VBA message Box au lieu de deboguage

Comme ca :

Private Sub CommandButton3_Click()
        On Error GoTo msg
    Dim classeur_rmf
    ChDir ActiveWorkbook.Path
    Set classeur_rmf = Workbooks.Open(ActiveWorkbook.Path & "\Facture\" & TextBox26 & ".xlsx")
    UserForm1.Hide
    
 Exit Sub
msg:
 MsgBox "FICHIER INTROUVABLE"
        
End Sub

ca me met l'erreur quoi qu'il arrive meme si le fichier existe

 

[Pierrot93]

Re : VBA message Box au lieu de deboguage

Re,

Dir appliqué à un de tes bouton :

Private Sub CommandButton7_Click()
Dim Chemin_FichierPDF$, hwndSim, fichier As String
Chemin_FichierPDF = ActiveWorkbook.Path & "\Facture\" & TextBox26 & ".pdf"
fichier = Dir(Chemin_FichierPDF)
If fichier = "" Then
    MsgBox "fichier inconnu"
Else
    hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin_FichierPDF, 0, 0, 1)
End If
End Sub

 

[Bens7]

Re : VBA message Box au lieu de deboguage

Re,

regarde également la fonction "Dir", post #6....

Le probleme je suis novice je veux pas m'embrouiller avec des Nouveaux Dim et des Nouveaux chemin
je prefere On Error GoTo mais je voie pas o le mettre

 

[Bens7]

Re : VBA message Box au lieu de deboguage

Re,

Dir appliqué à un de tes bouton :

fichier = Dir(Chemin_FichierPDF)

Trop complexe je doit remettre le chemin a chaque fois c pas possible avec l'option Post #2 ? beaucoup plus simple !

 

[Pierrot93]

Re : VBA message Box au lieu de deboguage

Re,

tu as le code du bouton post #10

 

[Bens7]

Re : VBA message Box au lieu de deboguage

J'ai essayer ca aussi marche pas (mais plus simple pour moi a comprendre)

'BOUTON PDF
Private Sub CommandButton7_Click()
Dim Chemin_FichierPDF$, hwndSim
  Chemin_FichierPDF = ActiveWorkbook.Path & "\Facture\" & TextBox26 & ".pdf"
 
  If Chemin_FichierPDF = "" Then
     MsgBox "fichier introuvable"
 Else
   hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin_FichierPDF, 0, 0, 1)
  End If
End Sub

 

[Bens7]

Re : VBA message Box au lieu de deboguage

Re,

tu as le code du bouton post #10

Ya pas moyen avec OnError  je prefere pour me retrouver dans mes codes svp,,,,bien sur