Beug macro enregistrement PDF

Le 14/12/2015 à 16:56

Bonjour à tous,

une macro que je n'ai pas créée mais que j'utilise beug...

voici la macro

Sub SauvPDF_EM()

' Macro Ensilage maïs : transfertBDD + impression en PDF

Dim chemin As String, NomPDF As String, Fichier As String

Sheets("Saisie Base").Select

Fichier = NomPDF & "_EM_" & Jour & Numechantillon & ".pdf"

chemin = ThisWorkbook.Path & Fichier

NomPDF = Range("B51")

Numechantillon = Range("C7")

Jour = Format(Day(Now()), "00") & Format(Month(Now()), "00") & Year(Now)

DiffNomPDF = Range("B1")

DiffDate = Range("C6")

DiffChemin = "C:\DoneEx\Diffusion\A_Envoyer\"

DiffJour = Year(DiffDate) & Format(Month(DiffDate), "00") & Format(Day(DiffDate), "00")

DiffFichier = DiffNomPDF & "_AAAEM_" & DiffJour & "_" & Numechantillon & ".pdf"

'sélectionner l'onglet "impr ens maïs"

Sheets("impr ens mais").Select

'selectionner ligne de données sur page d'impression

Rows("62:62").Select

'Range("A62:BA62").Select

Selection.Copy

ActiveWindow.ScrollRow = 13

'ActiveWindow.ScrollWorkbookTabs Sheets:=-1

'aller dans feuille BDD

Sheets("BDD").Select

'aller à la dernière ligne de la table

'ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count + 1).Select

ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count + 1).EntireRow.Select

'collage spécial des valeurs puis du format

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

'sélectionner l'onglet "impr ens maïs"

Sheets("impr ens mais").Select

'enregistrer la zone d'impression sous PDF

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas_:=False

'Sauvegarde Diff

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DiffChemin & DiffFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

'revenir en feuille SaisieBase

Sheets("Saisie Base").Select

Range("B11").Select

End Sub

Il s'agit d'enregistrer la zone d'impression sous format pdf.

Auriez vous des conseils pour débloquer ?

Merci d'avance

Le 14/12/2015 à 19:00

Bonjour,

pour commencer :

chemin = ThisWorkbook.Path & Application.PathSeparator & Fichier
Le 15/12/2015 à 21:20

En fait ça coince à

'Enregistrer la zone d'impression en pdf

Le 15/12/2015 à 22:44

Bonsoir

Je trouve beaucoup de choses étranges

Pourquoi faire copier/coller en page BDD, elle n'est pas utile pour le fichier Pdf ?

L'ordre de tes instructions pour construire le nom du fichier n'est pas valable

J'y ai inclus la correction proposée par Jean-Eric

essaie comme ceci

  Sheets("Saisie Base").Select

  NomPDF = Range("B51")
  Numechantillon = Range("C7")
  Jour = Format(Day(Now()), "00") & Format(Month(Now()), "00") & Year(Now)
  chemin = ThisWorkbook.Path & Application.PathSeparator & Fichier
  Fichier = NomPDF & "_EM_" & Jour & Numechantillon & ".pdf"

  DiffNomPDF = Range("B1")
  DiffDate = Range("C6")
  DiffJour = Year(DiffDate) & Format(Month(DiffDate), "00") & Format(Day(DiffDate), "00")
  DiffChemin = "C:\DoneEx\Diffusion\A_Envoyer\"
  DiffFichier = DiffNomPDF & "_AAAEM_" & DiffJour & "_" & Numechantillon & ".pdf"

Ensuite il te manque le nom du fichier pour la 1ère sauvegarde

A tester

  With Sheets("impr ens mais")
    'enregistrer la zone d'impression sous PDF
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin& Fichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
    'Sauvegarde Diff
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=DiffChemin & DiffFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With

Pour le moment pas vu autre chose

Si toujours pas ça joins ton fichier

Rechercher des sujets similaires à "beug macro enregistrement pdf"