Bonsoir
J'ai créé une procédure qui copie un tableau et ouvre la boîte
d'enregistrement afin d'enregistrer le fichier où l'on veut.
Comment faire pour que si les données sont bien exportées un msgbox "OK"
sinon msfbox "pas bon"
Merci beaucoup
Michel
Sheets("Export").Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
MsgBox "Vous venez d'exporter sous forme de fichier les données
sélectionnées.", _
vbInformation, " Exportation des données sous forme de fichier"
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
RaMa
Bonjour
Sub OkNok() Sheets("Feuil1").Copy Xfil = Application.GetSaveAsFilename If Xfil <> False Then ActiveWorkbook.SaveAs Filename:=Xfil ActiveWorkbook.Close MsgBox "Vous venez d'exporter sous forme de fichier les données sélectionnées.", _ vbInformation, " Exportation des données sous forme de fichier" Else MsgBox "pas bon" End If End Sub
Salutations RaMa
"Michel" a écrit dans le message de news:
Bonsoir J'ai créé une procédure qui copie un tableau et ouvre la boîte d'enregistrement afin d'enregistrer le fichier où l'on veut. Comment faire pour que si les données sont bien exportées un msgbox "OK" sinon msfbox "pas bon" Merci beaucoup Michel
Sheets("Export").Copy Application.Dialogs(xlDialogSaveAs).Show ActiveWorkbook.Close MsgBox "Vous venez d'exporter sous forme de fichier les données sélectionnées.", _ vbInformation, " Exportation des données sous forme de fichier"
Bonjour
Sub OkNok()
Sheets("Feuil1").Copy
Xfil = Application.GetSaveAsFilename
If Xfil <> False Then
ActiveWorkbook.SaveAs Filename:=Xfil
ActiveWorkbook.Close
MsgBox "Vous venez d'exporter sous forme de fichier les données
sélectionnées.", _
vbInformation, " Exportation des données sous forme de fichier"
Else
MsgBox "pas bon"
End If
End Sub
Salutations
RaMa
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news:
u5Xbl3mTFHA.2676@TK2MSFTNGP10.phx.gbl...
Bonsoir
J'ai créé une procédure qui copie un tableau et ouvre la boîte
d'enregistrement afin d'enregistrer le fichier où l'on veut.
Comment faire pour que si les données sont bien exportées un msgbox "OK"
sinon msfbox "pas bon"
Merci beaucoup
Michel
Sheets("Export").Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
MsgBox "Vous venez d'exporter sous forme de fichier les données
sélectionnées.", _
vbInformation, " Exportation des données sous forme de fichier"
Sub OkNok() Sheets("Feuil1").Copy Xfil = Application.GetSaveAsFilename If Xfil <> False Then ActiveWorkbook.SaveAs Filename:=Xfil ActiveWorkbook.Close MsgBox "Vous venez d'exporter sous forme de fichier les données sélectionnées.", _ vbInformation, " Exportation des données sous forme de fichier" Else MsgBox "pas bon" End If End Sub
Salutations RaMa
"Michel" a écrit dans le message de news:
Bonsoir J'ai créé une procédure qui copie un tableau et ouvre la boîte d'enregistrement afin d'enregistrer le fichier où l'on veut. Comment faire pour que si les données sont bien exportées un msgbox "OK" sinon msfbox "pas bon" Merci beaucoup Michel
Sheets("Export").Copy Application.Dialogs(xlDialogSaveAs).Show ActiveWorkbook.Close MsgBox "Vous venez d'exporter sous forme de fichier les données sélectionnées.", _ vbInformation, " Exportation des données sous forme de fichier"
Michel
Merci beaucoup Michel
"RaMa" a écrit dans le message de news: O$
Bonjour
Sub OkNok() Sheets("Feuil1").Copy Xfil = Application.GetSaveAsFilename If Xfil <> False Then ActiveWorkbook.SaveAs Filename:=Xfil ActiveWorkbook.Close MsgBox "Vous venez d'exporter sous forme de fichier les données sélectionnées.", _ vbInformation, " Exportation des données sous forme de fichier" Else MsgBox "pas bon" End If End Sub
Salutations RaMa
"Michel" a écrit dans le message de news:
Bonsoir J'ai créé une procédure qui copie un tableau et ouvre la boîte d'enregistrement afin d'enregistrer le fichier où l'on veut. Comment faire pour que si les données sont bien exportées un msgbox "OK" sinon msfbox "pas bon" Merci beaucoup Michel
Sheets("Export").Copy Application.Dialogs(xlDialogSaveAs).Show ActiveWorkbook.Close MsgBox "Vous venez d'exporter sous forme de fichier les données sélectionnées.", _ vbInformation, " Exportation des données sous forme de fichier"
Merci beaucoup
Michel
"RaMa" <rmarceauPas2Spam@free.fr> a écrit dans le message de news:
O$p3eSuTFHA.2128@TK2MSFTNGP15.phx.gbl...
Bonjour
Sub OkNok()
Sheets("Feuil1").Copy
Xfil = Application.GetSaveAsFilename
If Xfil <> False Then
ActiveWorkbook.SaveAs Filename:=Xfil
ActiveWorkbook.Close
MsgBox "Vous venez d'exporter sous forme de fichier les données
sélectionnées.", _
vbInformation, " Exportation des données sous forme de fichier"
Else
MsgBox "pas bon"
End If
End Sub
Salutations
RaMa
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news:
u5Xbl3mTFHA.2676@TK2MSFTNGP10.phx.gbl...
Bonsoir
J'ai créé une procédure qui copie un tableau et ouvre la boîte
d'enregistrement afin d'enregistrer le fichier où l'on veut.
Comment faire pour que si les données sont bien exportées un msgbox "OK"
sinon msfbox "pas bon"
Merci beaucoup
Michel
Sheets("Export").Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
MsgBox "Vous venez d'exporter sous forme de fichier les données
sélectionnées.", _
vbInformation, " Exportation des données sous forme de fichier"
Sub OkNok() Sheets("Feuil1").Copy Xfil = Application.GetSaveAsFilename If Xfil <> False Then ActiveWorkbook.SaveAs Filename:=Xfil ActiveWorkbook.Close MsgBox "Vous venez d'exporter sous forme de fichier les données sélectionnées.", _ vbInformation, " Exportation des données sous forme de fichier" Else MsgBox "pas bon" End If End Sub
Salutations RaMa
"Michel" a écrit dans le message de news:
Bonsoir J'ai créé une procédure qui copie un tableau et ouvre la boîte d'enregistrement afin d'enregistrer le fichier où l'on veut. Comment faire pour que si les données sont bien exportées un msgbox "OK" sinon msfbox "pas bon" Merci beaucoup Michel
Sheets("Export").Copy Application.Dialogs(xlDialogSaveAs).Show ActiveWorkbook.Close MsgBox "Vous venez d'exporter sous forme de fichier les données sélectionnées.", _ vbInformation, " Exportation des données sous forme de fichier"
