J'ai =E9cris le code suivant pour ouvrir l'interface de=20
sauvegarde dans un module classique:
reponse =3D MsgBox("Voulez vous enregistrer le fichier ?",=20
vbYesNo)
If reponse =3D vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
Else: MsgBox "op=E9ration annul=E9e",=20
vbInformation, "Annulation"
End If
Quelle ligne dois-je rajouter pour sauvegarder en read=20
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
Philippe.R
Bonsoir Pierre, Tu peux utiliser l'enregistreur de macros pour récupérer le code que tu recherches. -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Pierre CANDELA" a écrit dans le message de news: 09d701c4ac60$835e26c0$ 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 Pierre,
Tu peux utiliser l'enregistreur de macros pour récupérer le code que tu recherches.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Pierre CANDELA" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
09d701c4ac60$835e26c0$a301280a@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 Pierre, Tu peux utiliser l'enregistreur de macros pour récupérer le code que tu recherches. -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Pierre CANDELA" a écrit dans le message de news: 09d701c4ac60$835e26c0$ 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
