Macro Excel création d'un fichier
Fermé
Estelle
-
11 mai 2016 à 09:59
f894009 Messages postés 17257 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2025 - 12 mai 2016 à 11:06
f894009 Messages postés 17257 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2025 - 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!
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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir un fichier .bin - Guide
2 réponses
f894009
Messages postés
17257
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 mars 2025
1 713
11 mai 2016 à 13:43
11 mai 2016 à 13:43
Bonjour,
exemple:
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
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?
C:\Users\jousselin.es\Documents\05 - INDICATEUR\TEST\Extraction de base\SAUVEGARDE EXTRACTION 2016
Pouvez-vous m'aider?
f894009
Messages postés
17257
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 mars 2025
1 713
12 mai 2016 à 11:06
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