Discussion :

[VBA1987]

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? (Application.DisplayAlerts = False ne fonctionne pas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci par avance pour votre aide.

[Valtrase]

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

[VBA1987]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Valtrase]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...