info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Macro ajout d'un fichier - Plantage si appuie sur ANNULER
13 views
Skip to first unread message
Alex
Jun 14, 2021, 5:23:24 AM6/14/21
to
Bonjour à tous,
J'ai un fichier Excel avec macro, dans lequel j'ai ajouté un processus de mail automatique avec ajout de pièce jointe. L'ajout de pièce jointe se fait depuis un Userform en cliquant sur un bouton permettant de sélectionner un document . Tout fonctionne très bien si l'utilisateur ajoute bien une pièce jointe, mais si depuis la fenêtre "explorateur", choix du ficher à joindre et qu'il appuie sur le bouton "annuler" la macro plante. j'aimerai ajouter un mode sans echec afin de résoudre ce problème.
Voici ce que j'ai en code :
Private Sub BtnRIB_Click()
Nomf = Application.GetOpenFilename("all files(*.*),*.*")
PJRIB.Value = Nomf
NF1 = PJRIB
If Me.PJRIB <> "" Then
Sheets("RIB").Select
Range("A1").Select
' CA BEUG SUR LA LIGNE CI-DESSOUS SI APPUIE SUR ANNULER
ActiveSheet.OLEObjects.Add(Filename:=PJRIB.Value, _
Link:=False, DisplayAsIcon:=True, IconFileName:= _
PJRIB.Value, _
IconIndex:=0, IconLabel:=PJRIB.Value).Select
End If
Sheets("FICHE").Select
If Me.PJRIB.Value <> "" And Me.PJKBIS.Value <> "" Then
Me.BtnValidation.Enabled = True
End If
End Sub
Merci par avance de votre aide pour résoudre ce problème.
Bonne journée
J'ai un fichier Excel avec macro, dans lequel j'ai ajouté un processus de mail automatique avec ajout de pièce jointe. L'ajout de pièce jointe se fait depuis un Userform en cliquant sur un bouton permettant de sélectionner un document . Tout fonctionne très bien si l'utilisateur ajoute bien une pièce jointe, mais si depuis la fenêtre "explorateur", choix du ficher à joindre et qu'il appuie sur le bouton "annuler" la macro plante. j'aimerai ajouter un mode sans echec afin de résoudre ce problème.
Voici ce que j'ai en code :
Private Sub BtnRIB_Click()
Nomf = Application.GetOpenFilename("all files(*.*),*.*")
PJRIB.Value = Nomf
NF1 = PJRIB
If Me.PJRIB <> "" Then
Sheets("RIB").Select
Range("A1").Select
' CA BEUG SUR LA LIGNE CI-DESSOUS SI APPUIE SUR ANNULER
ActiveSheet.OLEObjects.Add(Filename:=PJRIB.Value, _
Link:=False, DisplayAsIcon:=True, IconFileName:= _
PJRIB.Value, _
IconIndex:=0, IconLabel:=PJRIB.Value).Select
End If
Sheets("FICHE").Select
If Me.PJRIB.Value <> "" And Me.PJKBIS.Value <> "" Then
Me.BtnValidation.Enabled = True
End If
End Sub
Merci par avance de votre aide pour résoudre ce problème.
Bonne journée
Michel__D
Jun 15, 2021, 2:35:02 AM6/15/21
to
Bonjour,
Voir l'aide sur l'événement On Error
Généralement pour passer une erreur provoqué par le code VBA on utilise On Error Resume Next.
Nota : si l'erreur n'est pas produite au niveau du code VBA cela n'aura aucun effet.
Généralement pour passer une erreur provoqué par le code VBA on utilise On Error Resume Next.
Nota : si l'erreur n'est pas produite au niveau du code VBA cela n'aura aucun effet.
Alex
Jun 15, 2021, 4:11:24 AM6/15/21
to
Merci Michel. Ca fonctionne. Merci beaucoup. Bonne journée
0 new messages