Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1658 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro pour enregistrer en xlsm sur bureau avec date dans le nom

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro pour enregistrer en xlsm sur bureau avec date dans le nom

n°2344258
chateteman​62
Posté le 09-01-2020 à 12:24:15  profilanswer
 

Bonjour à tous,
 
Ne trouvant la solution sur le net, je me permets de demander votre aide.
Je sais enregistrer un fichier excel en PDF (voir ci-dessous) en ayant un format pour renommer le fichier, mais je n'y arrive pas pour le format xlsm :
 
Private Sub PDF()
Dim Path As String, nom As String
Dim FL1 As Worksheet
    Set FL1 = Worksheets("Recap" )
    DLgn = Split(FL1.UsedRange.Address, "$" )(4)
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & DLgn
Path = ActiveWorkbook.Path
nom = Format(Date, "yyyy-mm-dd" ) & " (Recap Matooma)"
complet = Path & "\" & nom
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        complet & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub
 
Pourriez-vous m'aider svp ?
Merci beaucoup et vive la communauté

mood
Publicité
Posté le 09-01-2020 à 12:24:15  profilanswer
 

n°2349018
chrissud
Posté le 22-03-2020 à 09:03:50  profilanswer
 

Bonjour,
 
Déjà essaye en simplifiant pour tester la grande partie du code.
nom ="essai"
 
si cela fonctionne, nom="matooma"  
si cela fonctionne, nom="01-01-2020 matooma"
si cela fonctionne, nom="01-01-2020" & "matooma"
etc


Message édité par chrissud le 22-03-2020 à 09:04:03
n°2355781
yumat
Posté le 10-06-2020 à 20:57:39  profilanswer
 

Salut à toutes et à tous
C'est du hors sujet mais pouvez vous me dire comment procéder pour ouvrir une nouvelle discutions
Merci


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro pour enregistrer en xlsm sur bureau avec date dans le nom

 

Sujets relatifs
Macro pour copier un tableau avec mot cle de word vers excel et dispatErreur Excerpt - Impossible d'enregistrer une page du thème
Macro copie vers un autre fichier[LibreOffice][Tableur] Macro pour actualiser des liens externes html
Macro Excel à executer sur une cellule selectionnéArrêter une macro python à la fin de l' exécution.
Erreur macro pythonModifier le format de la date des dossiers
macro vba/word concaténer 2 paragraphesRécupérer la date du résultat [POWERSHELL]
Plus de sujets relatifs à : Macro pour enregistrer en xlsm sur bureau avec date dans le nom


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR