4 Salut, Sub super as String super = "you are the best" While Dan = super Do Msgbox ("Thank You! ") End While A+ -- Mar Nov 09, 2010 7:06 pm -- Re, Finalement, ça marche pas... enfin a moitié. Si le fichier n'est pas enregistré, ça fonctionne bien. mais si le fichier a déjà été enregistré, il n'en veut pas... 4 Dan Modérateur Messages 10'654 Fichiers 2 Votes 1'596 Excel 2016 FR, Mac 2011 Tél. 2007 Lieu Liège - Belgique Re, déso mais je n'ai pas vu l'édit. C'est normal puisque le code donné ne fait qu'ouvrir la boite à message. Vba enregistrer sous pdf document. Dans ce cas, il faut lui donner un nouveau nom ou écraser le fichier qui existe déjà. Sinon que désires-tu? A te relire @+ Dan T TGV6773 Membre habitué Messages 72 Excel 2010 FR - Calc 4. 4 Re, je souhaite pour un fichier (peu importe le nom, et son emplacement) créer une macro qui m'enregistre le classeur, avec la boite de dialogue "pré remplie" avec le chemin C:\Dossier1\Dossier2, mais que je puisses saisir à la main le nom du fichier avant enregistrement. En gros que la fenêtre "Enregistrer sous" ne soit pas par défaut dans "Mes Documents" mais dans le répertoire C:\Dossier1\Dossier2 @+ Dan Modérateur Messages 10'654 Fichiers 2 Votes 1'596 Excel 2016 FR, Mac 2011 Tél. 2007 Lieu Liège - Belgique re, essaie ceci: Sub test() ChDir "C:\dossier1\dossier2" tSaveAsFilename( _ fileFilter:="Excel Files (*), *") End Sub Amicalement @+ Dan T TGV6773 Membre habitué Messages 72 Excel 2010 FR - Calc 4.
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 | Comment enregistrer un fichier à l'aide de la fonction Enregistrer sous Excel VBA?. " 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.
Il y a quelque temps, je publiais un article donnant une procédure afin de faire la liste des onglets d'un fichier Excel et, par la suite, d'en imprimer une sélection. Cela se faisait à l'aide de macros VBA. Voir à ce sujet les articles Excel: Créer automatiquement la liste des noms d'onglets d'un fichier et Excel: Imprimer une sélection d'onglets dans un fichier. À la suite de commentaires d'utilisateurs, force est de constater qu'il y a également un besoin afin d'enregistrer les feuilles Excel sous format PDF, au lieu de simplement les imprimer. Les mêmes commentaires font mention de la possibilité de définir une imprimante qui est en fait un pilote de création de fichiers PDF. Ligne VBA pour enregistrer en PDf ( proposer le dossier et nom du fichier) | Excel-Downloads. Toutefois, ce moyen est complexe alors que, depuis Excel 2007, il est possible de sauvegarder directement les onglets désirés d'un fichier Excel en format PDF. Nous allons donc reprendre la procédure déjà décrite dans Excel: Imprimer une sélection d'onglets dans un fichier et la modifier afin de sauvegarder ces feuilles Excel dans un fichier PDF.