List box et fichier word

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
d
doudou59700
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 11 mars 2016
Version d'Excel : 2000

Message par doudou59700 » 8 août 2017, 14:51

Bonjour à tous,

J'ai actuellement une macro que j'utilise pour imprimer des documents word.

J'ai créé un Userform avec une listbox afin que ce soit plus "beau" et plus pratique.

Je souhaiterai donc pour chaque élément sélectionné, qu'il se rattache à un fichier word en particulier et qu'il s'imprime.

J'ai créé aussi des textbox afin de les rajouter dans le document Word qui s'imprimera.

Voici le code que j'utilise actuellement pour la macro :
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
     (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
     (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub ImprimerFichier(NomFichier)
    'Dim NomFichier As String
   Dim x As Long
    
    x = FindWindow("XLMAIN", Application.Caption)
    
    ShellExecute x, "print", NomFichier, "", "", 1
End Sub
 
Sub macrochoix()

If Sheets("feuil2").Range("b6") = "x" Then
NomFichier = "c:bla\bla"
ImprimerFichier (NomFichier)
End If
end sub
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Problème list box et check box
    par muratime » 17 janvier 2016, 21:06 » dans Excel - VBA
    21 Réponses
    1120 Vues
    Dernier message par stepaustras
    19 janvier 2016, 12:22
  • VBA Text Box / List Box
    par Ahah » 11 janvier 2018, 09:28 » dans Excel - VBA
    10 Réponses
    513 Vues
    Dernier message par Ahah
    16 janvier 2018, 14:17
  • List box, remplir
    par batoine » 21 avril 2015, 11:55 » dans Excel - VBA
    1 Réponses
    286 Vues
    Dernier message par batoine
    29 avril 2015, 11:19
  • List Box multiselection
    par hugo.c » 31 mai 2016, 06:04 » dans Excel - VBA
    2 Réponses
    293 Vues
    Dernier message par hugo.c
    1 juin 2016, 10:12
  • Useform List box
    par naubin1 » 27 juin 2018, 16:07 » dans Excel - VBA
    25 Réponses
    515 Vues
    Dernier message par paritec
    4 juillet 2018, 08:56
  • List box question
    par oly111 » 31 octobre 2017, 00:05 » dans Excel - VBA
    3 Réponses
    189 Vues
    Dernier message par oly111
    31 octobre 2017, 15:51