Archiver en pdf

[lioneldu47]

Bonjour le forum,​

J'ai un petit problème pour enregistrer en pdf une feuille excel. J'arrive à le faire à l'aide d'une macro mais mon problème est pour le nom du fichier.Je n'arrive pas à le changer. J'aimerais que le nom du fichier prenne la valeur de deux cases par exemple D3 et D4. Ces valeurs changent à chaque fois...
Voici ma macro qui fonctionne mais toujours avec le même nom...

Sub Archiver1()
Range("C1:I58").Select
AL = Range("F3,I33")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\pascal\Bureau\Archive Facture\1.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

En rouge est le nom que je veux changer par la valeur d'une case...

Merci pour votre aide

 

[lioneldu47]

Re : Archiver en pdf

Merci beaucoup manu 62 ca fonctionne enfin...

 

[lioneldu47]

Re : Archiver en pdf

Bon merci pour le répertoire c'est bon mais il y a une erreur de cette ligne:
Set pdfjob = New PDFCreator.clsPDFCreator

AVEC ERREUR AUTOMATION

Merci pour votre aide

 

[klin89]

Re : Archiver en pdf

Bonsoir lioneldu47,

Comme ceci :

La déclaration :

Dim pdfjob As Object 'liaison tardive

Puis :

 Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")

Enfin je crois !

Klin89

 

[lioneldu47]

Re : Archiver en pdf

Ca ne marche toujours pas mais merci quand meme si quelqu'un arrive à voir mon erreur ça serait gentil.

Dim pdfjob As Object 'liaison tardive
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
Dim sPDFName As String
Dim sPDFPath As String
Dim RetVal As Variant
'/// Change the output file name here! ///
Sheets("Facture").Select
sPDFName = "I3" 'ici la cellule du nom de fichier
sPDFPath = ActiveWorkbook.Path & Application.PathSeparator
'Check if worksheet is empty and exit if so
If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
Set pdfjob = New PDFCreator.clsPDFCreator
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
'.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveDirectory") = Range("R7") 'ici la cellule sur le chemin
.cOption("AutosaveFilename") = Range("I3") ' ici la cellule sur le nom du fichier
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With
'Print the document to PDF
Sheets("Facture").Select

ActiveSheet.PrintOut copies:=1, ActivePrinter:="\\BUREAU\KONICA MINOLTA magicolor 2590MF"
'Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
RetVal = Shell("Taskkill /IM PDFCreator.exe /F", 0)
' pdfjob.cClose
'Set pdfjob = Nothing
End Sub

 

[lioneldu47]

Re : Archiver en pdf

Bien sur au début il y a Sub Archiver1()

 

[Manu62]

Re : Archiver en pdf

Bonjour,

je pense que c'est la ligne la

sinon envoi copie de ton code dans un fichier ...

ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"

A+
Manu

 

[lioneldu47]

Re : Archiver en pdf

Non ce n'est pas cela à la place de "PDFCreator" j'ai mis le nom de mon imprimante et l'impression à marché une fois aprés j'ai voulu changer le dossier pour l'archive et à ce moment là ça n'a plus fonctionné...

En me mettant une erreur sur le ligne:
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")

avec comme intitulé erreur automation...

Si pas d'autre réponse pour donner une idée j'envoi un fichier.

merci

 

[Manu62]

Re : Archiver en pdf

Bonjour,

Voici un bout de fichier, clic sur bouton envoyer par email.

Avant tout, modifi le repertoire car moi je pointe sur K:\

(envoyer par mail car moi en plus de le stocker, je l'envoi par email)

A+

Manu

 

[lioneldu47]

Re : Archiver en pdf

Merci beaucoup...
En fait, j'ai toujours un problème sur la même ligne alors je pense que le problème vient de PDFCréator.

Qu'en pensez vous?

Merci beaucoup pour toutes vos explications...

 

[Manu62]

Re : Archiver en pdf

salut

passe ton fichier

A+

Manu

 

[lioneldu47]

Re : Archiver en pdf

Etant donné que mon fichier est gros et qu'il y a plusieurs relations entre les feuillles donc impossible de les séparer je n'ai pu l'envoyer qu'au lien suivant merci

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Manu62]

Re : Archiver en pdf

Salut,

Tu n'as pas un fichier xls, moi je ne sais pas ouvrir...

A+

Manu

 

[lioneldu47]

Re : Archiver en pdf

au fait mon problème pour l'instant est sur la feuille facture et c'est le bouton à droite ou il y a rien d'écrit dessus...

 

[lioneldu47]

Re : Archiver en pdf

voici Cijoint.fr - Service gratuit de dépôt de fichiers

merci

 

[Manu62]

Re : Archiver en pdf

Et voilà

Chez moi cela marche

Cijoint.fr - Service gratuit de dépôt de fichiers

J'ai mis en repertoire c:\range\

A+