Avec Excel 97, je cherche la ligne de code qui me permettra d'ouvrir la
boite "enregistrer sous", d'imposer le choix du dossier, celui du nom de
fichier (c'est le contenu d'une cellule), mais de me laisser le soin de
cliquer sur ENREGISTRER pour finir "manuellement" la procédure.
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
isabelle
bonjour coco74,
voici un exemple,
Sub test() Application.Dialogs(xlDialogSaveAs).Show Range("A1") SetAttr ThisWorkbook.FullName, 1 ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly, WritePassword:="zaza" End Sub
isabelle
Bonjour à tous,
Avec Excel 97, je cherche la ligne de code qui me permettra d'ouvrir la boite "enregistrer sous", d'imposer le choix du dossier, celui du nom de fichier (c'est le contenu d'une cellule), mais de me laisser le soin de cliquer sur ENREGISTRER pour finir "manuellement" la procédure.
Merci pour votre aide
bonjour coco74,
voici un exemple,
Sub test()
Application.Dialogs(xlDialogSaveAs).Show Range("A1")
SetAttr ThisWorkbook.FullName, 1
ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly, WritePassword:="zaza"
End Sub
isabelle
Bonjour à tous,
Avec Excel 97, je cherche la ligne de code qui me permettra d'ouvrir la
boite "enregistrer sous", d'imposer le choix du dossier, celui du nom de
fichier (c'est le contenu d'une cellule), mais de me laisser le soin de
cliquer sur ENREGISTRER pour finir "manuellement" la procédure.
Sub test() Application.Dialogs(xlDialogSaveAs).Show Range("A1") SetAttr ThisWorkbook.FullName, 1 ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly, WritePassword:="zaza" End Sub
isabelle
Bonjour à tous,
Avec Excel 97, je cherche la ligne de code qui me permettra d'ouvrir la boite "enregistrer sous", d'imposer le choix du dossier, celui du nom de fichier (c'est le contenu d'une cellule), mais de me laisser le soin de cliquer sur ENREGISTRER pour finir "manuellement" la procédure.
