× 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
68,99 €Disque Dur externe portable Western Digital My Passport 2 To USB 3.0 à 68,99 €
Valable jusqu'au 07 Juin

Amazon propose actuellement le disque dur externe portable Western Digital My Passport 2 To à 68,99 € livré gratuitement. Ce disque dur possède une connectique USB 3.0 pour des transferts plus rapides. Il est également compatible USB 2.0. 


> Voir l'offre
139,99 €Disque dur portable externe WD Black P10 Game Drive 5 To à 139,99 €
Valable jusqu'au 08 Juin

Amazon fait une promotion sur le disque dur externe portable WD Black P10 Game Drive 5 To qui passe à 139,99 € livré gratuitement au lieu de 180 €. Ce disque dur USB 3.1 est dédié pour gérer et transporter votre bibliothèque de jeux sur PC ou sur console. 


> Voir l'offre
93,60 €Disque dur externe portable Maxtor M3 USB 3.0 4 To à 93,60 €
Valable jusqu'au 07 Juin

Amazon propose actuellement le disque dur externe portable Seagate M3 4 To à 93,60 € livré gratuitement. Le disque dur dispose d'une connectique USB 3.0 compatible USB 2.0 et offre des débits d'environ 115 Mo/s en lecture et écriture. Seagate ayant racheté les branches disques durs de Samsung et Maxtor, vous pouvez donc trouver le logo Maxtor, Samsung ou Seagate sur ce disque dur M3. 


> 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