Excel 2007 VBA pdf nom fichier

Bonjour à tous et à toutes !

Lorsque je clique sur le bouton vba j aimerai que le nom d enregistrement se mette en fonction d une cellule dont la valeur est dans c1

j ai excel 2007

Voici le code que j'ai :

Sub loc1pdf()

Sheets("charges").select

Application.goto reference :="Zone_d_impressionLOC1"

ExecuteExcel4Macro "Print(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"

End Sub

Que dois-je rajouter svp pour que le nom du fichier prenne le nom de la valeur C1 svp ?

Je vous remercie par avance pour votre aide.

Belle fin de journée à vous

Bonjour VirginieP et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER] ainsi que ses fonctionnalités
qui vous aideront dans vos demandes et réponses sur ce forum.

Concernant votre demande, une petite recherche sur le forum vous aurait permis de trouver ceci
https://forum.excel-pratique.com/s/goto/138882

Merci de votre participation

Cordialement

Bonjour

Merci beaucoup pour votre réponse. Le pire c est que j ai cherché avant de poster.

Après le petit déjeuner je vais copie coller votre macro et tester

Merci pour votre aide.

Je vous fais un retour dès que j ai testé

Belle journée à vous

Rebonjour

Ca ne fonctionne pas du tout pour moi 😕

La macro que j avais fonctionne mais le seul hic c est pour le nom d enregistrement.

Il faut juste rajouter 1 commande pour lui dire que le nom d enregistrement se trouve en cellule c1.

Sub pdfloc1()

Dim Name As String

Name=Range("C1").value

Filename=Name

Application.goto référence :="Zone_d_impressionLOC1"

ExecuteExcel4Macro " Print(1,,,1,,,,,,,,,1,,,True,,False)"

End sub ()

Ce n est pas suffisant. La macro s exécute mais je dois ajouter à la main le nom pour enregistrer le fichier....Il prend pas du tout en compte la commande filename 😕

Pouvez-vous svp me dire ce que je dois rajouter à ma macro ?

Merci beaucoup pour votre réponse.

Bonjour Virginiep

Non, la macro que vous avez ne fonctionne pas, puisque vous ne pouvez pas mettre de nom

De plus Microsoft est en train de faire des modifications de sécurité concernant les Macros Excel 4,
je vous conseille de passer à autre chose

Ensuite, quand vous dites

Ca ne fonctionne pas du tout pour moi

Ce n'est absolument pas explicite, qu'est-ce qui ne fonctionne pas, quel est ou quels sont les messages d'erreur

Joindre un fichier anonymisé pourrait être bien plus simple

A+

Merci pour votre réponse.

Tant pis je laisse tomber. Je mettrais le nom du fichier à la main.

Belle journée à vous et merci pour vos retours.

Re,

Et bien bravo d'abandonner si vite
parce qu'on ne vous donne pas la réponse que vous attendez

Quel dommage

je n ai pas abandonné si vite. J ai fait une multitude de test avant d oser demander sur le forum. Je ne sais pas du tout comment faire. J attendais pas forcément une réponse toute faite. Juste une explication de ce qui manque pour m en souvenir la prochaine fois.

C est juste pour aujourd'hui le j abandonne...je sais que dans quelques jours je vais réitérer des tests si j ai de nouvelles idées...

Re,

Désolé... mais vous savez nous en voyons tellement
De plus vous ne nous dites pas que vous ne connaissez pas VBA

Voici un code qui devrait fonctionner

Sub Loc1Pdf()
  Dim sPath As String, sNomFic As String
  ' Chemin d'enregistrement du PDF
  sPath = "C:\Temp\"
  ' Avec la feuille à traiter
  With Sheets("charges")
    ' Nom du fichier d'enrezgistrement
    sNomFic = .Range("C1") & ".pdf"
    ' Définir la zone d'impression du nom définit
    .PageSetup.PrintArea = Range("Zone_d_impressionLOC1").Address
    ' Exporter l'impression en PDF
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & sNomFic, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      From:=1, To:=1, OpenAfterPublish:=False
  End With
End Sub

A+

Merci beaucoup j essayerai dès que possible.

Bonne fin de journée à vous

Bonjour

voici ce que j ai comme code.

lorsque je lance la macro je n ai pas de message d erreur. J ai bien le message box " le fichier est enregistré " mais impossible de le retrouver dans l ordi. Il fait semblant de l enregistrer ou le fichier est super bien caché lol

merci beaucoup pour votre aide

belle journée à tous

Bonjour Virginiep

Le répertoire par défaut que j'ai mis est juste à titre indicatif

sPath = "C:\Temp\"

Si vous l'avez sur votre PC vous retrouverez les fichier dedans, sinon, il faut modifier cette arborescence

A+

Oui j ai changé lol mais non ca ne marche pas du tout. Pas de message d erreur rien ca génère rien...Étrange 🤷‍♀️

Merci quand même pour vos réponses

Re,

Est-ce que la zone nommée "Zone_d_impressionLOC1" est bien définit dans votre fichier

Je peux vous affirmer que cela fonctionne

Image à l'appuie

Oui zone d impression loc1 est bien dans la zone du fichier.

Peut-être que vu que j ai excel 2007 peut-être que cette vieille version ne reconnaît pas du tout ce code ? 🤷‍♀️

Merci pour votre exemple. Je vais pouvoir voir si j ai mal saisie le code.

je viens d y penser : ma cellule c1 est le résultat d une formule. Est-ce que ca peut bloquer ?

Belle soirée à vous

Re,

Arf oui... j'ai complètement oublié ce paramètre

Profitez en pour remplir votre profil public SVP
https://www.excel-pratique.com/fr/compte/forum-profil

Je ne sais pas si sur Excel 2007 il y a le menu "Publié" ou "Exporter"

De toute façon vous verrez bien avec mon fichier qui fait le job... normalement

A+

Bonsoir

sur excel 2007 pour creer un pdf manuellement je n ai pas la possibilité de publier ou d exporter. La création d'un pdf se fait par la sélection d une impression en format PDF.

j ai peut être une piste ^^

il faut que je trouve le temps de tester.

si ca marche je partagerai mon code pour ceux qui ont excel 2007.😉

belle soirée à tous