lorsque j'écris
==========
Private Sub SupprimeFacture_Click()
lenom = "c:\mes documents\2003\fact\" & InputBox("Entrez le nom de
la facture à supprimer", "Suppression de fichier") & ".xls"
Kill lenom
End Sub
======
comment préciser si je clique sur annuler, de simplement fermer la boite
inputbox
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour Andréa, Tu modifie le code ainsi :
Private Sub SupprimeFacture_Click() lenom = "c:mes documents2003fact" & InputBox _ ("Entrez le nom de la facture à supprimer", "Suppression de fichier") & ".xls" If lenom = "" Then MsgBox "Opération annulée", , "Merci MPFE" Exit Sub Else Kill lenom End If End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Andréa Parker" a écrit dans le message de news:
Bonjour, j'ai encore besoin d'aide
lorsque j'écris ========= > Private Sub SupprimeFacture_Click() lenom = "c:mes documents2003fact" & InputBox("Entrez le nom de la facture à supprimer", "Suppression de fichier") & ".xls" Kill lenom End Sub ===== > comment préciser si je clique sur annuler, de simplement fermer la boite inputbox
merci
Bonjour Andréa,
Tu modifie le code ainsi :
Private Sub SupprimeFacture_Click()
lenom = "c:mes documents2003fact" & InputBox _
("Entrez le nom de la facture à supprimer", "Suppression de fichier") & ".xls"
If lenom = "" Then
MsgBox "Opération annulée", , "Merci MPFE"
Exit Sub
Else
Kill lenom
End If
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Andréa Parker" <andrea.parker@laposte.net> a écrit dans le message de
news:3F0D255C.2000001@laposte.net...
Bonjour,
j'ai encore besoin d'aide
lorsque j'écris
========= > Private Sub SupprimeFacture_Click()
lenom = "c:mes documents2003fact" & InputBox("Entrez le nom de
la facture à supprimer", "Suppression de fichier") & ".xls"
Kill lenom
End Sub
===== >
comment préciser si je clique sur annuler, de simplement fermer la boite
inputbox
Private Sub SupprimeFacture_Click() lenom = "c:mes documents2003fact" & InputBox _ ("Entrez le nom de la facture à supprimer", "Suppression de fichier") & ".xls" If lenom = "" Then MsgBox "Opération annulée", , "Merci MPFE" Exit Sub Else Kill lenom End If End Sub
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Andréa Parker" a écrit dans le message de news:
Bonjour, j'ai encore besoin d'aide
lorsque j'écris ========= > Private Sub SupprimeFacture_Click() lenom = "c:mes documents2003fact" & InputBox("Entrez le nom de la facture à supprimer", "Suppression de fichier") & ".xls" Kill lenom End Sub ===== > comment préciser si je clique sur annuler, de simplement fermer la boite inputbox
merci
Andréa Parker
impec
et en effet merci MPFE
Philippe.R a écrit:
Re, Pardon, j'étais allé trop vite en mêlant ma procédure de test et la tienne ; corrigée ainsi, ça ira mieux :
Private Sub SupprimeFacture_Click() lenom = "c:mes documents2003fact" & InputBox _ ("Entrez le nom de la facture à supprimer", "Suppression de fichier") & ".xls" If lenom = "c:mes documents2003fact.xls" Then MsgBox "Opération annulée", , "Merci MPFE" Exit Sub Else Kill lenom End If End Sub
impec
et en effet merci MPFE
Philippe.R a écrit:
Re,
Pardon, j'étais allé trop vite en mêlant ma procédure de test et la tienne ; corrigée ainsi, ça ira
mieux :
Private Sub SupprimeFacture_Click()
lenom = "c:mes documents2003fact" & InputBox _
("Entrez le nom de la facture à supprimer", "Suppression de fichier") & ".xls"
If lenom = "c:mes documents2003fact.xls" Then
MsgBox "Opération annulée", , "Merci MPFE"
Exit Sub
Else
Kill lenom
End If
End Sub
Re, Pardon, j'étais allé trop vite en mêlant ma procédure de test et la tienne ; corrigée ainsi, ça ira mieux :
Private Sub SupprimeFacture_Click() lenom = "c:mes documents2003fact" & InputBox _ ("Entrez le nom de la facture à supprimer", "Suppression de fichier") & ".xls" If lenom = "c:mes documents2003fact.xls" Then MsgBox "Opération annulée", , "Merci MPFE" Exit Sub Else Kill lenom End If End Sub
