Bonjour,
J'ai besoin de récupérer dans le presse papier le chemin d'accès complet au
fichier en cours.
Comment s'écrirait sous Word une macro réalisant cela ?
Yves
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
Bonjour !
"Yalbrieux" nous a écrit ...
J'ai besoin de récupérer dans le presse papier le chemin d'accès complet au fichier en cours. Comment s'écrirait sous Word une macro réalisant cela ?
Public Sub Chemin_In_Ze_PressePapiers() Dim monChemin As New DataObject monChemin.SetText ActiveDocument.Path _ & Application.PathSeparator _ & ActiveDocument.Name monChemin.PutInClipboard Set monChemin = Nothing End Sub
Pour utiliser DataObject il faut soit avoir une UserForm dans son projet soit référencer Microsoft Forms 2.0
Anacoluthe « Avez-vous jamais entendu la marchande de poissons dire que le maquereau sent mauvais ? » - John WILSON
Bonjour !
"Yalbrieux" nous a écrit ...
J'ai besoin de récupérer dans le presse papier le chemin d'accès
complet au fichier en cours.
Comment s'écrirait sous Word une macro réalisant cela ?
Public Sub Chemin_In_Ze_PressePapiers()
Dim monChemin As New DataObject
monChemin.SetText ActiveDocument.Path _
& Application.PathSeparator _
& ActiveDocument.Name
monChemin.PutInClipboard
Set monChemin = Nothing
End Sub
Pour utiliser DataObject il faut soit avoir une UserForm
dans son projet soit référencer Microsoft Forms 2.0
Anacoluthe
« Avez-vous jamais entendu la marchande de poissons
dire que le maquereau sent mauvais ? »
- John WILSON
J'ai besoin de récupérer dans le presse papier le chemin d'accès complet au fichier en cours. Comment s'écrirait sous Word une macro réalisant cela ?
Public Sub Chemin_In_Ze_PressePapiers() Dim monChemin As New DataObject monChemin.SetText ActiveDocument.Path _ & Application.PathSeparator _ & ActiveDocument.Name monChemin.PutInClipboard Set monChemin = Nothing End Sub
Pour utiliser DataObject il faut soit avoir une UserForm dans son projet soit référencer Microsoft Forms 2.0
Anacoluthe « Avez-vous jamais entendu la marchande de poissons dire que le maquereau sent mauvais ? » - John WILSON
