Discussion :

[alexb']

Bonjour à tous,

En cherchant des macros pour enregistrer des feuilles excel en pdf, j'ai trouver pas mal de solutions, qui marchaient plus ou moins bien.
J'ai réussi à me créer une macro sympa avec des ptites choses sympa...

Mais avec ma macro actuelle, qui marche parfaitement pour 95% du boulot à faire, j'ai un soucis sur l'enregistrement avec un nom définit dans la macro.

Voici ma macro actuelle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Tst_2007()
Dim Chemin As String, Fich As String, Rep As String, CheminComplet As String
 
Chemin = "c:\Users\" & Environ("username") & "\Desktop" & [B7].Value
Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
CheminComplet = Chemin & "\" & Fich & ".pdf"
Rep = Dir(Chemin & "\" & Fich & ".pdf")
 
If Rep = "" Then
    réponse = MsgBox("Voulez-vous enregistrer et visualiser votre offre de financement en PDF ?", vbYesNo)
    If réponse = vbYes Then
        MsgBox "Le fichier s'est enregistrer sur votre bureau. N'oubliez pas de changer son appelation."
Impression:
        ChDir Chemin
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rep, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
            :=False, OpenAfterPublish:=True 'affiche le fichier PDF
    Else
        MsgBox "Sortie de la procédure"
        Exit Sub
    End If
Else
    Réponse1 = MsgBox("Votre offre de financement a déjà été enregistrer sous ce nom. Souhaitez-vous le remplacer?", vbYesNo)
    If Réponse1 = vbYes Then
        MsgBox "Votre fichier a été enregistrer sur votre bureau. Votre précédent fichier a été remplacer."
        GoTo Impression
    Else
        MsgBox "Sortie de la procédure"
    End If
End If
End Sub

Avec cette macro actuelle, le doc pdf s'enregistre sur n'importe quel bureau avec le même nom que mon fichier excel. Par exemple "Excel.standard".

Et j'aimerais bien avoir un nom personnalisé en fonction de chaque client comme : "Excel.modifié_la date du jour_nom du client en cellule C22".



Je vous remercie à l'avance pour les réponses et n'hésitez pas si vous avez des questions.

[Theze]

Bonjour,

Remplace :

Code :

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

1
2
 
Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)

par :

Code :

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

1
2
 
Fich = [C22]

Où C22 contient le nom que tu souhaites donner à ton fichier

Hervé.

[alexb']

Bonjour Hervé,

Merci de ta réponse rapide.

Mais cela ne change rien par rapport à mon point de départ. C'est le nom de mon fichier qui se met sur le doc pdf et pas la valeur de la cellule C22...

[Theze]

Au boulot j'ai Excel 2003 et il ne peut m'enregistrer en pdf donc, je ne peux pas tester mais comme ta variable "Rep" est égale à "" puisque le fichier n'existe pas donc il prend le nom du classeur par défaut. il faut que tu passe en argument non pas la variable "Rep" mais la variable "CheminComplet" :

Code :

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

1
2
3
4
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True 'affiche le fichier PDF

Hervé.

[alexb']

Eh bien merci infiniment Theze pour cette réponse!

ça marche parfaitement!

Je n'avais pas saisi cette petite subtilité et je t'en remercie!