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
    535 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
    1154 Vues
    Dernier message par stepaustras
    19 janvier 2016, 12:22
  • List Box VBA
    par kent2206 » 20 septembre 2019, 22:24 » dans Excel - VBA
    2 Réponses
    80 Vues
    Dernier message par thev
    21 septembre 2019, 10:37
  • Useform List box
    par naubin1 » 27 juin 2018, 16:07 » dans Excel - VBA
    25 Réponses
    541 Vues
    Dernier message par paritec
    4 juillet 2018, 08:56
  • list box dynamique
    par oly111 » 3 novembre 2017, 21:22 » dans Excel - VBA
    4 Réponses
    655 Vues
    Dernier message par eriiic
    3 novembre 2017, 23:17
  • List box, remplir
    par batoine » 21 avril 2015, 11:55 » dans Excel - VBA
    1 Réponses
    291 Vues
    Dernier message par batoine
    29 avril 2015, 11:19