Discussion :

[fabien.michel]

Bonjour

J'essai en vain de créer une macro qui pourrais me créer/ouvrir un fichier sur la base d'un fichier .xlsx
Ce fichier sera nommé comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFICHIER = "Planning " & [E2] & " " & [f6] & ".xls"

Le but etant en sélectionnant une semaine, d'ouvrir ou de créer une nouvelle page dans laquelle je pourrais saisir un planning pour mon staff

Qqun pourrait-il m'aider ?
merci

[Philippe Tulliez]

Bonjour,
Un modèle dans Excel est suffixé xlst pour les versions supérieure à 2003 et xlt pour les versions 2003 (Les modèles 2003 fonctionnent pour les versions supérieures)
Donc si tu crées un classeur comme modèle en le sauvant, il faut sélectionner Modèle Excel dans la liste Type (Type se trouve juste en dessous de Nom de fichier dans la boîte de dialogue Enregistrer sous.

[fabien.michel]

C'est noté, merci beaucoup

Ensuite quelle est la procédure pour une macro qui me permettrai d'ouvrir ou de créer un fichier sur ce modèle ?

[Philippe Tulliez]

Bonjour,
Le meilleur ami du programmeur VBA est l'enregistreur de macros.
1) Tu enclenches l'enregistreur de macros.
2) Tu cliques sur l'onglet [Fichier], tu sélectionnes Nouveau et ensuite Mes modèles.
3) Dans la boîte de dialogue, tu sélectionnes le modèle souhaité
4) Le modèle chargé, tu cliques sur le bouton d'enregistrement du classeur et tu lui attribues un nom et tu choisis le répertoire de destination.
5) Tu arrêtes l'enregistreur
6) Tu vas dans l'éditeur (Alt + F11)
Voilà le code généré par l'enregistreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
' Macro1 Macro
    Workbooks.Add Template:= "C:\Users\Corona\AppData\Roaming\Microsoft\Templates\Note de Frais.xlt"
    ChDir "C:\Users\Corona\Documents"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Corona\Documents\140615 Note de Frais.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Ensuite on retravaille ce code.

Par exemple, on modifie la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Add Template:= "C:\Users\Corona\AppData\Roaming\Microsoft\Templates\Template - Note de Frais.xlt"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.Add Template:=Application.TemplatesPath & "Note de Frais.xlt"

et ainsi de suite.
Si tu ne sais pas, la FAQ, les tutoriels, le forum peuvent t'aider