× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 MACRO EXCEL MAC POUR ENREGISTRER PDF
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
mapapiot
  Posté le 12/06/2019 @ 14:26 
Aller en bas de la page 
Nouvelle astucienne

Bonjour,

Je souhaite créer une macro excel mac 365 qui enregistre la feuille actuelle du classeur sous le nom du fichier actuel et dans le dossier actuel.

Ce nom de fichier et le dossier est différent à chaque fois.

Cette macro est-elle compatible avec excel PC 365.

Si non, quelle est la macro Excel PC.

J'ai essayé l'enregistreur de macro mais le nom du fichier et la classeur actuel est toujours le même.

Cette macro sera dans un modèle Excel partagé sur un serveur, faut-il la mettre dans le classeur actuel ou dans le classeur de macro personnel.

Merci à vous

Belle journée

Publicité
Debrief
 Posté le 14/06/2019 à 09:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Je ne sais pas comment fonctionne Mac Excel 365.

Une macro standard Windows Excel aurait cette formulation:

Sub SaveActiveSheetAsPDF()
Dim WBFullName As String
Dim PDFFullName As String
Dim WBPath As String
Dim WBName As String
Dim Reponse As Variant

WBName = ActiveSheet.Parent.Name
WBFullName = ActiveSheet.Parent.FullName
WBPath = Left(WBFullName, Len(WBFullName) - Len(WBName))
'PDFFullName = Left(WBFullName, InStrRev(WBFullName, ".")) & ActiveSheet.Name & ".pdf"
PDFFullName = Left(WBFullName, InStrRev(WBFullName, ".")) & "pdf"

Reponse = Application.InputBox(prompt:="Nom complet du fichier PDF pour cette feuille ?", Title:="Nom fichier", Default:=PDFFullName, Type:=2)
If VarType(Reponse) = vbBoolean Then Exit Sub

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Reponse, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Fichier """ & PDFFullName & """ enregistré !"

End Sub

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
155,65 €SSD SanDisk Plus 2 To à 155,65 € livré
Valable jusqu'au 30 Novembre

Amazon Allemagne propose actuellement un coupon de réduction sur le SSD SanDisk Plus 2 To qui passe à 151,02 € (avec la TVA ajustée). Comptez 4,63 € pour la livraison en France soit un total de 155,65 € en France. Une très bonne affaire pour ce SSD très fiable et performant qui offre des débits de 530 Mo/s en lecture et 445 Mo/s en écriture. Il est garanti 3 ans. On le trouve ailleurs à partir de 220 €. 

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
54,99 €Liseuse Amazon Kindle avec éclairage frontal à 54,99 €
Valable jusqu'au 01 Décembre

Amazon fait une promotion sur sa nouvelle liseuse Kindle qui passe à 54,99 € livrée gratuitement. Cette version est équipée d'un écran tactile à encre électronique qui a l'apparence du papier et se lit comme un livre papier. Elle possède maintenant un éclairage frontal réglable vous permet de lire confortablement pendant des heures, à l'intérieur et à l'extérieur, de jour comme de nuit. Elle possède le WiFi ainsi qu'un port MicroUSB. Cette version peut afficher des publicités discrètes pendant sa mise en veille. Pour ne pas les avoir, vous devez vous tourner vers la version Sans offres spéciales qui coûte 64,99 €. Elle peut lire les fichiers ePub en suivant cette astuce.


> Voir l'offre
7,30 €Micro clé USB 3.1 Sandisk Ultra Fit 32 Go à 7,30 €
Valable jusqu'au 30 Novembre

Amazon fait une promotion sur la micro clé USB Sandisk Ultra Fit d'une capacité de 32 Go qui passe à 7,30 €. La minuscule taille de cette clé USB va vous permettre de la laisser brancher en permanence sur votre portable, votre TV ou votre autoradio sans qu'elle dépasse de manière disgracieuse. Sa compatibilité USB 3.1 lui permet d'atteindre des débits jusqu'à 130 Mo/s. 


> Voir l'offre

Sujets relatifs
Macro excel pour enregistrer
Macro excel pour enregistrer sous
excel : macro pour enregistrer un fichier
Macro excel pour une somme conditionnel
Macro excel pour calcul d’itération
Macro excel pour attribution de lot
Creation d' une boucle macro dans fichier EXCEL pour impression
Macro pour ouverture d'un fichier Excel
Macro pour créer un Gencode sur Excel - EAN 18
Macro pour un envoi feuille excel par mail
Plus de sujets relatifs à MACRO EXCEL MAC POUR ENREGISTRER PDF
 > Tous les forums > Forum Bureautique