Créer un fichiers à partir d'onglets Existant

[Squoltahthx94]

Bonjour,

Une fois de plus je remercie le forum pour votre aide.

Je souhaiterais pouvoir à partir d'un bouton (macro, code, vba) pouvoir toujours sauvegarder 3 onglets nommé tableau HD, Synthèse HD, et inter JFD vers un nouveau classeur type "HD_date du jour.xls" (date du jour exemple : 270911) sous un répertoire (j:\frm\accueil Tlm\...).

Merci de votre aide

 

[MJ13]

Re : Créer un fichiers à partir d'onglets Existant

Bonjour Squoltahthx94 (compliqué comme nom 😉)

Tu peux essayer dans un premier temps d'utiliser l'enregistreur de macros 🙂.

Mais tu ne connais peut-être pas 😕

 

[Squoltahthx94]

Re : Créer un fichiers à partir d'onglets Existant

Merci je vais essayé mais comment mettre la date du jour en automatique!!

 

[kjin]

Re : Créer un fichiers à partir d'onglets Existant

Bonsoir,
Pas sûr que l'enregistreur donne l'ensemble

Dim rep$, f$
rep = "j:\frm\accueil Tlm\"
f = "HD_" & Format(VBA.Date, "dd_mm_yy") & ".xls"
If Dir(rep & f) = "" Then 'test l'existence du fichier
    Sheets(Array("tableau HD", "Synthèse HD", "inter JFD")).Copy
    With ActiveWorkbook
        .SaveAs rep & f
        .Close True
    End With
End If

Faut-il écraser le fichier s'il existe déjà ?!
A+
kjin

 

[Squoltahthx94]

Re : Créer un fichiers à partir d'onglets Existant

oui mais lorsqu'il en enregistre il m'indique que le classeur contient des macros et qu'il ne peut l'enregistrer, j'ai donc changer l'extention par .xlsm mais cela ne fait rien il me crée un classeurx.

J'ai oublié que ces onglets contiennent des macros

 

[kjin]

Re : Créer un fichiers à partir d'onglets Existant

bonsoir,
Essaie comme Ron l'indique ici (je suis sous xl2000)

Dim rep$, f$
rep = "j:\frm\accueil Tlm\"
f = "HD_" & Format(VBA.Date, "dd_mm_yy") & ".xlsm"
If Dir(rep & f) = "" Then 'test l'existence du fichier
    Sheets(Array("tableau HD", "Synthèse HD", "inter JFD")).Copy
    With ActiveWorkbook
        .SaveAs rep & f, fileformat:=52
        .Close True
    End With
End If

A+
kjin