Récupérer valeur combobox pour impression excel/word

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Ko2i4s
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

Ko2i4s

XLDnaute Nouveau
Bonjour a tous,

Je travail sur un projet de "logiciel" d'impression d'étiquettes. J'ai actuellement une combobox me permettant de choisir parmis différents produits :

combobox-1e73a15.jpg


Le dernier choix : Détail , contient le nom du fichier a imprimer (sans le ".doc")


Code: 
Private Sub UserForm_Initialize()
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range("catégorie")
    If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
  Next c
  Me.ComboBox1.List = MonDico.items
End Sub
Private Sub ComboBox1_Change()
  Set MonDico = CreateObject("Scripting.Dictionary")
  For i = 1 To Range("Produit").Count
    If Range("Catégorie")(i) = Me.ComboBox1 Then
      temp = Range("Produit")(i)
      If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
    End If
  Next i
  Me.ComboBox2.List = MonDico.items
  Me.ComboBox2.ListIndex = -1
  Me.ComboBox3.ListIndex = -1
End Sub
Private Sub ComboBox2_Change()
  Set MonDico = CreateObject("Scripting.Dictionary")

  For i = 1 To Range("Detail").Count
    If Range("Produit")(i) = (Me.ComboBox2) And Range("Catégorie")(i) = Me.ComboBox1 Then
       temp = Range("Detail")(i)
       If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
    End If
  Next i
  Me.ComboBox3.List = MonDico.items
  Me.ComboBox3.ListIndex = -1
  
  
End Sub
Private Sub ComboBox3_Change()

''''MsgBox ("text")
''''Msg = "Vous avez choisi:   " & ComboBox1.Value & "/" & (ComboBox2.Value) & "/" & ComboBox3.Value
''''  Style = vbOKOnly + vbInformation
''''   Title = "Plactic Omnium"
''''   Response = MsgBox(Msg, Style, Title)
Monfichier = ComboBox1.Value & "/" & (ComboBox2.Value) & "/" & ComboBox3.Value
MsgBox (Monfichier)
   Call ouvrirDocWord_Impression
End Sub

Ainsi qu'un module d'impression de excel vers word :

Code: 
Sub ouvrirDocWord_Impression() 'necesite d'activer la reference Microsoft Word xx.x Object Library (=> outils => references)

Dim appWrd As Object
Dim docWord As Object
Dim Message As String
Dim Default As Integer
Dim Fichier As String
Dim Title As String
Dim Monfichier As String

Message = "Entrez le nombre d'étiquettes souhaités :"
Title = "PARAMETRES IMPRESSION ETIQUETTES"
Default = "1"

MsgBox Monfichier

Message_Texte = InputBox(Message, Title, Default)
        Controle_Message_Texte = IsNumeric(Message_Texte)
        
            If Controle_Message_Texte = False Then
            
                Message_Texte = MsgBox("Veuillez entrer une valeur numérique", vbCritical)
                
            Else
            
                Nombre_Impression = Message_Texte
                
                   Set AppWord = CreateObject("Word.Application")
                   Set docWord = AppWord.Documents.Open("D:\Programme_etiquettes\Etiquettes\Monfichier.doc", ReadOnly:=True)
                   
                   AppWord.Visible = False
                   AppWord.PrintOut Copies:=Nombre_Impression
                   
                   MsgBox ("UNE FOIS L'IMPRESSION TERMINEE VOUS POUVEZ APPUYER SUR N'IMPORTE QUEL TOUCHE") 'contrôle de la fin d'impression
                   
                   AppWord.Quit
                   Set AppWord = Nothing
                   Set docWord = Nothing
                   
            End If

Sheets(1).Activate 'activation de la feuille1
ActiveSheet.Range("E7").Activate 'retour en D18

End Sub

Mon probleme se situe au niveau de la variable : monfichier.😕
Je n'arrive pas a récupérer le nom du fichier sélectionné dans la combobox, pour l'ajouter au chemin d'accès:
Code: 
 Set docWord = AppWord.Documents.Open("D:\Programme_etiquettes\Etiquettes\Monfichier.doc", ReadOnly:=True)
et ainsi pouvoir lancer l'impression .😎

J'ai essayé avec plusieurs syntaxes différentes, sans succès.

J'espère avoir été clair, et j'attend vos propositions avec impatience.. Car la je bloque 😱

Cordialement
 
Dernière édition:
Trier par date Trier par votes
Re : Récupérer valeur combobox pour impression excel/word

Bonjour,

1.Il faut déclarer la variable Monfichier en private ou public pour qu'elle puisse être "connue" de toutes les procédures.

Donc dans la partie déclatative du moduele (tout en haut) :
Code: 
Public Monfichier As String

2.Ensuite pour l'intégrer au chemin d'accès, il faut utiliser le & (opérateur de concaténation)
Code: 
Set docWord = AppWord.Documents.Open("D:\Programme_etiquettes\Etiquettes\" & Monfichier & ".doc", ReadOnly:=True)

Caillou
 
Vote positif 0 Vote négatif
Re : Récupérer valeur combobox pour impression excel/word

bonjour

Ce doit - être quelque chose comme ceci, sans-doute:
Modifications en rouge.
Code: 
Private Sub ComboBox3_Change()

''''MsgBox ("text")
''''Msg = "Vous avez choisi:   " & ComboBox1.Value & "/" & (ComboBox2.Value) & "/" & ComboBox3.Value
''''  Style = vbOKOnly + vbInformation
''''   Title = "Plactic Omnium"
''''   Response = MsgBox(Msg, Style, Title)
Monfichier = ComboBox1.Value & "/" & (ComboBox2.Value) & "/" & ComboBox3.Value
MsgBox (Monfichier)
   Call ouvrirDocWord_Impression [COLOR=red][B]MonFichier[/B][/COLOR]
End Sub

Code: 
Sub ouvrirDocWord_Impression([COLOR=red][B]ByVal StrFichier As string[/B][/COLOR]) 'necesite d'activer la reference Microsoft Word xx.x Object Library (=> outils => references)

Dim appWrd As Object
Dim docWord As Object
Dim Message As String
Dim Default As Integer
Dim Fichier As String
Dim Title As String


Message = "Entrez le nombre d'étiquettes souhaités :"
Title = "PARAMETRES IMPRESSION ETIQUETTES"
Default = "1"

MsgBox Monfichier

Message_Texte = InputBox(Message, Title, Default)
        Controle_Message_Texte = IsNumeric(Message_Texte)
        
            If Controle_Message_Texte = False Then
            
                Message_Texte = MsgBox("Veuillez entrer une valeur numérique", vbCritical)
                
            Else
            
                Nombre_Impression = Message_Texte
                
                   Set AppWord = CreateObject("Word.Application")
                   Set docWord = AppWord.Documents.Open([B][COLOR=#ff0000]StrFichier[/COLOR][/B], ReadOnly:=True)
                   
                   AppWord.Visible = False
                   AppWord.PrintOut Copies:=Nombre_Impression
                   
                   MsgBox ("UNE FOIS L'IMPRESSION TERMINEE VOUS POUVEZ APPUYER SUR N'IMPORTE QUEL TOUCHE") 'contrôle de la fin d'impression
                   
                   AppWord.Quit
                   Set AppWord = Nothing
                   Set docWord = Nothing
                   
            End If

Sheets(1).Activate 'activation de la feuille1
ActiveSheet.Range("E7").Activate 'retour en D18

End Sub

A+
 
Vote positif 0 Vote négatif
Re : Récupérer valeur combobox pour impression excel/word

Pas évident sans avoir tout le code sous les yeux, mais plusieurs remarques :

Code: 
Monfichier = ComboBox1.Value & "/" & (ComboBox2.Value) & "/" & ComboBox3.Value
MsgBox (Monfichier)
   Call ouvrirDocWord_Impression

1/ pourquoi ajoutes-tu des "/" dans le noms du fichier, ça ressemble à de l'unix? en Dos/Windows, on met des "\".
2/ quand tu appelles ta procédure ouvrirDocWord_Impression, tu n'a pas de paramètre. Tu as bien déclaré la variable Monfichier comme variable globale ?

Dans le code suivant :

Code: 
Set docWord = AppWord.Documents.Open("D:\Programme_etiquettes\Etiquettes\Monfichier.doc", ReadOnly:=True)

Monfichier.doc existe vraiment ou c'est un bout de code pour le test ? J'avais compris que Monfichier est une variable.

Sinon, pour ouvrir le document word nommé :
C:\Mes Documents\toto.doc, on peut écrire :

Code: 
Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open("C:\Mes Documents\toto.doc")

Donc ça a l'air bon cette partie si le fichier précisé existe bien. J'ai pas testé avec le Readonly cependant.

Bon courage !
 
Vote positif 0 Vote négatif
Re : Récupérer valeur combobox pour impression excel/word

Caillou à dit:
Bonjour,

1.Il faut déclarer la variable Monfichier en private ou public pour qu'elle puisse être "connue" de toutes les procédures.

Donc dans la partie déclatative du moduele (tout en haut) :
Code: 
Public Monfichier As String

2.Ensuite pour l'intégrer au chemin d'accès, il faut utiliser le & (opérateur de concaténation)
Code: 
Set docWord = AppWord.Documents.Open("D:\Programme_etiquettes\Etiquettes\" & Monfichier & ".doc", ReadOnly:=True)

Caillou
Cliquez pour agrandir...

merci pour cette réponse rapide 😛
Et ca fonctionne !!!!😀😀😀

Merci encore et a bientot
 
Vote positif 0 Vote négatif
Re : Récupérer valeur combobox pour impression excel/word

Effectivement datacell, j'ai fait une erreur au niveau des slashs 🙂
J'ai déclarer la variable "monfichier" en public, et réaliser la concaténation en suivant l'exemple de caillou, et ca fonctionne 😉

Merci encore a tous pour votre aide
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
Dranreb
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
448
sylvanu
sylvanu
J
  • Résolu(e)
XL 2021 Filtre combobox
Réponses
5
Affichages
312
Dranreb
Dranreb
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
240
nabilexcel2007
N
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
699
TooFatBoy
TooFatBoy
anthoYS
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
237
anthoYS
anthoYS
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
152
MATLEA
M
H
  • Résolu(e)
XL 2021 Rétablir la valeur initiale d'une combobox
Réponses
7
Affichages
228
hyule
H
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
506
un internaute
U
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
599
fanch55
fanch55
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
955
tnion
T
Nicolas JACQUIN
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
473
job75
job75
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
573
kiki29
kiki29
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
Regueiro
  • Question Question
Microsoft 365 Format Nombre Combobox dans Feuille
Réponses
3
Affichages
568
fanch55
fanch55
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
414
Anthony_51
A
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
612
Piment
P
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
647
thunder23
thunder23
Retour