Comment copier / coller les DOCPROPERTIES en VBA

Bonjour,

P.S..: Je suis quelqu'un de NUL en VBA, veuillez donc être très clair dans vos réponses ou envoyez un code fonctionnel que je pourrai adapter à ma situation.

Voici la mise en situation: Je dois faire un COPIER / COLLER des VALEURS se trouvant sous l'onglet ( Personnalisation )

du menu ( Fichier - Propriétés - Personnalisation ).

Les VALEURS sont copiées du menu ci-haut et collées vers un fichier RTF.

NOTE: Ma situation RÉELLE est dans MS-Word mais je crois pouvoir adapter le code VBA de XL vers WORD.

Tant mieux si vous m'envoyez le code pour WORD.

MERCI BEAUCOUP !!!!!

Salut le forum

Macro pour Word

Sub Boucle_CustomDocumentProperties()
    Dim Cp As DocumentProperty

    If ActiveDocument.CustomDocumentProperties.Count = 0 Then Exit Sub

    For Each Cp In ActiveDocument.CustomDocumentProperties
        MsgBox Cp.Name & vbLf & Cp.Value
    Next Cp
End Sub

Mytå

Myta, je te remerci à l'avance pour ton coup de main !!!!!!

Je viens d'essayer ton code, il fonctionne mais, ceci règle seulement une partie la situation.

Le code que tu a envoyé règle la partie du copier, mais pas la partie du coller.....

Voir dans la question de départ: (Les VALEURS sont copiées du menu ci-haut et collées vers un fichier RTF).

Ah ! pendant que j'y pense...... Comment ouvrir un fichier par du code VBA ?????

MERCI BIEN !!!!!