Discussion :

[vash641]

Bonjour à vous, je souhaiterais créer un bouton qui permettrait l'impression de plusieurs documents word et excel.

Pour cela j'ais farfouillé un peu partout et suis arrivé à ce bout de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub CommandButton4_Click()
 
Dim InstanceWord As New Word.Application
Dim appWD As Word.Application
 
Dim strFichier As String
Dim objWord As New Word.Application
Application.DisplayAlerts = True
 
strFichier = "L:\document1.doc"
Application.DisplayAlerts = True
 
' ouvrir un document Word
objWord.Documents.Open strFichier
 
' rendre Word visible
objWord.Visible = False
 
ActiveDocument.PrintOut
 
' fermer le document
objWord.Documents(1).Close
 
' quitter l'application Word
objWord.Quit
 
' libérer la mémoire
Set objWord = Nothing
 
Application.DisplayAlerts = False
 
 
'ChDir "L:\"
 
'    Workbooks.Open Filename:="L:tableur3.xls"
'ActiveWorkbook.PrintOut
 
'    Workbooks.Open Filename:="L:\Tableur.xls"
'ActiveWorkbook.PrintOut
 
 
End Sub

( les chemins et les noms de fichiers sont corrects. l'impression des fichiers excels fonctionne aussi )

Seulement, pour le document word, il m'affiche la boite de dialogue concernant la lecture seule, dont j'aimerais me passer ( ce code doit pouvoir fonctionner malgré que le document soit ouvert )

Sachant que j'exécute ceci sur une feuille d'un classeur excel, comment imprimer aussi la feuille en question, mais pas les autres ?

Merci de votre aide

[vash641]

En attendant une réponse sur la désactivation temporaire de la textbox de la lecture seule ( avec les options "lecture seule", "notifier" et "annuler" ) j'ais poursuivi et l'impression se fait correctement.

Pour imprimer la feuille où est le bouton, dois je mettre un ActiveSheet.PrintOut ?

[aalex_38]

Bonjour,

Il me semble que tu as inversé :

Code :

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

Application.DisplayAlerts = True

[vash641]

En effet, la textbox de la lecture seule ne s'affiche plus \o/

Suite à l'impression je désire les sauvegarder dans un dossier que la macro devra au préalable créer, avec pour nom de dossier la valeur d'une cellule.

j'ais tenté un mkdir pour créer le dossier, sans succès :s

Code :

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

1
2
3
4
5
Cells(11, 2).Select
MkDir "L:\dossier"
ChDir "L:\dossier"
NomRep = "L:\dossier\pouet" & ActiveCell.Value
MkDir NomRep

Je me demandais aussi comment coder le fait que si le dossier est déjà existant, il devra écraser ( en demandant confirmation ) le dossier existant.
j'ais trouvé pour la sauvegarde, il ne me manque donc que la création et la gestion des dossiers déjà existant.

Autre question, je n'arrive pas à résoudre mon erreur 462 lors d'une seconde exécution de mon code :s

Auriez vous une idée sur mon souci ?

[aalex_38]

Pour tester si le dossier existe :

Code :

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

1
2
3
Function DossierExiste(NomDossier As String) As Boolean
    DossierExiste = Dir(NomDossier, vbDirectory) <> ""
end function

Ici il me semble qu'il manque un slash :

Code :

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

NomRep = "L:\dossier\pouet" & ActiveCell.Value

[vash641]

Merci tout marche nickel

J'ais néanmoins une erreur 4248 pour la sauvegarde, j'ais chercher un peu mais sachant que je ne peux pas toucher aux documents que je sauvegarde, comment faire?

Code :

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

appWD.ActiveDocument.SaveAs NomRep & "\doc1.doc"