Creation d une touche dans une feuille pour realiser un pdf

Bonjour ,je souhaite créer une touche pour créer automatiquement un pdf et que ce dernier aille ce ranger dans un dossier bien precis .

J e vous joint mon fichier J'aimerais avoir une touche dans la feuille nommé feuil2 et aussi une autre touche dans la feuille nommé feuil3 ce sont des graphique que je doit mettre en pdf .Merci de votre aide car je ne sait pas comment faire .Cordialement Michael

Bonjour,

Crée un bouton sur ta "Feuil2" et affecte lui ce code (que tu adapteras...)

Sub TEST()

Dim graph As String
'adapter le nom sous lequel le fichier sera enregistré
graph = "\A ADAPTER.pdf"
'adapter le chemin du dossier (copier/coller le chemin depuis l'explorateur)
Dossier = "A ADAPTER"
Chemin = Dossier & graph

    ActiveSheet.ChartObjects("Graphique 2").Activate
    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveSheet.PageSetup.Zoom = 100
    ActiveChart.PlotArea.Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

Test et dis moi si ça fonctionne...

PS : Pas de Feuil3 dans ton classeur

Merci de votre reponse mais je suis un peu debutant avec excel pouvez vous me decrire la demarche a faire merci

Dans l'onglet Développeur, clique sur "Insérer" et choisis le contrôle de formulaire bouton (en passant ta souris sur les différentes formes le nom de la forme s'affiche), le bouton est la première forme normalement.

Tu "dessines" ton bouton sur ta Feuil2, et une boite de dialogue va apparaitre "Affecter une macro".

Tu cliques sur "Nouvelle" et tu colles le code que je t'ai donné dans la fenêtre qui s'ouvre

Une fois coller je clique sur quoi pour valider

Bonjour ai je des modif a faire dans ta formule cordialement

sincèrement j arrive pas

mic35 a écrit :

Une fois coller je clique sur quoi pour valider

Une fois que tu as collé le code tu lances la macro (F5)

si j'ai bien compris dans la macro tout ce qui est Anvers je dois modifier est-ce que j'ai d'autres choses à modifier

'adapter le nom sous lequel le fichier sera enregistré
graph = "\A ADAPTER.pdf"

remplacer A ADAPTER par le nom que tu veux donner au pdf (exemple : graph = "\graph1.pdf")

'adapter le chemin du dossier (copier/coller le chemin depuis l explorateur)
Dossier = "A ADAPTER"

remplacer A ADAPTER par le chemin de ton dossier.

je mets les guillemets au début et à la fin aussi désolé mais je suis à côté de la plaque avec Excel

Oui tu laisses les guillemets

Bonjour j ai un petit soucis quand je fait f5 cela me mets erreur voir piece jointe

Sur quelle ligne...?

je fait quoi la j appui sur quoi

A ton avis...

Il faut quand même lire ce que disent les boutons

Tu veux supprimer la macro ? Non

Tu veux Modifier/voir le déroulement de la macro pas à pas ? Pas encore, tu ne sais même pas si elle tourne

Tu veux Annuler le lancement de la macro ? Non

Donc... EXECUTER

quand je fait executer voila ce que cela me donne

Et quand tu cliques sur débogage ?

Ça surligne Dossier = "E:\graphique" ?

voila ce que cela affiche

Soit tu n'es pas sur la bonne feuille, sois tu as changé le nom du graphique