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

 

[Pierrot93]

Re : VBA message Box au lieu de deboguage

R,

bah les 2 codes fonctionnent chez moi sauf ceci : "ShellExecuteForExplore" ?? sans plus de détails peux pas t'en dire plus.... vérifie bien les noms et chemins des fichiers...

 

[Bens7]

Re : VBA message Box au lieu de deboguage

De plus OnError Goto c'est une nouvelle fonction pour moi que je pourrais rajouter a tous mes codes mais pour la premiere fois je vois pas ou le mettre .... ?

 

[Bens7]

Re : VBA message Box au lieu de deboguage

le code de base est dans #1 et marche nikel les chemins aussi
mais si le fichier existe pas dans JPEG et PDF il se passe rien et dans le Bouton XLSX ya la fenetre deboguage

 

[Bens7]

Re : VBA message Box au lieu de deboguage

Voici en piece jointe le fichier les bouton de droite

 

[Pierrot93]

Re : VBA message Box au lieu de deboguage

Re,

semble fonctionner chez moi teel que tu l'a indiqué à l'exeption du "ShellExecuteForExplore"....

 

[Pierrot93]

Re : VBA message Box au lieu de deboguage

Re,

Aarf, trop fort pour moi ton code....

 

[Bens7]

Re : VBA message Box au lieu de deboguage

???? Tes pas serieux lolll ?

 

[Bens7]

Re : VBA message Box au lieu de deboguage

Bon j;ai tous fait comme le post #10 pour les PDF et JPEG nickel mais les excel je voit pas comment faire j;ai mis ca mais marche pas :

'BOUTON XLSX FORUM
Private Sub CommandButton3_Click()

    Dim classeur_rmf, fichier As String
    fichier = Dir(classeur_rmf)
 If fichier = "" Then
     MsgBox "fichier inconnu"
 Else
       ChDir ActiveWorkbook.Path
    Set classeur_rmf = Workbooks.Open(ActiveWorkbook.Path & "\Facture\" & TextBox26 & ".xlsx")
    UserForm1.Hide
End If
End Sub

 

[Bens7]

Re : VBA message Box au lieu de deboguage

C'est bon !!
Merci Pierrot voici le code pour Excel je te remercie de ton aide

'BOUTON XLSX FORUM
Private Sub CommandButton3_Click()
    Dim classeur_rmf, fichier As String
    fichier = Dir(ActiveWorkbook.Path & "\Facture\" & TextBox26 & ".xlsx")
 If fichier = "" Then
     MsgBox "fichier inconnu"
 Else
    ChDir ActiveWorkbook.Path
    Set classeur_rmf = Workbooks.Open(ActiveWorkbook.Path & "\Facture\" & TextBox26 & ".xlsx")
    UserForm1.Hide
End If
End Sub