XL 2013 [Résolu] l'endroit de l'impression ne se fait pas!

[bellenm]

Bonjour à tous,

Je crois qu'il doit y avoir un problème dans ma 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:$p$36" ' les cellules

Imprimer = MsgBox("Voulez-vous imprimer (répondre oui) ou créer un pdf (répondre non) ?", vbYesNo)
    If Imprimer = vbYes Then
        'Sub IMPRIMER_Papier() 'placer ici le code qui va bien : regarde le message #3 tu as pratiquement tout ce qu'il faut dedans
ActiveSheet.PrintPreview
    '    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        'End Sub
Else
  'fichier pdf placé dans au même endroit que ce fichier Excel

  chemin = "m:\" '\AC GRACE\COPIE CARTE\AC GRACE\BAR\"
  NomFichier = "BAR du " & Range("B3").Value

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

il faudrait donc qu'il imprime le fichier en pdf vers: "m:\AC GRACE\COPIE CARTE\AC GRACE\BAR\"
Comme rien ne se passait j'ai cru qu'il devait y avoir une erreur dans le chemin d'où: "m:\"

Pouvez-vous m'éclairer, ce serait super sympa.

Bonne lecture à tous et merci d'avance pour vos solutions

Marc

 

[Robert]

Bonjour Marc, bonjour le forum,

Peut-être comme ça :

chemin = "m:\AC GRACE\COPIE CARTE\AC GRACE\BAR\"
NomFichier = "BAR du " & Range("B3").Value

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

 

[bellenm]

Bonjour Robert,

voilà j'ai vu mon erreur n'étant pas informaticien ce qui est une évidence pour vous ne l'est pas nécessairement pour moi, super merci.

Juste un petit truc dans le nom du fichier = "Bar du" jusque là ok mais après comment formuler que la date rentrée en cellule "B3" doit être transformer au format américain? ainsi tous mes fichiers iront du plus ancien au plus nouveau dans mon dossier.

Merci d'avance Robert ou les autres.

Marc