Macro Excel création d'un fichier

Fermé

Estelle - 11 mai 2016 à 09:59
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 12 mai 2016 à 11:06

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!

A voir également:

Macro Excel création d'un fichier
Fichier rar - Guide
Liste déroulante excel - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 mai 2016 à 13:43

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

Réponse 2 / 2

Estelle
12 mai 2016 à 08:50

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?

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
12 mai 2016 à 11:06

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

Discussions similaires

comment donner les droits sur fichier partage

Discussions similaires

Newsletters