Astuces Excel
  1. Astuces Excel
  3. stocker la feuille excel en format PDF sur le bureau
Intereting Posts
Comment get la moyenne des N dernières lignes dans une table? transférer des données du mot à Excel via vba Comment imprimer la sortie java dans différentes feuilles excel dynamics Excel VBA – worksheet.calculate ne calcule pas toutes mes formules Impossible d'inclure Spreadsheet Excel Writer Macro Excel pour afficher toutes les sélections d'une list de sélection multi-sélection Puis-je fermer une combobox ActiveX placée sur une feuille de calcul Excel? Comment importer des données Excel dans R en utilisant le nom de la colonne et le nom de la ligne Comment append une ligne de tendance dans un tableau croisé dynamic? Hyperliens automatique dans Excel Essayer de formater la date pour save la feuille de travail Traitement d'erreur Excel VBA Mismatch type 13 Concaténer le text dans les feuilles Comment faire une boucle qui va à un path de file et countr les files sur chaque directory formatting conditionnel utilisant nested si avec plusieurs conditions dans excel

stocker la feuille excel en format PDF sur le bureau

J'ai le code suivant pour stocker une fiche en format PDF. Et je voudrais contrôler où il est stocké – c'est-à-dire leur bureau. Est-ce que quelqu'un peut me conseiller comment faire ça? Merci! 

Sub SaveAsPDF() Dim i As Long Dim PdfFile As Ssortingng, Title As Ssortingng ' Not sure for what the Title is Title = Range("B1") ' Define PDF filename PdfFile = Range("F3") i = InStrRev(PdfFile, ".") If i > 1 Then PdfFile = Left(PdfFile, i - 1) PdfFile = PdfFile & ".pdf" ' Export activesheet as PDF With ActiveSheet .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End With End Sub

Une alternative à la réponse de Rory pourrait être l'utilisation de la variable d'environnement Windows "userprofile" 

 PdfFile = Environ("userprofile") & "\desktop\" & PdfFile & ".pdf"

Si vous souhaitez toujours save sur le bureau sans intervention de l'user: 

 PdfFile = createobject("Wscript.Shell").Specialfolders("Desktop") & "\" & PdfFile & ".pdf"