Bonjour à tous,
sur un fil du 7/02 je demandais de l'aide pour ouvrir et imprimer des
fichiers d'un REP et ses S/REP,dont le chemin figure sur une liste dcrée par
macro
Vous m'avez bien dépanné et pour les fichiers XLS c'est au point.
Pour les Word, François m'a concoté le code ci-dessous
Il ouvre bien Word mais pas le document
Si François ou un autre dieu du VBA repasse par là , son aide sera la bien
venue
Sub imprword2Francois()
On Error Resume Next
Dim Cal As Range, c As Range, s As Sheets, Ligne As Long
Dim i As Integer
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
Sheets("liste").Select
Set Cal = Range("B1:B12")
[A1].Select
For Each c In Cal
If c = "" Then Exit For
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open(c)
.PrintOut
.Documents.Close
End With
Next c
End Sub
Par ailleurs j'ai trouvé des codes sur les sites proposés par MISANGE
(désolé je ne me souviens plus lequel :j'en ai fait plusieurs)
L'un d'eux me convient et fonctionne bien mais je n'arrive pas à le modifier
pour qu'il ouvre selon la liste crée de fichiers
BIEN SÜR que tu m'as aidé!! et même beaucoup je vais regarder pour les lignes de code en pdf et je te tiens au courant merci gilles
Daniel.j
Pour imprimer un pdf
Sub LancePDFImprim() Application.DisplayAlerts = False
ThisWorkbook.FollowHyperlink "C:ajeteraa.pdf" ' a modifier Application.Wait Now + TimeValue("00:00:04") SendKeys "^{p}", True Application.Wait Now + TimeValue("00:00:02") Application.SendKeys ("^;{ENTREE}") Application.Wait Now + TimeValue("00:00:02") SendKeys "^{q}", True End Sub
Daniel FAQ MPFE http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
a écrit dans le message de news:
On 11 fév, 11:16, "Gilles72" wrote:
idem je suis sous xp pro office 2003 mais ça ne fait rien : le code que tu as proposé marche bien il me reste pdf à tester encore merci François Gilles
Rebonjours gilles
Pour les documents Pdf je t'avais sur un autre Fil répondu ceci :
Pour les documents Pdf je n'ai trouvé pour l'ouvrir que cette ligne de code :
C:Program FilesAdobeAcrobat 8.0 : est l'adresse du programme Acrobat reader
Il est à vérifier chez toi
Si cette ligne ouvre bien les documents Pdf je n'ai pas aprés la solution pour l'imprimer
Peut être quelqu'un sur le forum
Espérant t'avoir aidé Dis moi !!!!
Peut être peux tu en tirer partie
Dis moi !!!!
Pour imprimer un pdf
Sub LancePDFImprim()
Application.DisplayAlerts = False
ThisWorkbook.FollowHyperlink "C:ajeteraa.pdf" ' a modifier
Application.Wait Now + TimeValue("00:00:04")
SendKeys "^{p}", True
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys ("^;{ENTREE}")
Application.Wait Now + TimeValue("00:00:02")
SendKeys "^{q}", True
End Sub
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
72bb2a91-b92a-4445-965d-18288fcdff29@1g2000hsl.googlegroups.com...
On 11 fév, 11:16, "Gilles72" <nospam-gle...@g-t.fr> wrote:
idem
je suis sous xp pro office 2003
mais ça ne fait rien : le code que tu as proposé marche bien
il me reste pdf à tester
encore merci François
Gilles
Rebonjours gilles
Pour les documents Pdf je t'avais sur un autre Fil répondu ceci :
Pour les documents Pdf je n'ai trouvé pour l'ouvrir que cette ligne
de
code :
Sub LancePDFImprim() Application.DisplayAlerts = False
ThisWorkbook.FollowHyperlink "C:ajeteraa.pdf" ' a modifier Application.Wait Now + TimeValue("00:00:04") SendKeys "^{p}", True Application.Wait Now + TimeValue("00:00:02") Application.SendKeys ("^;{ENTREE}") Application.Wait Now + TimeValue("00:00:02") SendKeys "^{q}", True End Sub
Daniel FAQ MPFE http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
a écrit dans le message de news:
On 11 fév, 11:16, "Gilles72" wrote:
idem je suis sous xp pro office 2003 mais ça ne fait rien : le code que tu as proposé marche bien il me reste pdf à tester encore merci François Gilles
Rebonjours gilles
Pour les documents Pdf je t'avais sur un autre Fil répondu ceci :
Pour les documents Pdf je n'ai trouvé pour l'ouvrir que cette ligne de code :
C:Program FilesAdobeAcrobat 8.0 : est l'adresse du programme Acrobat reader
Il est à vérifier chez toi
Si cette ligne ouvre bien les documents Pdf je n'ai pas aprés la solution pour l'imprimer
Peut être quelqu'un sur le forum
Espérant t'avoir aidé Dis moi !!!!
Peut être peux tu en tirer partie
Dis moi !!!!
Daniel.j
Ou bien comme cela Valable pour n'importe quel document !
Private Declare 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 Private Const SW_SHOWNORMAL As Long = 1
Sub Imprim() Dim oFile As String Application.ScreenUpdating = False oFile = "C:ajeteraa.pdf" ShellExecute hwnd, "print", oFile, vbNullString, vbNullString, SW_SHOWNORMAL End Sub
-- Daniel FAQ MPFE http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
a écrit dans le message de news:
On 11 fév, 11:16, "Gilles72" wrote:
idem je suis sous xp pro office 2003 mais ça ne fait rien : le code que tu as proposé marche bien il me reste pdf à tester encore merci François Gilles
Rebonjours gilles
Pour les documents Pdf je t'avais sur un autre Fil répondu ceci :
Pour les documents Pdf je n'ai trouvé pour l'ouvrir que cette ligne de code :
C:Program FilesAdobeAcrobat 8.0 : est l'adresse du programme Acrobat reader
Il est à vérifier chez toi
Si cette ligne ouvre bien les documents Pdf je n'ai pas aprés la solution pour l'imprimer
Peut être quelqu'un sur le forum
Espérant t'avoir aidé Dis moi !!!!
Peut être peux tu en tirer partie
Dis moi !!!!
Ou bien comme cela
Valable pour n'importe quel document !
Private Declare 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
Private Const SW_SHOWNORMAL As Long = 1
Sub Imprim()
Dim oFile As String
Application.ScreenUpdating = False
oFile = "C:ajeteraa.pdf"
ShellExecute hwnd, "print", oFile, vbNullString, vbNullString,
SW_SHOWNORMAL
End Sub
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
72bb2a91-b92a-4445-965d-18288fcdff29@1g2000hsl.googlegroups.com...
On 11 fév, 11:16, "Gilles72" <nospam-gle...@g-t.fr> wrote:
idem
je suis sous xp pro office 2003
mais ça ne fait rien : le code que tu as proposé marche bien
il me reste pdf à tester
encore merci François
Gilles
Rebonjours gilles
Pour les documents Pdf je t'avais sur un autre Fil répondu ceci :
Pour les documents Pdf je n'ai trouvé pour l'ouvrir que cette ligne
de
code :
Ou bien comme cela Valable pour n'importe quel document !
Private Declare 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 Private Const SW_SHOWNORMAL As Long = 1
Sub Imprim() Dim oFile As String Application.ScreenUpdating = False oFile = "C:ajeteraa.pdf" ShellExecute hwnd, "print", oFile, vbNullString, vbNullString, SW_SHOWNORMAL End Sub
-- Daniel FAQ MPFE http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
a écrit dans le message de news:
On 11 fév, 11:16, "Gilles72" wrote:
idem je suis sous xp pro office 2003 mais ça ne fait rien : le code que tu as proposé marche bien il me reste pdf à tester encore merci François Gilles
Rebonjours gilles
Pour les documents Pdf je t'avais sur un autre Fil répondu ceci :
Pour les documents Pdf je n'ai trouvé pour l'ouvrir que cette ligne de code :
C:Program FilesAdobeAcrobat 8.0 : est l'adresse du programme Acrobat reader
Il est à vérifier chez toi
Si cette ligne ouvre bien les documents Pdf je n'ai pas aprés la solution pour l'imprimer
Peut être quelqu'un sur le forum
Espérant t'avoir aidé Dis moi !!!!
Peut être peux tu en tirer partie
Dis moi !!!!
Gilles72
Merci Daniel J'essaie ça ainsi que le code de François dès que possible et vous tiens au courant D'ores et déja j'ai rapidement transférer le 2ème code dans mon fichier meis le private sub me déclenche un message "seuls des commentaires peuvent... bla bla" j'ai pas eu le temps d'aller plus loin Merci
Merci Daniel
J'essaie ça ainsi que le code de François dès que possible
et vous tiens au courant
D'ores et déja j'ai rapidement transférer le 2ème code dans mon fichier
meis le private sub me déclenche un message "seuls des commentaires
peuvent... bla bla"
j'ai pas eu le temps d'aller plus loin
Merci
Merci Daniel J'essaie ça ainsi que le code de François dès que possible et vous tiens au courant D'ores et déja j'ai rapidement transférer le 2ème code dans mon fichier meis le private sub me déclenche un message "seuls des commentaires peuvent... bla bla" j'ai pas eu le temps d'aller plus loin Merci
Gilles72
Daniel, le 2ème code fonctionne bien il me reste à le faire fonctionner partir de ma liste comme pour les XLS et DOC et à fermer acrobat je vais regarder dès que j'ai 5mn avec ce qu'a proposé François merci à vous Gilles
Daniel,
le 2ème code fonctionne bien
il me reste à le faire fonctionner partir de ma liste comme pour les XLS et
DOC
et à fermer acrobat
je vais regarder dès que j'ai 5mn avec ce qu'a proposé François
merci à vous
Gilles
Daniel, le 2ème code fonctionne bien il me reste à le faire fonctionner partir de ma liste comme pour les XLS et DOC et à fermer acrobat je vais regarder dès que j'ai 5mn avec ce qu'a proposé François merci à vous Gilles
Gilles72
bonjour françois et Daniel j'ai posté un nouveau fil pour ma recherche sur PDF si d'aventures vous vous sentez inspirés... gilles
bonjour françois et Daniel
j'ai posté un nouveau fil pour ma recherche sur PDF
si d'aventures vous vous sentez inspirés...
gilles
