Extraction pdf 1
Résolu/Fermé
yyogii69150
Messages postés
8
Date d'inscription
mardi 8 décembre 2015
Statut
Membre
Dernière intervention
8 juin 2016
-
8 janv. 2016 à 11:34
yyogii69150 Messages postés 8 Date d'inscription mardi 8 décembre 2015 Statut Membre Dernière intervention 8 juin 2016 - 18 janv. 2016 à 12:44
yyogii69150 Messages postés 8 Date d'inscription mardi 8 décembre 2015 Statut Membre Dernière intervention 8 juin 2016 - 18 janv. 2016 à 12:44
A voir également:
- Extraction pdf 1
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Save as pdf - Télécharger - Bureautique
- Comment faire un pdf - Guide
- Comment modifier un pdf - Guide
- Comment réduire la taille d'un pdf - Guide
3 réponses
Pierre1310
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
645
8 janv. 2016 à 11:35
8 janv. 2016 à 11:35
Bonjour,
Pouvez-vous montrer votre macro?
Pouvez-vous montrer votre macro?
yyogii69150
Messages postés
8
Date d'inscription
mardi 8 décembre 2015
Statut
Membre
Dernière intervention
8 juin 2016
8 janv. 2016 à 11:54
8 janv. 2016 à 11:54
je n'ai pas de macro créée pour cette action d'où ma question je suis ultra débutant en VBA
Pierre1310
Messages postés
8554
Date d'inscription
lundi 21 décembre 2015
Statut
Membre
Dernière intervention
21 juillet 2020
645
8 janv. 2016 à 11:58
8 janv. 2016 à 11:58
Il nous faudrait un exemple alors
yyogii69150
Messages postés
8
Date d'inscription
mardi 8 décembre 2015
Statut
Membre
Dernière intervention
8 juin 2016
8 janv. 2016 à 12:13
8 janv. 2016 à 12:13
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
yyogii69150
Messages postés
8
Date d'inscription
mardi 8 décembre 2015
Statut
Membre
Dernière intervention
8 juin 2016
>
Mosca
18 janv. 2016 à 12:44
18 janv. 2016 à 12:44
MERCI POUR VOTRE AIDE
