Macro pour dupliquer une feuille excel

zaza0210 -  
melanie1324 Messages postés 1561 Statut Membre -
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

  1. melanie1324 Messages postés 1561 Statut Membre 156
     
    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
    0