× 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
Les soldes d'été 2020
Valable jusqu'au 11 Août

Les soldes commencent ce Mecredi 15 Juillet et dureront jusqu'au 11 Août. Retrouvez ici la liste des pages dédiées à cet évènement chez les différents revendeurs high-tech afin de trouver la bonne affaire qui vous intéresse. Nous vous proposerons aussi les bons plans que nous aurons dénichés.


> Voir l'offre
12,29 €Clé USB 3.0 SanDisk Ultra Flair 64 Go à 12,29 €
Valable jusqu'au 13 Août

Amazon fait une promotion sur la clé USB 3.0 SanDisk Ultra Flair 64 Go qui passe à 12,29 €.


> Voir l'offre
19,99 €Clé USB 3.0 et Micro USB Sandisk Ultra OTG 128 Go à 19,99 €
Valable jusqu'au 12 Août

Amazon fait une promotion la nouvelle version de la clé USB 3.0 SanDisk Dual Drive 128 Go qui passe à 19,99 €. La particularité de cette clé USB réside dans le fait qu'elle dispose à la fois d'un connecteur USB pour la brancher sur votre ordinateur ou votre TV, mais également d'un connecteur micro USB pour la brancher sur votre smartphone ou votre tablette. Compatible USB 3.0 (et 2.0), cette clé USB offre des débits jusqu'à 150 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