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