Enregistrer sous pdf

Bonjour

J'ai un classeur avec plusieurs feuilles dont une qui se nome "MATRICE" que je souhaite enregistrer au format PDF. Jusque là ça va.

J'aimerai que le nom de mon fichier ainsi enregistré soit la valeur de la cellule "F1" de ma feuille "MATRICE". Là ça se complique un peu..

Petite subtilité, j'aimerai que le fichier s'enregistre vers le chemin d'accès contenu dans la cellule "G2" d'une autre feuille qui se nome "DATA". Là je sèche complètement.

Pouvez vous m'aider ?

Merci d'avance.

Bonjour,

Pour cela :

Sub print_pdf()

    'Déclaration des variables
    chemin = ActiveWorkbook.Sheets("DATA").Range("G2").Text
    fichier = ActiveWorkbook.Sheets("MATRICE").Range("F1").Text

    'Lancement de la saugarde PDF
    ActiveWorkbook.Sheets("MATRICE").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & "\" & fichier & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

A tester

Cdt

Merci Valc !

Je viens de tester et j'ai une erreur :

"Erreur de compilation variable non définie"

A priori le problème vient de :"Chemin ="

Encore merci

Re,

Dim chemin, fichier as string 

Sub print_pdf()

    'Déclaration des variables
    chemin = ActiveWorkbook.Sheets("DATA").Range("G2").value
    fichier = ActiveWorkbook.Sheets("MATRICE").Range("F1").value

    'Lancement de la saugarde PDF
    ActiveWorkbook.Sheets("MATRICE").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & "\" & fichier & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Merci Valc mais j'ai encore une erreur que je n'arrive pas à résoudre

Argument ou appel à procédure incorrect

ActiveWorkbook.Sheets("MATRICE").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

chemin & "\" & fichier & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Bonjour,

essaie ainsi :

Public Sub Create_PDF()
Dim ws As Worksheet, ws2 As Worksheet
Dim strPath As String, strFilename As String
    With ActiveWorkbook
        Set ws = .Worksheets("MATRICE")
        Set ws2 = .Worksheets("DATA")
    End With
    strPath = ws2.Cells(2, 7).Value & "\"
    strFilename = strPath & ws.Cells(6).Value & ".pdf"
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilename
End Sub

Re,

@ Valc,

Je n'avais pas vu ta réponse (!?).

Bon, si ta proposition ne fonctionne pas, je doute que la mienne fasse mieux !...

Il y a donc des points à vérifier (nom feuille, valeurs dans les cellules F1 et G2).

Cdlt.

Bonjour,

Bizarre, car sur mon ordinateur tout fonctionne nikel

Bonjour,

Idem pour moi !...