[VBA]excel vers pdf

**Oussbaba au rhum** · 12/10/2007, 14h34

bonjour,
comment fait on pour passer le chemin du sendkey?
un bout de code:

Code :

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

1
2
3
4
5
6
7
Const ThePath As String = "C:\documents an settings\admin\bureau" 
Const TheFile As String = "Essai"
 
Sub pdf()
SendKeys ThePath & TheFile + "~"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", collate:=True
End Sub

lorsque que je fais ca, la boite de dialogue s'ouvre et me dit que
"and settings\admin\bureau\essai" n'est pas un chemin valide

quelqu'un peut m'aider??

**Jean-Philippe André** · 12/10/2007, 15h09

salut,
il faut faire un

Code :

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

Replace(ThePath,"\","\\")

je crois

**Oussbaba au rhum** · 12/10/2007, 15h13

merci de la reponse

pourquoi faire un replace? le sendkey ne prend pas les slash en charge?

**Jean-Philippe André** · 12/10/2007, 15h15

non justement ^^

**fred65200** · 12/10/2007, 15h15

bonjour

mets un slash à la fin
Const ThePath As String = "C:\documents an settings\admin\bureau\"
et ça doit fonctionner.

Salutations
frd65200

**Jean-Philippe André** · 12/10/2007, 15h17

lol, au passage, il manque un d à and :p

**Oussbaba au rhum** · 12/10/2007, 15h22

ca marche pas!!

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Const ThePath As String = "C:\documents an settings\admin\bureau\"
Const TheFile As String = "TheTestingFile.pdf"
 
Sub pdf()
SendKeys ThePath & TheFile + "~"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", collate:=True
End Sub

**fred65200** · 12/10/2007, 15h24

re

le D

Const ThePath As String = "C:\documents and settings\admin\bureau\"

Si tu n'est pas sous Vista, télécharge Clickie pour copier les noms de dossier /fichier,
Sur Vista, Shift + Clic sur le dossier / Fichier
ligne "Copier en tant que chemin d'accès"
@+