Discussion :

[adelsunwind]

Bonjour a tous,
petit pb a vous soumettre.
Voilà j ai developper une appli VB qui permet d ouvrir un fichier excel de le remplir.
Maintenant j aimerais ( il est ouvert sur la feuille active ) , le lancer a l impression. J ai reussi en creant une fonction qui demande l utilisateur de cocher l imprimante choisie mais cela dans l appli.
Mes collegues veulent pouvoir basiquement voir la fenetre d impression windows classique s afficher pour choisir l imprimante voulu dans la liste.

j ai essayé cela mais j ai un message d erreur sur le controle " Dialogs "

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
xlBook.Save
 
 
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
 
ActiveWindow.SelectedSheets.PrintOut   
 
 
    xlApp.Quit

Merci pour l infos si vous en avez..

[Lord_Chesseling]

C'est quoi " la fenetre windows clasique" ?

C'est ça ce que tu veux ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub AdmImprimantes()
 
Dim Appli
 
Appli = Shell("C:\Windows\explorer.exe shell:::{A8A91A66-3A7D-4424-8D24-04E180695C7A}", 1)
 
 
End Sub