Impression chemin complet

[Risleure]

Bonjour le Forum

J'utilisais le code ci dessous récupèré sur ce merveilleux Forum.
Mais il ne fonctionne plus 🙁

Le message est :
Erreur d'éxécution '50290'
La méthode 'FullName' de l'objet '_Workbook' a échoué.

Et là je sèche. Si je remplace .FullName par .Name c'est OK mais c'est pas ce que je veux.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ThisWBPath As String
Dim NomDeLaFeuille As String
NomDeLaFeuille = ActiveSheet.Name
ThisWBPath = ActiveWorkbook.FullName
Sheets(NomDeLaFeuille).PageSetup.LeftFooter = ThisWBPath & " / &A"
End Sub

Merci

 

[coco_lapin]

Re : Impression chemin complet

Bonjour le forum.

Moi ça marche, pas d'erreur. J'ai Excel 2000 et toi?
Tu as une erreur sur quelle ligne de code? Pourrais-tu envoyer ton classeur?

 

[Creepy]

Re : Impression chemin complet

Bonjour le Forum,

Remplace ta commande par ca :

ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

Ca revient au même !

A+

Creepy

 

[Risleure]

Re : Impression chemin complet

Merci Creepy, j'ai remplacé comme tu me le dis
ThisWBPath = ActiveWorkbook.FullName
Par
ThisWBPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

Et ça roule 🙂

Merci coco_lapin, j'ai la version 2000 mais ce code a fonctionné par le passé, une maj d'Excel le fait peut être bugué, je ne sais vraiment pas.

Merci pour votre aide précieuse.

 

[papapaul]

Re : Impression chemin complet

🙄 Bonjour,
Si ca peut t'aider, un exemple.
qui met le chemin en pied de Page

Private Sub Workbook_BeforePrint(Cancel As Boolean)

With ActiveSheet.PageSetup

'ajoute le chemin d'accès et le nom de fichier sur toutes les pages
'Le nom de la feuille et x/x feuilles à droite
.LeftFooter = ActiveWorkbook.FullName
.CenterFooter = "&""Arial,Gras""&10"
.RightFooter = "&""Arial,Gras""&A " & "Page " & "&P" & " sur " & "&N"

End With
End Sub