Discussion :

[Albatros182]

Bonjour tout le monde,

Je voudrais exporter une feuille excel via macro en pdf aev une date qui se trouve dans une case.

J'utilise la code suivant qui fonctionne très bien :

Code :

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

1
2
3
4
5
6
Sub Edition_Chaud_pdf()
 
 Sheets("Chaud").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\" & Worksheets("Saisie des effectifs").[D1] & " " & Worksheets("Saisie des effectifs").[E1] & Value & " fiche prod chaud "
 
End Sub

Les cases D1 et E1 contiennent des valeurs en lettre.

Lorsque je transpose E1 par K2 dans le code, qui contient une date (pas forcément celle du jour) qui sera renseigné................... elle plante. Je penses que c'est une histoire de format.

Est ce que quelqu'un à une solution ?

Merci d'avance.

[Invité]

Bonjour,

Ce sont les slashs dans la date qui posent problème. Ci-dessous, une fonction qui transforme une date en string au format AAAA-MM-DD :

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
 
Sub TestDateDeSauvegarde()
 
    MsgBox DateSauvegarde(Range("E1"))
 
End Sub
 
 
Function DateSauvegarde(ByVal MaDate As Date) As String
 
Dim MonTableau As Variant
 
    MonTableau = Split(MaDate, "/")
    DateSauvegarde = MonTableau(2) & "-" & MonTableau(1) & "-" & MonTableau(0)
 
End Function

[Albatros182]

J'ai essayé plusieurs codes, mais je n'arrive pas à l'intégrer dans le mien.

A chaque fois il me met en déboutage.

Je ne vois pas comment l'intégrer.

Peux tu me mettre sur la piste?

[Invité]

La fonction DateSauvegarde est placée dans un module standard.

Code :

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

1
2
3
4
 
    With Sheets("Chaud")
         .ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\" & Sheets("Saisie des effectifs").[D1] & " " & DateSauvegarde(Sheets("Saisie des effectifs").[E1]) & " fiche prod chaud"
    End With