Extraction pdf 1
Résolu
yyogii69150
Messages postés
8
Statut
Membre
-
yyogii69150 Messages postés 8 Statut Membre -
yyogii69150 Messages postés 8 Statut Membre -
Bonjour,
j'aurais besoin d'un petit coup de main
mon employeur me demande de créer un programme avec un formulaire à remplir et l'extraction de ce formulaire en pdf une fois rempli.
le formulaire est créer mais je n'arrive pas à faire l'extraction de mon classeur en pdf, j'ai essayé en enregistrant une macro mais cela ne fonctionne pas.
merci de m'aider je suis bloqué
j'aurais besoin d'un petit coup de main
mon employeur me demande de créer un programme avec un formulaire à remplir et l'extraction de ce formulaire en pdf une fois rempli.
le formulaire est créer mais je n'arrive pas à faire l'extraction de mon classeur en pdf, j'ai essayé en enregistrant une macro mais cela ne fonctionne pas.
merci de m'aider je suis bloqué
3 réponses
-
-
je n'ai pas de macro créée pour cette action d'où ma question je suis ultra débutant en VBA
-
j'ai essayer avec ça mais ça ne fonctionne pas
Private Sub CommandButton1_Click()
Dim rep As String
Range("A1:H49").Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=[F11].Value & ".PDF", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveWorkbook.Close SaveChanges:=False
End Sub-
Bonjour,
Je viens de tester ta macro, elle fonctionne bien.
L'inconvénient (ou l'avantage) c'est qu'on ne voit pas ce qui ce passe, c'est comme s'il ne se passait rien.
Alors j'ai fait une recherche du fichier pdf que la macro était sensée créer, et je l'ai trouvé dans le dossier "Mes documents".
Donc si tu veux spécifier un dossier d'enregistrement précis, il convient de modifier le paramètre FileName:
Filename:="C:\MonDossier\" & [F11].Value & ".PDF"
Cordialement
-
