Choix adresse enregistrer fichIer PDF
Bonjour à toutes et à tous
J’aimerais savoir comment modifier le code ci-joint, pour pouvoir choisir l'adresse d'enregistrement des fichiers au format PDF.
Pour l'instant il sont enregistrer dans le même dossier que l'appli exel et je voudrais changer cela.
Je joins aussi l'appli, il n'y a pas de code pour ouvrir Visual Basic et pour affricher les onglets.
Merci d'avance pour votre aide.
Sub TousEdition()
Feuil5.Select
Application.ScreenUpdating = False
Nlig = Feuil3.Range("A" & Rows.Count).End(xlUp).Row
For L = 3 To Nlig
Range("N1") = Feuil3.Cells(L, 23).Value
'Selection.NumberFormat = "0"
Call ToisFormPDF
Next
MsgBox "Edition Terminer"
Sheets("Modèle").Select
Range("C10").Select
End Sub
Sub ToisFormPDF()
With Feuil5.PageSetup
.PrintArea = "B1:I47"
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ThisWorkbook.Activate
chemin = [D26]
Fiche = Feuil5.Range("N1").Value
NomFiche = chemin & Fiche & ".pdf"
Call EditionPDF(NomFiche)
End Sub
Sub MiseFormPDF()
With Feuil5.PageSetup
.PrintArea = "B1:I47"
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ThisWorkbook.Activate
chemin = [D26]
Fiche = Feuil5.Range("N1").Value
NomFiche = chemin & Fiche & ".pdf"
Call EditionPDF(NomFiche)
MsgBox "Edition Terminer"
Sheets("Modèle").Select
Range("C10").Select
End Sub
Sub EditionPDF(NomFiche)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=NomFiche, _
Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Bonsoir
je n'arrive pas comprendre la demande.... pour le moment les pdf sont enregistrés dans le dossier préciser en cellule D26
si tu veux changer l'emplacement d'enregistrement il suffit de cliquer sur l'image d'un dossier avec marqué dessus PDF et de définir le nouvel emplacement.....
donc comprends pas... désolé
fred
Bonsoir fred2406
Non justement, si tu clique édition base dans la fiche modèle les PDF ne s'enregistre pas à cette adresse la et je n'arrive pas à trouver la solution.
Merci pour ton aide.
Bernard
Bon OK là j'ai compris... donc en fait c'est que la feuille active n'est pas la feuille qui contient le chemin d'enregistrement...
donc remplace dans ton code (a priori 2 fois dans ce que je vois)
chemin = [D26]par
chemin = Feuil1.[D26] & "\"fred
Merci fred26
Je n'ai pas penser à mettre feuil1, j'essayais systématiquement avec sheets("Accueil"), et cela ne fonctionnait pas.
Trop bête
Encore merci.
A te relire.
bonsoir
cela devrait aussi fonctionner en mettant aussi sheets("Acceuil")... mais bon....
a+
Fred