bellenm
XLDnaute Impliqué
Bonjour à tous,
J'ai un problème toujours pas résolu c'est pour cela que je me tourne vers vous.
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.
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:
VB:
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 SubUn grand merci pour votre aide, cela ne devrait pas être trop compliqué pour vous qui jongler avec les formule de toute sorte.
Marc B.