Discussion :

[Florent6744]

Bonjour,

Je suis sur que cette demande a été faite 1 millon de fois mais je n'arrive pas a trouver ce que je cherche.

J'aimerais ouvrir un fichier excel et passer par une macro pour l'enregistrer en pdf dans le dossier "source" avec le nom "source".

Chaque fois que je trouve des sujets le nom change ou le dossier est a choisir.
Enfin bref jamais le truc tout simple.

Merci de votre aide.

[riaolle]

Bonjour,

Quel est ton code actuel ? (écris-le avec les balises codes)

Pour avoir le chemin du classeur : Path.
Pour avoir le nom du classeur : Name.

Par exemple :

Code :

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

1
2
3
4
5
6
7
Dim chemin As String
Dim nom As String
 
chemin = ThisWorkbook.Path
nom = ThisWorkbook.Name
 
'et ensuite il n y a plus qu à intégrer cela dans la procédure qui permet d'enregistrer en PDF

[Florent6744]

Pardon j'ai oublié la base.

Mon code pour le moment c'est çà:

Code :

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

1
2
3
4
5
ChDir "C:\Users\florent\Desktop\a classer sur réseau"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\florent\Desktop\a classer sur réseau\DV20-288.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

Du coup si je comprend ce que tu me dis le code devrait etre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim chemin As String
Dim nom As String
 
chemin = ThisWorkbook.Path
nom = ThisWorkbook.Name
 
ChDir "chemin"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "chemin\nom.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

Compliquer quand on s'y met sans en faire tout les jours.

[Menhir]

Code :

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

1
2
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True, _
    Filename:= ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

[Florent6744]

merci pour l'info.

J'ai essayé et ca marche presque nickel.

Le seul souci c'est que mon fichier blabla.xlsx s'enregistre bien en PDF mais sous le nom blabla.xlsx.pdf

Comment faire oublier l’extension excel?

[Menhir]

Code :

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

Filename:= ActiveWorkbook.Path & "\" & Split(ActiveWorkbook.Name, ".")(0)

[Florent6744]

Merci pour votre aide ça marche impeccable.