Problème macro enregistrement pdf

Bonjour,

Je souhaite créer une macro pour enregistrer ma feuille excel en pdf.

Après avoir un peu fouillé sur internet je suis tombé sur la seul qui, après adaptation, ne déconnait pas et ne m'affichait pas de message d'erreur. le but, après, est de le ,modifier pour l'enregistrer à deux emplacements mais une chose à la fois

Voici mon code:

Sub verspdf()
Dim CheminDossier As String

On Error GoTo 1

CheminDossier = Range("A2").Value

If NomDossier = "" Then Exit Sub

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & Range("A1").Value & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1, openafterpublish:=False

1
End Sub

Le problème est qu'il ne fait rien. Il ne créer aucun fichier et il ne m'affiche aucune erreur.

Qu'est-ce que ca dit de votre coté ?

16pdf.xlsm (17.10 Ko)

Bonjour,

Essaie ainsi :

Option Explicit

Public Sub Create_PDF()
Dim sPath As String, sFile As String
    sFile = [A1].Value: sPath = [A2].Value
    If sFile = "" Or sPath = "" Then Exit Sub
    If Right(sPath, 1) <> "/" Then sPath = sPath & "/"
    On Error GoTo err_Handler
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sPath & sFile & ".pdf", _
            quality:=xlQualityStandard, _
            includedocproperties:=True, _
            ignoreprintareas:=False, _
            openafterpublish:=False
    err_Handler
    MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description
End Sub

J'ai un message d'erreur qui dit:

"Erreur de compilation"

"Erreur de synthaxe"

Il surligne en jaune

Public Sub Create_PDF()

et en bleu

sFile = [A1].Value: sPath = [A2].Value

Re,

Fonctionnel chez moi (j'ai cependant apporter une modification).

Cdlt.

16pdf.xlsm (24.18 Ko)
Option Explicit

Public Sub Create_PDF()
Dim sPath As String, sFile As String
    sFile = [A1].Value: sPath = [A2].Value
    If sFile = "" Or sPath = "" Then Exit Sub
    If Right(sPath, 1) <> "/" Then sPath = sPath & "/"
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sPath & sFile & ".pdf", _
            ignoreprintareas:=False, _
            openafterpublish:=False
    Exit Sub
err_Handler:
    MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description
End Sub

bonjour

voila une macro

a toi de faire le format

A+

Maurice

Sub EditionPdf()
' mettre le format
' Code ........
   Chemin = ThisWorkbook.Path & "\"
   NomFiche = Chemin & "Banque" & Format(Now, "-dd-mmmm-yyyy") & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
   MsgBox "Edition Terminer"
End Sub

Re,

Pourquoi ai je supprimé le Quality ?

Jean-Eric

J'ai exactement le même message d'erreur qu'avant, c'est bizarre :\

Re,

Pour tester, j'ai modifié le chemin du dossier.

Regarde le chemin du dossier de ton fichier. Assure toi qu'il existe !

N'as-tu pas un message d'erreur ?

Cdlt.

Je suis sur et certain oui .. J'ai utilisé ce même chemin pour une autre macro :s

bonjour

voila par rapport a ton modèle

A+

Maurice

Sub verspdf()
If Range("A1").Value = "" Then Exit Sub
If Range("A2").Value = "" Then Exit Sub
'   Chemin = ThisWorkbook.Path & "\"
'   NomFiche = Chemin & "STAT" & Format(Now, "-dd-mmmm-yyyy") & ".pdf"
Chemin = Range("A2").Value
NomFiche = Chemin & Range("A1").Value & ".pdf"
'Sheets("Stat").Select
' Format une page A4
'   With ActiveSheet.PageSetup
'       .PrintArea = "$B$5:$R$36"
'       .Zoom = False
'       .FitToPagesWide = 1
'       .FitToPagesTall = 1
'   End With
   Call EditionPDF(NomFiche)
 MsgBox "Edition Terminer"
End Sub

Sub EditionPDF(NomFiche)
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End Sub

Mh, j'obtiens cette là en utilisant ton code :

erreur excel 2

bonjour

il faut enlever tous les espaces quand tu fait copier coller ses un problème du code

Sub EditionPDF(NomFiche)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=NomFiche, _

Quality:=xlQualityMinimum, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

End Sub

A+

Maurice

19pdf.xlsm (17.72 Ko)

Mais même si je reprends ton fichier mis en pièce jointe, j'ai tout de même un message d'erreur.

Peut être qu'il y a un souci de mon coté, sur mon ordi mais mes autres macros fonctionnent, donc c'est curieux :s

J'ai comme message d'erreur: "Erreur d'exécution '5':

"Argument ou appel de procédure incorrecte"

erreur excel 2

bonjour

avec test du répertoire

A+

Maurice

Sub verspdf()
If Range("A1").Value = "" Then Exit Sub
If Range("A2").Value = "" Then Exit Sub
Chemin = Range("A2").Value
If Dir(Chemin, vbDirectory) = "" Then
MsgBox "pas trouver le chemin ? "
Chemin = ThisWorkbook.Path & "\"
End If
NomFiche = Chemin & Range("A1").Value & ".pdf"
Call EditionPDF(NomFiche)
MsgBox "Edition Terminer"
End Sub

Au risque d'être relou, ça ne fonctionne toujours pas. Je vais essayer sur mon autre ordi mais je ne pense pas qu'il y aura une grande différence :s

Bon, c'est un problème qui de mon ordi portable apparemment.

En essayant ton code sur ma tour, tout a bien fonctionné.

Merci pour ta/votre patience. Le sujet est clos.

bonjour

pour tester un faut déjà mettre ton fichier dans un repertoire

A+

maurice

Dans les 2 cas mon fichier était dans mon bureau et fonctionnel sur ma tour,

Qu'entends-tu par la fait qu'il faut un répertoire ? Le bureau est un répertoire, je ne t'apprends rien

Et pour ce qui est du répertoire indiqué dans le fichier Excel c'était exactement le même

Bonjour,

Le souci vient peut-être don chemin (le bureau).

De mémoire, on ne met pas de fichiers sur le bureau. Ce dossier est un dossier 'système' et il ne doit comporter que des raccourcis.

Le moindre changement 'système' (point de restauration, mise à jour majeure, etc...) réinitialise le bureau avec un risque avéré de perte de fichiers.

Bon, maintenant, j'écris peut-être une c******e.

On me corrigera si nécessaire.

Cdlt.

Rechercher des sujets similaires à "probleme macro enregistrement pdf"