Formule pour insérer une date américaine dans un fichier à sauvegarder en PDF

[bellenm]

Bonjour à tous,

J'ai un problème toujours pas résolu c'est pour cela que je me tourne vers vous.

• J'ai un fichier avec une macro pour enregistrer sous "PDF".
• Le problème c'est sûrement la formule.
• Il faudrait que le fichier s'enregistre avec la date qui est inscrite dans la cellule "C3", çà se fait très bien mais ce que j'aimerais c'est que la date garde le format américain une fois crée.
• Voici la formule:

Sub ZoneImpressionEnPdfMacroChoix()
Dim ImprActuelle As String, ImprNouv As String, chemin As String, NomFichier As String, ws As Worksheet, Imprimer

Set ws = Worksheets("BAR") 'la feuille
ws.PageSetup.PrintArea = "$b$2:$ab$37" ' les cellules

Imprimer = MsgBox("Voulez-vous imprimer (répondre oui alors n'oubliez pas de masquer la ligne T) ou créer un pdf (répondre non) ?", vbYesNo)
    If Imprimer = vbYes Then
       ActiveSheet.PrintPreview
            'IgnorePrintAreas:=False
        
Else
     chemin = "d:\BAR\"
NomFichier = "BAR du " & Range("c3").Value ' ici ou ailleurs définir le format américain de la cellule c3, dans le fichier la cellule est bien formaté en date américaine

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   chemin & NomFichier, Quality:=xlQualityStandard, _
   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
  False
End If
 
End Sub

Un grand merci pour votre aide, cela ne devrait pas être trop compliqué pour vous qui jongler avec les formule de toute sorte.

Marc B.

 

[Jacky67]

NomFichier = "BAR du " & Format(Range("c3"), "yyyymmdd") ' ici ou ailleurs définir le format américain de la cellule c3, dans le fichier la cellule est bien formaté en date américaine

Bonjour,
Cette ligne pour choisir le format à utiliser.(A adapter)
Une date valide en C3
NomFichier = "BAR du " & Format(Range("c3"), "yyyymmdd")

 

[bellenm]

Bonjour Jacky67,

merci pour ta rapidité cela fonctionne a merveille.
j'ai juste adapté le format:

NomFichier = "BAR du " & Format(Range("c3"), "yy""-""mm""-""dd")

Un grand merci et bonne journée à toi et aux autres XLD.

Marc B.

 

[Jacky67]

Bonjour Jacky67,

merci pour ta rapidité cela fonctionne a merveille.
j'ai juste adapté le format:

NomFichier = "BAR du " & Format(Range("c3"), "yy""-""mm""-""dd")

Un grand merci et bonne journée à toi et aux autres XLD.

Marc B.

Re..
Alors ceci est suffisant
NomFichier = "BAR du " & Format(Range("c3"), "yy-mm-dd")

 

[bellenm]

ok, merci Jacky67