Macro enregistrer en PDF [Résolu]

Réponse 2 / 12

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

pour le chemin, vous n'avez besoin que de Dossier et Fichier et pas besoin de rep

Réponse 3 / 12

tooney05 Messages postés 37 Date d'inscription Statut Membre Dernière intervention 12

comme ceci?

Ça ne marche pas mieux...

Réponse 4 / 12

tooney05 Messages postés 37 Date d'inscription Statut Membre Dernière intervention 12

Merci mais je suis un peu largé!!

Je souhaite que le nom du fichier soir sous la forme jourmois_nom (15novembre_tartenpion).
La date du jour se trouve en cellule B3 (selon la formule aujourdhui) et le nom en B7

Le dossier se trouve dans mes documents sous le nom "commande DNA"

si tu peux encore m'aider...

merci

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 12

tooney05 Messages postés 37 Date d'inscription Statut Membre Dernière intervention 12

Ne faut il pas un add-on ou plugin pour la concersion PDF?
Quand je souhaite enregistrer, le format PDF ne m'est pas proposé.

Réponse 6 / 12

tooney05 Messages postés 37 Date d'inscription Statut Membre Dernière intervention 12

Ca y est ca marche!!!

Merci pour l'aide et la patience...

Adrien

Bonjour,

J'ai aussi un problème d'erreur 5.

La macro tourne pour les 6 premiers onglets sur 29 qu'elle enregistre en PDF puis bug, impossible de comprendre pourquoi ?!

Si vous avez une idée pour m'aider je suis preneur.

Sub Enregistrer_PDF()
'Chemin contiendra le chemin de la sélection et
'choix prendra la valeur 0 pour rechercher uniquement les dossiers et
'n'importe quel autre valeur (de 1 à 255) pour rechercher un dossier ou un fichier.
'choix repertoire
Dim choix As Byte
choix = 0
Chemin = ChoixDossierFichier(choix)
If Chemin <> "" Then
For X = 1 To Worksheets.Count
NO = Worksheets(X).Name
Worksheets(NO).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NO & " Commission " & Format(Date, "yyyy-mm") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next X
End If
End Sub

'code trouve sur internet pour selection repertoire ou/et fichier
Function ChoixDossierFichier(SelType As Byte) As String
Dim objShell As Object, objFolder As Object
Dim Chemin As String, Msg As String
Dim FlagChoix As Long, NbPoint As Integer

If SelType = 0 Then
FlagChoix = &H1
Msg = "Selectionner un dossier :"
Else
FlagChoix = &H4000
Msg = "Selectionner un fichier :"
End If

Set objShell = CreateObject("Shell.Application")
' &h1
' 1er paramètre toujours 0 (zéro). Il représente le handle de la fenêtre parent
' 2ème paramètre Titre de la boite, en dessous de la barre de titre
' 3ème paramètre options de BrowseForFolder
' 4ème paramètre Facultatif. Répertoire de début d'exploration
On Error Resume Next
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix)
'Si l 'objet retourné est valide, on teste son contenu (item.title)
'Si on a sélectionné la racine d'une partition, il se compose du nom de la partition,
' suivi de sa lettre et ":" entre parenthèses NbPoint = InStr(objFolder.Title, ":")
If NbPoint = 0 Then
'Sinon, il se compose du nom du dossier uniquement, sans le chemin précédent
'On récupère ce chemin à l'aide des propriété et méthode ParentFolder.ParseName
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
Else
'si racine on récupère la lettre du lecteur et les 2 points
Chemin = Mid(objFolder.Title, NbPoint - 1, 2)
End If
ChoixDossierFichier = Chemin
End Function

Merci d'avance

Adrien > Adrien

Si ça peut aider quelqu'un j'ai résolu mon problème qui venait du fait que j'avais des onglets cachés qui stoppaient le fonctionnement de la macro.

Laloue

Bonsoir,

Moi j'aurais besoin de la même base, sauf qu'il faudrait que cela ne concerne que la feuille active et non les autres... Comment faire?

Réponse 7 / 12

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

le chemin des "Mes Documents" n'est pas le meme suivant l'OS, a vous de trouver ce chemin. Dans l'exemple, c'est la feuil1 qui est sauvegardee, vous c'est ????

Sub Export_PDF()
    Dim fichier As String
    
    Date_F = Format(Date, "ddmmmm_")
    'adaptez le nom de la feuille
    With Worksheets("Feuil1")
        fichier = "\" & Date_F & .Range("B7") & ".pdf"
        'pensez a ecrire le chemin
        Dossier = "\commande DNA"
        'Mes Documents a adapter a votre PC
        rep = "C:\Users\SWF"
        Chemin = rep & Dossier & fichier
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

Réponse 8 / 12

tooney05 Messages postés 37 Date d'inscription Statut Membre Dernière intervention 12

j'obtient

erreur d'execution 5
argument ou appel de procedure incorect

debogage: (partie en jaune)

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Réponse 9 / 12

tooney05 Messages postés 37 Date d'inscription Statut Membre Dernière intervention 12

j'ai Excel 2007. Voila une capture du message.

Réponse 10 / 12

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

un exemple:

Sub Export_PDF()
    Dim fichier As String
    'adaptez le nom de la feuille
    With Worksheets("Feuil1")
        fichier = "Devis n°" & .Range("B12") & .Range("B13") & ".pdf"
        'pensez a ecrire le chemin
        Chemin = rep & "\" & fichier
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

Réponse 11 / 12

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

chez moi ca marche, avez-vous adapte le chemin du fichier ??????

quel excel avez-vous?

Réponse 12 / 12

tooney05 Messages postés 37 Date d'inscription Statut Membre Dernière intervention 12

Reprenons,

J'ai progresser en installant le plug in et avec l'enregistreur de macro.
il me reste a ce que le fichier se nome seul selon la cellule K4
pouvez vous m'inserer la fonction?

Sub pdf()
'
' pdf Macro
'

'
ChDir "C:\Users\Vincent\Documents\Commande DNA"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Vincent\Documents\Commande DNA\Modele commande.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Macro enregistrer en PDF

12 réponses

Votre réponse

Discussions similaires