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
  • VBA Text Box / List Box
    par Ahah » 11 janvier 2018, 09:28 » dans Excel - VBA
    10 Réponses
    468 Vues
    Dernier message par Ahah
    16 janvier 2018, 14:17
  • Problème list box et check box
    par muratime » 17 janvier 2016, 21:06 » dans Excel - VBA
    21 Réponses
    1098 Vues
    Dernier message par stepaustras
    19 janvier 2016, 12:22
  • List box, remplir
    par batoine » 21 avril 2015, 11:55 » dans Excel - VBA
    1 Réponses
    273 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
    283 Vues
    Dernier message par hugo.c
    1 juin 2016, 10:12
  • List box question
    par oly111 » 31 octobre 2017, 00:05 » dans Excel - VBA
    3 Réponses
    177 Vues
    Dernier message par oly111
    31 octobre 2017, 15:51
  • list box dynamique
    par oly111 » 3 novembre 2017, 21:22 » dans Excel - VBA
    4 Réponses
    494 Vues
    Dernier message par eriiic
    3 novembre 2017, 23:17