#1 Bonjour à tous et particulièrement à JM, Toujours en quête d'automatiser mes classeurs, j'ai fait, avec l'aide bien sur, d'excel, la macro suivante: Sub enregistrersous() ' ' enregistrersous Macro ChDir "C:\Users\Lionel\Desktop" Filename:= _ "C:\Users\Lionel\Desktop\Pointage Matrice ", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub Je souhaiterai, mais évidemment, je ne sais pas faire, que la macro me propose de lui donner la destination de l'enregistrement et qu'elle me propose aussi de donner un nom au fichier. J'ai chercher sur le forum des dialogues similaires mais je n'ai pas trouvé "ma réponse". Merci de votre aide, Amicalement, Lionel, Dernière édition: 29 Décembre 2011 #3 Re: Enregistrer sous avec VBA Bonjour arthour973 et le forum, Pour cela, il faut utiliser ceci, Code: Application. Vba enregistrer sous pdf francais. Dialogs(xlDialogSaveAs) A + et bonne fête de fin d'année. Edit désolé Hasco pas rafréchi #4 Bonjour et merci de votre réponse, Je ne sais pas comment supprimer un fil alors, j'ai écrit "résolu erreur doublon" sur l'autre.
ExportAsFixedFormat Type:=x1TypePDF, _ Filename:=Chemin & Texte & "", _ Quality:=x1QualityStandard, _ IncludeDocProperties:= True, _ IgnorePrintAreas:= False, _ OpenAfterPublish:= False Quelqu'un a t-il une solution? Merci 22/08/2011, 11h58 #2 Quel message d'erreur? dans un premier temps, as tu essayé sans toutes les options 1 2 ActiveWorkbook. ExportAsFixedFormat Type:=x1TypePDF, _ Filename:=Chemin & Texte & "" 22/08/2011, 13h17 #3 Il n'y a pas de message d'erreur: la macro plante. le fichier pdf ne se crée pas. Vba enregistrer sous pdf word. avec cette macro ça fonctionne mais je souhaite que le nom du fichier pdf soit variable 1 2 3 4 ActiveSheet. ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Documents and Settings\CETESSE\Bureau\Ordre d'affrè", Quality:= _ xlQualityStandard, IncludeDocProperties:= True, IgnorePrintAreas:= False, _ 22/08/2011, 13h57 #4 Quelle est la valeur de la variable Texte? 22/08/2011, 14h09 #5 le texte reprend plusieurs cellules d'une feuille de calcul que j'ai nommées: d'où texte = Range ( "cli") & " - " & Range ( "prod") & " " & Range ( "qual") & " - " & Range ( "urg") mais il est tout à fait possible de concatener ces cellules dans une celle cellule si nécessaire 22/08/2011, 14h49 #6 le texte reprend plusieurs cellules d'une feuille de calcul que j'ai nommées j'avais bien vu cela, mais quelle est la valeur de Texte après cette ligne 22/08/2011, 14h54 #7 la valeur du texte après la ligne?
Vous pouvez également choisir l'orientation du fichier « Portrait » ou « Paysage » à vous de voir Voir notre exemple ► Création du fichier le 02. 05. 2019 185915
2017 Lieu Brazzaville, Congo merci pour la reaction, [quote="Steelson"]Bonjour, Ton image est invisible!! Que contient Sheets("Licence")(42, 1)? un numero (001 par exple) c'est le nom du dossier ou va placer le fichier (la cellule va etre dynamique) idem Sheets("Licence")(10, 10)? un code alphanumerique (avec le caractere ~, j'ai verifie c'est un caractere autorise) pour renommer le fichier. ChDir va changer le dossier a chaque fois Avec Excel, tu fais tout.............. 2014 Emploi Ingénieur Lieu 85330-NO Est-ce que Sheets("Licence")(10, 10) contient aussi \? Sinon, ActiveSheet. ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\01- LICENCES\" & Sheets("Licence")(10, 10) & "", _ OpenAfterPublish:=True et remets ton image invisible STP. A Aachloe Nouveau venu Messages 3 Excel 2010 Bonjour, Ma macro marchait très bien jusqu'à aujourd'hui. Vba enregistrer sous pdf pc. (code ci dessous) Ce matin j'ai une erreur 1004 qui apparait quand je lance la macro. J'ai vérifié les noms des fichiers et cellules et tout est bon.
Affichage ou modification du code VBA. Ligne VBA pour enregistrer en PDf ( proposer le dossier et nom du fichier) | Excel-Downloads. importation ou exportation de formulaires, états ou modules Access; Toutefois, les tables, requêtes et macros peuvent être importées ou exportées vers des bases de données Assurez-vous de conserver une copie de votre base de données Access d'origine. Si vous voulez modifier la conception de formulaires, états ou modules dans un fichier, vous devez modifier la base de données Access d'origine (fichier), puis l'enregistrer à nouveau en tant que fichier L'enregistrement d'une base de données Access contenant des tables sous forme de fichier peut entraîner des problèmes pour rapprocher différentes versions des données si vous souhaitez modifier ultérieurement la conception des formulaires, états ou modules. C'est pourquoi l'enregistrement d'une base de données Access en tant que fichier est plus approprié pour la base de données frontale d' application frontale/principale. Certaines restrictions peuvent vous empêcher d'enregistrer votre base de données Access en tant que fichier: Vous devez avoir un accès par mot de passe au code VBA.
Sinon, le nom du fichier sera false ou faux, si Excel français If strFileName <> "False" And strFileName <> "Faux" Then ActiveSheet. ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName _, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _:=False, OpenAfterPublish:=False ' Ici, on va sauvegarder en fonction de la mise en page pour impression ' On sort en revenant à l'onglet de départ set sname = Nothing End Sub Petits points à noter pour enregistrer des feuilles Excel sous format PDF Si le fichier PDF choisi existe déjà, il sera tout bonnement remplacé. Si le fichier PDF est ouvert, il y aura une erreur d'exécution. Le paramètre du ExportAsFixedFormat nommé IgnorePrintAreas est configuré à False. Donc, le PDF va suivre la mise en page. Si on ne veut pas cela, on va plutôt allouer la valeur True à ce paramètre. Il est également possible de forcer l'ouverture du fichier PDF. Il s'agit du paramètre OpenAfterPublish. C'est à vous de voir. Macro enregistrer en PDF [Résolu]. Finalement, on utilise l'application GetSaveAsFilename de MS Office.
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. Comment enregistrer des feuilles Excel sous format PDF en VBA ?. Référence introuvable ou manquante. " 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.