Macro Excel création d'un fichier

Estelle -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai commencé une macro, mais je suis au point où j'aimerais que ma feuille de calcul excel soit copié et ensuite coller mais dans un nouveau fichier excel. En gros j'aimerais savoir:
- comment faire automatique la création d'un fichier excel dans un endroit précis
-le nommer avec la date du jour suivi du mot "extraction"
- ouvrir le fichier
- Coller ma feuille de calcul

Merci pour votre aide!

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    exemple: 

    Sub Macro1()
    Nom_Fichier = Format(Date, "dd-mm-yyyy") & "_extraction.xlsx"
    Chemin = "D:\_Docs_Prog_Excel\PDF\"     'mettre votre chemin
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy
    ActiveWorkbook.SaveAs Filename:=Chemin & Nom_Fichier, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close    'fermeture classeur cree
End Sub
    0
  2. Estelle
     
    Je suis un peu nouille, je n'arrive pas à mettre mon chemin... C'est celui ci:

    C:\Users\jousselin.es\Documents\05 - INDICATEUR\TEST\Extraction de base\SAUVEGARDE EXTRACTION 2016

    Pouvez-vous m'aider?
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour, 

      Sub Macro1()
    Nom_Fichier = Format(Date, "dd-mm-yyyy") & "_extraction.xlsx"
    Chemin = "C:\Users\jousselin.es\Documents\05 - INDICATEUR\TEST\Extraction de base\SAUVEGARDE EXTRACTION 2016\"
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy
    ActiveWorkbook.SaveAs Filename:=Chemin & Nom_Fichier, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close    'fermeture classeur cree
End Sub
      0

Discussions similaires

question pix mot caché
aorum10 -
pixlagalere -

7 réponses