Commande écriture propriétés fichier

[Kristof]

Bonjour,

Je souhaiterai connaître la commande pour écrire dans le champ "Titre" des propriétés du fichier la valeur de la cellule B51.

Merci pour votre aide.

 

[MichelXld]

Re : Commande écriture propriétés fichier

bonjour

tu peux utiliser:

ThisWorkbook.BuiltinDocumentProperties("Title").Value = Range("B51")

Bonne journée
MichelXld

 

[Pierrot93]

Re : Commande écriture propriétés fichier

Bonjour Kristof

essaye le code ci dessous :

ActiveWorkbook.Title = Range("A1").Value

bonne soirée
@+

 

[Pierrot93]

Re : Commande écriture propriétés fichier

Aarf Michel, t'avais pas vu, bonne soirée

 

[Kristof]

Re : Commande écriture propriétés fichier

Merci, tout cela fonctionne correctement.