Macro exporter vers PDF plusieurs fois

salut tout le monde,

j ai déjà poster sur ce sujet mais peut être je n'était pas si clair. voila

j'ai un classeur excel avec deux feuille (la première comme base de donnée et la deuxième comme formulaire), je veux à chaque fois que je change de valeur dans la cellule B2 (liste déroulante) de la 2 ème feuille j'exporte le résultat vers PDF. le nom du fichier pdf doit être la valeur de B2 & E5 & G5.

merci d avance

Salut belaziz,

à tester

1- il faut adapter le chemin de sauvegarde

2- macro à ajouter dans le module de la feuille "AVIS"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveSheet.Range("A2:J27").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\temp\pdf\" & Range("B2").Value & Range("E5").Value & Range("G5").Value & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True
    End If
End Sub

merci m3ellem1 pour le retour

je crois qu il y a quelques choses qui ne va pas

belaziz10 a écrit :

je veux à chaque fois que je change de valeur dans la cellule B2 (liste déroulante) de la 2 ème feuille j'exporte le résultat vers PDF. le nom du fichier pdf doit être la valeur de B2 & E5 & G5.

il faut faire un changement dans la cellule B2 pourque la macro se déclenche!!

okey parfait. un grand Merci pour votre réactivité.

Maintenant si je veux qu'il exporte tous les fichier pdf en une seul fois sans que je change la valeur de B2.

cela pourrait être utile si nous avons plusieurs valeurs dans B2.

moi en cherchant un peu partout, j'ai essayer ce code:

Sub export_1_pdf()
Dim number As String, name1 As String, name2 As String
Range("B2") = Range("B2") + 1

number = Sheets("Avis").Range("B2")
name1 = Sheets("Avis").Range("E5")
name2 = Sheets("Avis").Range("G5")

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\LENOVO\Desktop\AVIS\" & number & "-" & name1 & name2 & " .pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Sub export_all_pdf()
Dim compteur As Long
For compteur = 1 To 166
Call export_1_pdf
Next compteur
End Sub

excellent!!