J'ai =E9cris le code suivant pour ouvrir l'interface de
sauvegarde dans un module classique:
reponse =3D MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse =3D vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
Else: MsgBox "op=E9ration annul=E9e",
vbInformation, "Annulation"
End If
Quelle ligne dois-je rajouter pour sauvegarder en read
only automatiquement ??? merci
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
Claude Trouet
Bonsoir, Pour quelle raison faut-il afficher la boite de dialogue Enregistrer sous ? L'opération peut se faire directement en utilisant les élements de la syntaxe de ActiveWorbook.SaveAs Pour ce faire, écrire dans le module ActiveWorbook.SaveAs et sélectionner SaveAs Puis faire F1 pour avoir le détail CT
"Pierre candela" a écrit dans le message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Bonsoir,
Pour quelle raison faut-il afficher la boite de dialogue Enregistrer sous ?
L'opération peut se faire directement en utilisant les élements de la
syntaxe de
ActiveWorbook.SaveAs
Pour ce faire, écrire dans le module ActiveWorbook.SaveAs et sélectionner
SaveAs
Puis faire F1 pour avoir le détail
CT
"Pierre candela" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 336d01c4ae1c$529ffaf0$a601280a@phx.gbl...
Hello !
J'ai écris le code suivant pour ouvrir l'interface de
sauvegarde dans un module classique:
reponse = MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
Else: MsgBox "opération annulée",
vbInformation, "Annulation"
End If
Quelle ligne dois-je rajouter pour sauvegarder en read
only automatiquement ??? merci
Bonsoir, Pour quelle raison faut-il afficher la boite de dialogue Enregistrer sous ? L'opération peut se faire directement en utilisant les élements de la syntaxe de ActiveWorbook.SaveAs Pour ce faire, écrire dans le module ActiveWorbook.SaveAs et sélectionner SaveAs Puis faire F1 pour avoir le détail CT
"Pierre candela" a écrit dans le message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Joël GARBE
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Dim NomFichier As String NomFichier = Application.GetSaveAsFilename If NomFichier = "" Then Exit Sub ActiveWorkbook.SaveAs NomFichier, , , , True Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
pourrait-il faire l'affaire ? --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Pierre candela" a écrit dans le message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse = vbYes Then
Dim NomFichier As String
NomFichier = Application.GetSaveAsFilename
If NomFichier = "" Then Exit Sub
ActiveWorkbook.SaveAs NomFichier, , , , True
Else: MsgBox "opération annulée",
vbInformation, "Annulation"
End If
pourrait-il faire l'affaire ?
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Pierre candela" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 336d01c4ae1c$529ffaf0$a601280a@phx.gbl...
Hello !
J'ai écris le code suivant pour ouvrir l'interface de
sauvegarde dans un module classique:
reponse = MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
Else: MsgBox "opération annulée",
vbInformation, "Annulation"
End If
Quelle ligne dois-je rajouter pour sauvegarder en read
only automatiquement ??? merci
reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Dim NomFichier As String NomFichier = Application.GetSaveAsFilename If NomFichier = "" Then Exit Sub ActiveWorkbook.SaveAs NomFichier, , , , True Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
pourrait-il faire l'affaire ? --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Pierre candela" a écrit dans le message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Alain CROS
Bonjour.
Voir SetAttr, instruction dans l'aide
Alain CROS
"Pierre candela" a écrit dans le message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Bonjour.
Voir SetAttr, instruction dans l'aide
Alain CROS
"Pierre candela" <anonymous@discussions.microsoft.com> a écrit dans le message de news: 336d01c4ae1c$529ffaf0$a601280a@phx.gbl...
Hello !
J'ai écris le code suivant pour ouvrir l'interface de
sauvegarde dans un module classique:
reponse = MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
Else: MsgBox "opération annulée",
vbInformation, "Annulation"
End If
Quelle ligne dois-je rajouter pour sauvegarder en read
only automatiquement ??? merci
"Pierre candela" a écrit dans le message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Clément Marcotte
Bonjour,
De toutes façons, cela fait une mèche qu'il l'a eue sa réponse, et il ne dit pas pourquoi elle ne convient pas. Tout ce qu'il sait, c'est de faire répéter la cassette.
"Joël GARBE" a écrit dans le message de news:41681670$0$16581$
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Dim NomFichier As String NomFichier = Application.GetSaveAsFilename If NomFichier = "" Then Exit Sub ActiveWorkbook.SaveAs NomFichier, , , , True Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
pourrait-il faire l'affaire ? --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Pierre candela" a écrit dans le
message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Bonjour,
De toutes façons, cela fait une mèche qu'il l'a eue sa réponse, et il
ne dit pas pourquoi elle ne convient pas. Tout ce qu'il sait, c'est de
faire répéter la cassette.
"Joël GARBE" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:41681670$0$16581$8fcfb975@news.wanadoo.fr...
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse = vbYes Then
Dim NomFichier As String
NomFichier = Application.GetSaveAsFilename
If NomFichier = "" Then Exit Sub
ActiveWorkbook.SaveAs NomFichier, , , , True
Else: MsgBox "opération annulée",
vbInformation, "Annulation"
End If
pourrait-il faire l'affaire ?
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Pierre candela" <anonymous@discussions.microsoft.com> a écrit dans
le
message de news: 336d01c4ae1c$529ffaf0$a601280a@phx.gbl...
Hello !
J'ai écris le code suivant pour ouvrir l'interface de
sauvegarde dans un module classique:
reponse = MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
Else: MsgBox "opération annulée",
vbInformation, "Annulation"
End If
Quelle ligne dois-je rajouter pour sauvegarder en read
only automatiquement ??? merci
De toutes façons, cela fait une mèche qu'il l'a eue sa réponse, et il ne dit pas pourquoi elle ne convient pas. Tout ce qu'il sait, c'est de faire répéter la cassette.
"Joël GARBE" a écrit dans le message de news:41681670$0$16581$
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Dim NomFichier As String NomFichier = Application.GetSaveAsFilename If NomFichier = "" Then Exit Sub ActiveWorkbook.SaveAs NomFichier, , , , True Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
pourrait-il faire l'affaire ? --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Pierre candela" a écrit dans le
message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Joël GARBE
Bonsoir Clément,
Merci de l'info, je ne suis pas toujours là à surveiller ;-))
Bonne soirée...
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Clément Marcotte" a écrit dans le message de news:
Bonjour,
De toutes façons, cela fait une mèche qu'il l'a eue sa réponse, et il ne dit pas pourquoi elle ne convient pas. Tout ce qu'il sait, c'est de faire répéter la cassette.
"Joël GARBE" a écrit dans le message de news:41681670$0$16581$
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Dim NomFichier As String NomFichier = Application.GetSaveAsFilename If NomFichier = "" Then Exit Sub ActiveWorkbook.SaveAs NomFichier, , , , True Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
pourrait-il faire l'affaire ? --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Pierre candela" a écrit dans le
message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Bonsoir Clément,
Merci de l'info, je ne suis pas toujours là à surveiller ;-))
Bonne soirée...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: uQEUNLirEHA.1164@TK2MSFTNGP10.phx.gbl...
Bonjour,
De toutes façons, cela fait une mèche qu'il l'a eue sa réponse, et il
ne dit pas pourquoi elle ne convient pas. Tout ce qu'il sait, c'est de
faire répéter la cassette.
"Joël GARBE" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:41681670$0$16581$8fcfb975@news.wanadoo.fr...
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse = vbYes Then
Dim NomFichier As String
NomFichier = Application.GetSaveAsFilename
If NomFichier = "" Then Exit Sub
ActiveWorkbook.SaveAs NomFichier, , , , True
Else: MsgBox "opération annulée",
vbInformation, "Annulation"
End If
pourrait-il faire l'affaire ?
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Pierre candela" <anonymous@discussions.microsoft.com> a écrit dans
le
message de news: 336d01c4ae1c$529ffaf0$a601280a@phx.gbl...
Hello !
J'ai écris le code suivant pour ouvrir l'interface de
sauvegarde dans un module classique:
reponse = MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
Else: MsgBox "opération annulée",
vbInformation, "Annulation"
End If
Quelle ligne dois-je rajouter pour sauvegarder en read
only automatiquement ??? merci
Merci de l'info, je ne suis pas toujours là à surveiller ;-))
Bonne soirée...
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Clément Marcotte" a écrit dans le message de news:
Bonjour,
De toutes façons, cela fait une mèche qu'il l'a eue sa réponse, et il ne dit pas pourquoi elle ne convient pas. Tout ce qu'il sait, c'est de faire répéter la cassette.
"Joël GARBE" a écrit dans le message de news:41681670$0$16581$
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Dim NomFichier As String NomFichier = Application.GetSaveAsFilename If NomFichier = "" Then Exit Sub ActiveWorkbook.SaveAs NomFichier, , , , True Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
pourrait-il faire l'affaire ? --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Pierre candela" a écrit dans le
message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Claude Trouet
Bonsoir, Effectivement , en y regardant sur le nom dans la liste ...... A méditer pour les prchaines éventuelles réponses que je pourrai apporter Bonne soirée CT
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
De toutes façons, cela fait une mèche qu'il l'a eue sa réponse, et il ne dit pas pourquoi elle ne convient pas. Tout ce qu'il sait, c'est de faire répéter la cassette.
"Joël GARBE" a écrit dans le message de news:41681670$0$16581$
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Dim NomFichier As String NomFichier = Application.GetSaveAsFilename If NomFichier = "" Then Exit Sub ActiveWorkbook.SaveAs NomFichier, , , , True Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
pourrait-il faire l'affaire ? --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Pierre candela" a écrit dans le
message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
Bonsoir,
Effectivement , en y regardant sur le nom dans la liste ......
A méditer pour les prchaines éventuelles réponses que je pourrai apporter
Bonne soirée
CT
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: uQEUNLirEHA.1164@TK2MSFTNGP10.phx.gbl...
Bonjour,
De toutes façons, cela fait une mèche qu'il l'a eue sa réponse, et il
ne dit pas pourquoi elle ne convient pas. Tout ce qu'il sait, c'est de
faire répéter la cassette.
"Joël GARBE" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:41681670$0$16581$8fcfb975@news.wanadoo.fr...
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse = vbYes Then
Dim NomFichier As String
NomFichier = Application.GetSaveAsFilename
If NomFichier = "" Then Exit Sub
ActiveWorkbook.SaveAs NomFichier, , , , True
Else: MsgBox "opération annulée",
vbInformation, "Annulation"
End If
pourrait-il faire l'affaire ?
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Pierre candela" <anonymous@discussions.microsoft.com> a écrit dans
le
message de news: 336d01c4ae1c$529ffaf0$a601280a@phx.gbl...
Hello !
J'ai écris le code suivant pour ouvrir l'interface de
sauvegarde dans un module classique:
reponse = MsgBox("Voulez vous enregistrer le fichier ?",
vbYesNo)
If reponse = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
Else: MsgBox "opération annulée",
vbInformation, "Annulation"
End If
Quelle ligne dois-je rajouter pour sauvegarder en read
only automatiquement ??? merci
Bonsoir, Effectivement , en y regardant sur le nom dans la liste ...... A méditer pour les prchaines éventuelles réponses que je pourrai apporter Bonne soirée CT
"Clément Marcotte" a écrit dans le message de news:
Bonjour,
De toutes façons, cela fait une mèche qu'il l'a eue sa réponse, et il ne dit pas pourquoi elle ne convient pas. Tout ce qu'il sait, c'est de faire répéter la cassette.
"Joël GARBE" a écrit dans le message de news:41681670$0$16581$
Bonsoir ;-)
le code suivant :
reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Dim NomFichier As String NomFichier = Application.GetSaveAsFilename If NomFichier = "" Then Exit Sub ActiveWorkbook.SaveAs NomFichier, , , , True Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
pourrait-il faire l'affaire ? --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Pierre candela" a écrit dans le
message de news: 336d01c4ae1c$529ffaf0$ Hello !
J'ai écris le code suivant pour ouvrir l'interface de sauvegarde dans un module classique: reponse = MsgBox("Voulez vous enregistrer le fichier ?", vbYesNo) If reponse = vbYes Then Application.Dialogs(xlDialogSaveAs).Show Else: MsgBox "opération annulée", vbInformation, "Annulation" End If
Quelle ligne dois-je rajouter pour sauvegarder en read only automatiquement ??? merci
