Macro pour dupliquer une feuille excel

[Fermé]
Signaler
-
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
-
Bonjour,

Je cherche comment dupliquer une feuille excel avec une macro dans un autre dossier mais je ne trouve pas sur le forum.
J'ai une liste déroulante qui me permet de choisir un paramètre (en l'occurence un lieu X) et cela me donne les résultats de ce lieu. il y a 35 lieux dans la liste déroulante et je voudrais pouvoir mettre à la disposition des responsables de site leurs résultats mensuels dans un autre dossier propre à chaque lieu.
Je voudrais faire cela par le biais d'une macro que je lancerais tous les mois.

Helppppp ! merci d'avance.


1 réponse

Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
146
Bonjour,

Sans le fichier, difficile mais voici un début de code

Sub Macro1()
'
' Macro1 Macro
'

'

'permet de copier la feuille 1 dans un nouveau classeur
Sheets("Sheet1").Copy
'permet de définir le dossier d'enregistrement de la nouvelle feuille
ChDir "C:\Users\apilette\Desktop"
'permet de sauvegarder le classeur avec le nom du lieu
ActiveWorkbook.SaveAs Filename:="C:\Users\apilette\Desktop\Sheets1.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'permet de fermer le classeur
ActiveWindow.Close
End Sub