Discussion :

[chris09300]

Bonsoir
J'ai de nouveau un probleme pour enregistrer une feuille excel 2007 en pdf.
J'ai executer la macro ci dessous: elle s'arrete
au niveau que j'ai mis en rouge. pourquoi ?

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
Sub imprimer_pdf()
'
' impression sous format PDF
'
Dim repert As String, nomfichier As String

'repert, dans ce cas est ton chemin
repert = "C:\A- archives Excel\Factures camping"

'nomfichier est le nom de fichier
nomfichier = "Facture" & Range("A1")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       repert & "\" & nomfichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

merci

[mercatog]

As tu vérifié le contenu de A1?
Soit en A1 tu n'as rien, soit le nom comporte un caractère interdit pour nommer les fichier ou soit le fichier pdf qui porte le même nom est ouvert...

[chris09300]

bonsoir
j'ai verifie la cellule il y a le chiffre 1, j'ai essayer de mettre une lettre idem.

[mercatog]

J'ai vérifié chez moi le code et ça passe sans problème du moment que le chemin complet du fichier est valide (et hormis les 3 possibilités énumérées plus haut)
Sinon, une question triviale, tu arrives manuellement à enregistrer ton fichier en pdf?

[chris09300]

non, je fait enregistrer sous, et je ne vois vois l 'extention PDF.

j'ai meme fait un copie colle des rep. pour etre sur d'eviter une erreur de syntaxe.

[mercatog]

Bon, si tu ne peux pas manuellement c'est que par macro tu ne peux pas. non?
Je ne sais pas si tu dois installer avec ton Office quelque chose

Edit: Installer ce plugin ICI