VBA Macro pour générer un PDF sans l'enregistrer
Résolu/Fermé
Looping38
Looping38
- Messages postés
- 92
- Date d'inscription
- samedi 22 octobre 2016
- Statut
- Membre
- Dernière intervention
- 20 juillet 2020
Looping38
- Messages postés
- 92
- Date d'inscription
- samedi 22 octobre 2016
- Statut
- Membre
- Dernière intervention
- 20 juillet 2020
A voir également:
- VBA Macro pour générer un PDF sans l'enregistrer
- VBA Macro pour générer un PDF sans l'enregistrer ✓ - Forum - VB / VBA
- Ouvrir un pdf sans l'enregistrer - Forum - PDF
- Ouvrir un pdf sans l'enregistrer chrome ✓ - Forum - Google Chrome
- Impossible de lire un pdf sans l'enregistrer au préalable... - Forum - PDF
- Ouvrir un document sans l'enregistrer - Forum - Windows 10
2 réponses
Looping38
23 mai 2018 à 15:52
- Messages postés
- 92
- Date d'inscription
- samedi 22 octobre 2016
- Statut
- Membre
- Dernière intervention
- 20 juillet 2020
23 mai 2018 à 15:52
J'ai avancé et je partage ma solution : J'enregistre le fichier dans le même répertoire que le fichier excel.
Dans l'idéal, il faudrait vérifier si un dossier "Devis" existe pour l'utiliser sinon, le créer.
Si quelqu'un peut m'aider sur la fin...
Martin
Dans l'idéal, il faudrait vérifier si un dossier "Devis" existe pour l'utiliser sinon, le créer.
Sub ExportPDFnomvariable()
'incrémentation N° à chaque impression
Sheets("Données Client").[C25] = Sheets("Données Client").[C25] + 1
'Séléction de la zone à imprimer
CV = 6
With Worksheets("Panorama FM")
For n = 8 To 123
If .Columns(n).Hidden = False Then CV = CV + 1
If CV = 11 Then Exit For
Next n
Range(Cells(8, 2), Cells(121, n)).Select
' Macro export en PDF avec nom variable selon contenu cellule.
'Chemin d'accès pour l'enregistrement
ChDir (ThisWorkbook.Path)
'Chemin d'accès + nom du document souhaité
'Attention ==> Sheets("Feuille de route").Cells(N°deLIGNE, N°deCOLONNE).Value
'Pour les espaces, copier ==> &" "&
'Pour autoriser ou non l'ouverture du document en pdf a chaque enregistrement changer OpenAfterPublish:= _False/True
selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
" Devis " & Sheets("Données Client").Cells(1, 10).Value & " " & Sheets("Données Client").Cells(5, 5).Value & " " & Sheets("Données Client").Cells(4, 5).Value & Sheets("Données Client").Cells(25, 3).Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
End Sub
Si quelqu'un peut m'aider sur la fin...
Martin
cs_Le Pivert
24 mai 2018 à 15:11
- Messages postés
- 7752
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 26 mai 2022
24 mai 2018 à 15:11
bonjour,
a mettre dans Thisworkbook tiré du site:
https://excel-malin.com/
a mettre dans Thisworkbook tiré du site:
https://excel-malin.com/
Option Explicit Private Sub Workbook_Open() TesteSiDossierExiste End Sub Sub TesteSiDossierExiste() 'par Excel-Malin.com ( http://excel-malin.com ) Dim MonDossier As String MonDossier = ThisWorkbook.Path & "\DEVIS " If DossierExiste(MonDossier) = True Then ' MsgBox "Le dossier existe..." Else MkDir (ThisWorkbook.Path & "\DEVIS ") End If End Sub Public Function DossierExiste(MonDossier As String) 'par Excel-Malin.com ( http://excel-malin.com ) If Len(Dir(MonDossier, vbDirectory)) > 0 Then DossierExiste = True Else DossierExiste = False End If End Function
Looping38
31 mai 2018 à 17:28
- Messages postés
- 92
- Date d'inscription
- samedi 22 octobre 2016
- Statut
- Membre
- Dernière intervention
- 20 juillet 2020
31 mai 2018 à 17:28
Super merci, ça marche.
24 mai 2018 à 12:18