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 :
Le dernier choix : Détail , contient le nom du fichier a imprimer (sans le ".doc")
Ainsi qu'un module d'impression de excel vers word :
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:
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
Je travail sur un projet de "logiciel" d'impression d'étiquettes. J'ai actuellement une combobox me permettant de choisir parmis différents produits :
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)
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: