Extraction pdf 1
Résolu
yyogii69150
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
yyogii69150 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
yyogii69150 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
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é
A voir également:
- Extraction pdf 1
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Save as pdf office 2007 - Télécharger - Bureautique
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
- Notices gratuites pdf - Guide
- Pdf creator - Télécharger - PDF
3 réponses
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
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
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