imprimer tous les pdf d'un répertoire

[sri75]

Bonjour je cherche à imprimer tous les pdf situes dans mon répertoire c:

Cette macro est presque au point sauf que F qui est le nom de nom fichier n'est pas reconnu comme une variable dans ma commande stAppName mais comme la lettre F

merci pour votre aide

Sub OuvrirTousLesFichiers()
Dim F As Variant
Dim stAppName As String
With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.Filename = "*.pdf"
.Execute
On Error Resume Next
For Each F In .FoundFiles

stAppName = "C:\Program Files\Adobe\Reader 8.0 eader\AcroRd32.exe /p /h F"
Call Shell(stAppName, 1)
Next F
End With
End Sub

 

[ninbihan]

Re : imprimer tous les pdf d'un répertoire

Bonjour le forum,

Pour VBA, ce qui est entre guillemets est à lire tel quel donc pour ton cas il faut concaténer ton path avec ta variable, essaie ainsi

stAppName = "C:\Program Files\Adobe\Reader 8.0 eader\AcroRd32.exe /p /h " & F

@ +

Ninb

 

[sri75]

Re : imprimer tous les pdf d'un répertoire

Ca marche au poil merci.