Discussion :

[frlyon81]

Bonjour,

je rencontre une difficulté sur une macro, si une personne peut m'aider !!!!

Je veux convertir une feuille excel en format pdf et l'enregistrer dans un dossier (toujours le même) = ça sa marche bien,

mais je souhaite l'enregistrer au nom d'un texte dans une cellule !! = ça je n'y arrive pas...

le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton2_Click()
 
    ChDir "Z:\Fax\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Z:\Fax\ActiveSheet.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 
End Sub

La le fichier est enregistrer avec comme nom : ActiveSheet

Merci pour votre aide

[NVCfrm]

bonsoir,

tu peux désigner la valeur de ta cellule à la place d'ActiveSheet

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim nom_fichier as String
 
nom_fichier = "Z:\Fax\" & Worksheets("MaFeuille").Range("A1").value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= nom_fichier...