> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
246,26 €Ecran 27 pouces ViewSonic XG2705-2K (QHD, 144Hz, IPS, 1ms, FreeSync/G-Sync) à 246,26 € livré
Valable jusqu'au 29 Novembre

Amazon Allemagne fait une promotion l'écran 27 pouces ViewSonic XG2705-2K qui passe à 230,93 €. Comptez 15,33 € pour la livraison en France soit un total de 246,26 € livré. On le trouve ailleurs autour de 320 €. Le ViewSonic XG2705-2K est un écran gamer 27 pouces conçu sur la base d'une dalle IPS. Idéal pour les joueurs à la recherche d'un écran efficace, il propose des caractéristiques techniques avancées : résolution QHD, taux de rafraîchissement de 144 Hz, temps de réponse de 1 ms et compatibilité FreeSync / G-Sync. Le pied est réglable en hauteur.


> Voir l'offre
699,99 €PC portable 15.6 pouces Dell Inspiron G15 (FHD 120Hz, Core i5, 8Go/256Go, GTX 1650) à 699,99 €
Valable jusqu'au 29 Novembre

Boulanger fait une promotion sur le PC portable 15.6 pouces Dell Inspiron G15 qui passe à 699,99 € au lieu de 849 €. Ce portable possède un écran Full HD antireflet 120 Hz, un processeur Intel Core i5 10500H, 8 Go de RAM, un SSD NVMe de 256 Go et une carte graphique NVIDIA GeForce GTX 1650 avec 4 Go de mémoire. Le tout tourne sous Windows 10.


> Voir l'offre
19,99 €Sac à outils Stanley STMT0-74101 38 pièces à 19,99 €
Valable jusqu'au 28 Novembre

Cdiscount fait une promotion sur le sac à outils Stanley STMT0-74101 accompagné de 38 pièces et outils qui passe à 19,99 € au lieu de 40 €. Contient : 1 mesure de 3 m, 1 marteau 369 g, 1 pince universelle, 1 pince à bec long, 1 tournevis porte-embout avec 11 embouts, 4 tournevis de précisions, 1 niveau Torpedo, 1 sac souple et 1 jeu de 16 clés mâles.


> 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