Affichage conditionnel de logos VBA

Version imprimable

30/01/2015, 10h26
SpaceHouse

4 pièce(s) jointe(s)

Affichage conditionnel de logos VBA

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
Pièce jointe 167637
Pièce jointe 167643 Pièce jointe 167644 Pièce jointe 167645

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:

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

30/01/2015, 13h29
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+
01/02/2015, 20h22
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?