Macro Enregistrer En Pdf [RÉSolu]
- avez-vous DIM "Tableau coisé dynamique1" et "Tableau croisé dynamique2" comme Public Variant au début du module? Macro vba sauvegarder en PDF. sinon le problème peut vient d'ici, parce que le code ne connait pas Tableau coisé dynamique1 et Tableau croisé dynamique2 j'ai vu aussi que vous avez mis "Range("B1")" mais pas de "" avec Range("C1"), par contre, je ne pense pas que l'erreur vient d'ici... #15 oula, je ne comprends rien MDR, je suis novice en la matière... Pour mieux vous aider à m'aider, le fichier en pièce jointe et allégé... 39. 1 KB · Affichages: 69
Vba Enregistrer Sous Pdf Pro
ExportAsFixedFormat Type:=xlTypePDF, Filename:=EnrSous, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True EnregistrerSeulement: MsgBox "Une copie de cette feuille a été sauvegardée avec succès en format " & vbCrLf & vbCrLf & EnrSous & _ " Révisez le document Si le document ne s'affiche pas correctement, ajustez vos paramètres d'impression et ré-essayez. " Enregistrer_PDF = True GoTo FinMacro ErreurRefLib: MsgBox "Impossible de sauvegarder en pdf. Référence introuvable ou manquante. Vba enregistrer sous pdf pro. " Enregistrer_PDF = False FinMacro: End Function La fonction renvoie VRAI ou FAUX en fonction du succès de l'opération de sauvegarde du document PDF. Fonction de sauvegarde et d'envoi de PDF par courriel Cette fonction permet d' enregistrer la feuille active au format PDF et (optionnellement) de joindre le PDF à un e-mail (en supposant que Outlook soit installé): Sub EnvoyerPDF() Call Envoyer_PDF("EnvoyerCourriel") Function Envoyer_PDF(Optional action As String = "EnregistrerSeulement") As Boolean ' Copies sheets into new PDF file for e-mailing ' Création du courriel If action = "EnvoyerCourriel" Then On Error GoTo EnregistrerSeulement Set olApp = CreateObject("lication") Set olEmail = eateItem(olMailItem) With olEmail.
4 Salut, Merci mais ce coup, cela ne fonctionne pas. Faut-il avoir une session Administrateur pour faire la commande ChDir? Dan Modérateur Messages 10'654 Fichiers 2 Votes 1'596 Excel 2016 FR, Mac 2011 Tél. Vba enregistrer sous pdf sang. 2007 Lieu Liège - Belgique re, Bizarre cela ne buggue pas sous excel 2000. Essaie avec ce code (testé sous excel 2003) Sub test() 'Macro dan le 28/11/2010 Dim fichier As String On Error Resume Next fichier = tSaveAsFilename( _ If fichier <> False Then fichier End Sub Remplace dossier 1 et dossier 2 par tes répertoires exacts Amicalement @+ Dan T TGV6773 Membre habitué Messages 72 Excel 2010 FR - Calc 4. 4 Bonsoir, Nickel, ca marche du tonnerre. Dernière question, le must du must, serait que le nom du fichier ne soit pas inscrit (comme si l'on effectuais une pression sur la touche "retour" afin que la case soit vide. Merci Dan Modérateur Messages 10'654 Fichiers 2 Votes 1'596 Excel 2016 FR, Mac 2011 Tél. 2007 Lieu Liège - Belgique re, Lorsque tu utilises Enregistrer sous depuis "fichier", excel te propose toujours le nom du fichier par défaut.