propriétes d'un classeur à l'enregistrement

[Bernard LAUNAY]

Bonjour,

Sous Excel, on peut positionner dans les propriétés d'un classeur l'option "enregistrer l'image dans l'aperçu".

Je voudrais le faire via Excel VB, en même temps que (ou avant?) ActiveWorkbook.Save ou ActiveWorkbook.SaveAs mais je ne sais comment.
Bien sûr, comme tout bon fainéant, j'ai essayé de le fair avec l'enregistrement de macros, mais bernique, rien à faire . . rien de particulier n'a été fait excepté le .Save

Qui aura la gentillesse de m'éclairer ?


Merci . . .

 

[EMG]

Bonsoir le forum, Bernard

Je ne sais pas si c’est cela que tu recherche pour te simplifier la tâche met ça dans un module avec tes propres informations. Mais attention me faire tourner la ou les macros qu’une seule fois

Gérard



Option Explicit

'*******************************************************************
'Vous êtes libre pour réutiliser ce fichier et module de code source
'© G.Moriceau, février 2004
'********************************************************************
Option Explicit

'Ici on détermine les écritures à insérer dans la boîte de
'Dialogue des propriétés avec toutes les informations et
'Commentaires sur la version du fichier Excel, les codes
'Suivant montre comment faire une sauvegarde en macros XLA
'Macros complémentaire, ou simplement en un fichier XLS.
'---------------------------------------------------------
Private Sub SauvegardeXls()
Dim Resumer(0 To 8) As String
Dim iCompteur As Integer

'Choix de sauvegarde du fichier (.xls), répertoire, chemin
'---------------------------------------------------------
Resumer(0) = "C:\E-MailOutlookExpressV2.xls"
Resumer(1) = "E-MailOutlookExpressV2"
Resumer(2) = ""
Resumer(3) = "Gérard Moriceau"
Resumer(4) = ""
Resumer(5) = "Permet de faire un envoie de fichier en pièce jointe avec Outlook Express depuis Excel Version.2.00, février 2004"
Resumer(6) = "Le Programme et sa Source sont en accès libre:"
Resumer(8) = Format(Date, "ddmmyyyy") & Format(Now, "hhmmss")
With ThisWorkbook
For iCompteur = 1 To 8
.BuiltinDocumentProperties(iCompteur) = Resumer(iCompteur)
Next iCompteur
.IsAddin = False 'True 'False Fait l'enregistrement sous le format xls
.SaveAs Resumer(0), xlAddIn
End With
End Sub

Private Sub SauvegardeXla()
Dim Resumer(0 To 8) As String
Dim iCompteur As Integer

'Choix de sauvegarde du fichier (.xla), répertoire, chemin
'---------------------------------------------------------
Resumer(0) = "C:\OutlookExpressV2\E-MailOutlookExpressV2.xla"
Resumer(1) = "E-MailOutlookExpressV2"
Resumer(2) = ""
Resumer(3) = "Gérard Moriceau"
Resumer(4) = ""
Resumer(5) = "Permet de faire un envoie de fichier en pièce jointe avec Outlook Express depuis Excel Version.2.00, février 2004"
Resumer(6) = "Le Programme et sa Source sont en accès libre"
Resumer(8) = Format(Date, "ddmmyyyy") & Format(Now, "hhmmss")
With ThisWorkbook
For iCompteur = 1 To 8
.BuiltinDocumentProperties(iCompteur) = Resumer(iCompteur)
Next iCompteur
.IsAddin = True 'True Fait l'enregistrement sous le format xla
.SaveAs Resumer(0), xlAddIn
End With
End Sub