Enregistrer feuille Excel e pdf avec une date précise

Bonjour tout le monde,

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

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

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.

Bonjour Albatros182,

Utiliser :

Format(Sheets("Saisie des Effectifs").[K2], "d/mm/yyyy") & "fiche prod chaud"

Bons tests, bonne continuation.

Bonjour et merci pour ta réactivité.

Jai entré le code suivant :

Sub Edition_Chaud_pdf()

 Sheets("Chaud").Select
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\" & Format(Sheets("Saisie des Effectifs").[K2], "d/mm/yyyy") & "fiche prod chaud"    

End Sub

Mai il ne fonctionne pas et se met en deboutage.

Est ce que tu vois d'où peut venir le problème?

A nouveau,

Le code transmis suite à ton 1ier message était pour t'indiquer le traitement habituel fait à une date inscrite dans une cellule.

Il te manque une parenthèse finale dans l'exemple que tu renvoie. Sinon

Au tout début de ton code fait :

Datum as String

Datum = Format(Sheets("Saisie des Effectifs").[K2], "d/mm/yyyy")

Ensuite & Datum & " fiche prod chaud "

Plus long mais identique en traitement.

Je sais que je suis un peu lourd.

Mais je ne vois pas où il me manque une parenthèse finale. J'en ai deux ouvertes et deux fermés.

Je ne suis pas un pro de VBA, est ce que tu peux être un peu plus précis et te mettre à mon niveau stp??

J'ai fait plusieurs tentatives et il me met toujours en déboutage.

Suite,

Juste pour voir, la cellule L2 est-elle libre? ou la cellule K3 ou une cellule libre proche de K2

Ainsi puisque K2 comporte une date. La cellule L2 comportera =Texte(K2;"j/mm/aaaa") ou autre cellule libre.

Et c'est cette cellule L2 (ou autre) que ta macro récupère ensuite .

Lance alors ta macro corrigé, appelant la cellule L2 (ou autre) et vérifie que le PDF est ok.

La cellule K3 est libre.

Mais lorque je rentre :

=TEXTE(K2;"j/mm/aaaa")

J'obtient le même format que la cellule K2. Elle est déjà sous ce format là.

Donc j'obtient le même déboutage que précédemment.

Suite,

Je viens de tester. Les / posent souci dans le format fichier

Donc toujours

Datum= Format(Sheets(.....etc....yyyy") & " fich prod chaud "

Datum= Replace(Datum, "/", "-")

Et ensuite tu peux faire l'export avec Datum en fin de ta ligne de code. Donc Filename:="F:\" & Datum

Donc, ton code final est

Sub Edition_Chaud_pdf()
Datum= Format(Sheets("Saisie des Effectifs").[K2], "d/mm/yyyy") & " fiche prod chaud "    
Datum= Replace(Datum,"/","-")
Sheets("Chaud").ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\" & Datum
End Sub

Super,

Cela marche parfaitement.

C'est exactement ce qu'il me fallait.

Tu est officiellement sur ma liste de héros…………..

A nouveau,

Un héros fatigué ce matin

Il m'a fallu un peu plus de temps pour résoudre. Bon il est vrai que j'ai répondu sans tester sur l'ordi dans un 1ier temps.

Merci pour ton encouragement.