Discussion :

[SpaceHouse]

Bonjour,
Dans le cadre d'un projet que je réalise pour mon école et pour une entreprise cliente, Je développe un programme en VBA capable d'éditer simplement des cartes KANBAN (utilisé dans le cadre du gestion de production en LEAN manufacturing).
après plusieurs mois de recherches, je suis toujours bloqué sur certains points :
1) les logos (stockés dans la feuille "Paramètres" ) correspondant à chaque métier doivent s'afficher dans la feuille "ModèleKanban" sous leur abréviation sur la face B des étiquettes (colonne M) en fonction du choix effectué dans la feuille "Editeur"

2) comment enregistrer la feuille "ModèleKanban" (en .xls ou autre ) dans un fichier prédéfinis (C:\Utilisateur\...)
ci-dessous des capture d'écran pour visualiser ce dont je parle et ci-joint la dernière version du .xlsm pour que vous puissiez accedé au code complet déja réalisé
Toute aide est la bienvenue, merci d'avance
AMREtiquetteKanban.xlsm

[LawNasK]

Bonjour,

Pour le 1), soit je n'ai pas compris, soit j'ai compris mais je ne sais pas faire, donc je vais laisser aux autres le soin de te répondre.

Pour le 2), j'utilise la solution ci-dessous. Je ne pense pas que ce soit la meilleur cependant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Enregistrement()
    Dim nomFichier As String
    Dim chemin As String
 
    nomFichier = "nomDeFichier"
    chemin = "C:\la\où\je\veux\enregistrer"
 
    'Copie de la feuille dans un autre classeur
    ThisWorkbook.WorkSheets("ModèleKanban").Select
    ThisWorkbook.WorkSheets("ModèleKanban").Copy
    ChDir chemin
 
    ActiveWorkbook.SaveAs _
        fileName:=chemin & nomFichier, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
        CreateBackup:=False
 
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

[Igloobel]

Bonjour,

la fonction "ActiveWorkbook.SaveAs" est pas mal mais dans ton cas j'utiliserai les file Dialogs et même carément faire un fichier de type modèle (Extention : .xltm)

A+

[SpaceHouse]

coucou, merci pour l'indication mais je n'arrive pas a trouver la syntaxe de cette fonction (et à l'appliquer à mon problème)
aurais-tu un exemple ou quelque chose?