Assigner un niveau/label de sensibilité via une sauvegarde fait par un code VBA Excel

Bonjour,

Ma société oblige Excel à indiquer un niveau de sensibilité/confidentialité (sensitivity label) sur nos fichiers.

J'ai plusieurs macro VBA qui dupliquent une feuille du fichier mère et au moment de la sauvegarde automatique (ci-dessous le code très "basic") s'arrête pour me demander quel label ajouter (General, internal, confidential, etc..)

Comment puis je assigner un niveau/label automatiquement via VBA? 8O (Application.DisplayAlerts = False ne fonctionne pas)

Code:

---

1 2	ActiveWorkbook.SaveAs filename:= "G:\CheminDuNouveauFichier\NouveauFichier.xlsx" FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

---

j'ai essayé ci-dessous comme proposé par ChatGPT mais sans succès.

Code:

---

1 2 3

ActiveWorkbook.SensitivityLabel = 0 ActiveWorkbook.SaveAs filename:= "G:\CheminDuNouveauFichier\NouveauFichier.xlsx" FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

---

Merci par avance pour votre aide.

Bonjour,
Je pense qu'il faut plutôt se diriger vers la méthode SetLabel de l'objet SensitivityLabel.

Merci Valtrase , j'ai tenté des essais avec le code ci-dessous mais en vain.. j'avoue qu'une ligne de code me serait utile.

Code:

---

1 2 3 4

Dim SensitivityLabel As Object Set SensitivityLabel = ThisWorkbook.ContentTypeProperties.Labels.Add(1) SensitivitLabel.Label = "General"

---

Bonjour,
Je ne peux pas tester, mais j'ai trouvé cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub setlabel()   Dim docSenseLabel As SensitivityLabel Dim labelInfo As Office.labelInfo Dim wb As Workbook   Set wb = Workbooks.Add Set docSenseLabel = wb.SensitivityLabel   Set labelInfo = docSenseLabel.CreateLabelInfo() With labelInfo .AssignmentMethod = MsoAssignmentMethod.PRIVILEGED .LabelId = "the labelId you got" .LabelName = "Important or whatever label you saved earlier" .SiteId = "the site Id you got" End With   docSenseLabel.setlabel labelInfo, labelInfo   wb.SaveAs Filename:="C:\Users\filename", FileFormat:=51 wb.Close   End Sub

---

Sur ce fil ne discussion :
Voilà je ne peux en dire plus...