Macro Excel création d'un fichier
Fermé
Estelle
-
11 mai 2016 à 09:59
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 12 mai 2016 à 11:06
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 12 mai 2016 à 11:06
A voir également:
- Macro Excel création d'un fichier
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment réduire la taille d'un fichier - Guide
- Liste déroulante excel - Guide
2 réponses
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
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
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
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