Discussion :

[MMichel5962]

Bonsoir
Pour convertir l'onglet excel "Datas" en pdf, j'utilise ces 2 codes mais ça ne fonctionne pas!

Code :

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

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & "Datas.PDF", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

ou

Code :

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

Sheets("Datas").ExportAsFixedFormat Type:=xlTypexslm, Filename:=ActiveWorkbook.Path & "\" & "Datas.PDF

"

Pour contre, quand je met ce code :

Code :

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

NameFile = Path & "Premier_Emb_P_2012_Pérenchies.xlsm"

Tous fonctionne sauf que j'envoie le classeur en entier et je ne veux pas que l'on découvre ma macro (actualisation du fichier,envoi par email en automatique, etc )
Merci pour vos réponses

[bruce68]

Bonsoir MMichel5962 et le forum

Essai avec cette macro

Code :

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

1
2
3
4
5
6
Sub Envoi_Feuil_Excel_en_PDF()
'on cré le fichier PDFdans le même dossier que le fichier source
Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "Feuil1.pdf"
 
End Sub

[jfontaine]

Bonjour,

J'ai du mal à te suivre, tu parles de sauvegarde en PDF puis après au format xlsm

Pour sauvegarger en PDF (Excel 2010)

Code :

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

ActiveWorkbook.SaveAs Filename:="C:\Classeur1.pdf", FileFormat:= xlPDF

Si tu veux envoyer un fichier recel sans les macros, enregistre le au format xlsx

[MMichel5962]

Bonsoir
j'ai une erreur
Error # 0 was generated by

[kiki29]

Salut, ici la génération du pdf de la feuille active fonctionne
n'utilisant pas Lotus il faudra procéder à une recherche sur le forum
par exemple Envoi de mail par Lotus Notes 8.5 en VBA

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub Tst()
Dim sPath As String
    sPath = ThisWorkbook.Path
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & "\" & "Datas.PDF", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

j'ai une erreur
Error # 0 was generated by

???? ne sert pas à grand chose car pas explicite

[MMichel5962]

bonjour, je bloqoue sur la conversion en pdf

[kiki29]

Salut, est-ce que le code fourni ( quasi similaire au tien ) , placé seul dans un classeur vierge génère une erreur ?

Placer qqch comme

Code :

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

Debug.Print Err.Number & " " & Err.Description

pour nous renvoyer un message plus explicite.

[MMichel5962]

Bonjour
En mettant ces 4 lignes de commandes
Je convertit la feuille active en PDF dans le répertoire ou se trouve le classeur

Code :

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

1
2
3
4
5
6
7
8
9
Sheets("Datas").Select
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & "Datas.PDF", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
Sheets("Datas").ExportAsFixedFormat Type:=xlTypexslm, Filename:=ActiveWorkbook.Path & "\" & "Datas.PDF"
 
Sheets("Datas").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & "Datas.PDF"
 
NameFile = Path & "Datas.PDF"

[kiki29]

Re, je t'ai posé des questions précises, tu n'y a pas répondu, la preuve

Sheets("Datas").ExportAsFixedFormat Type:=xlTypexslm, Filename:=ActiveWorkbook.Path & "\" & "Datas.PDF"

Tu l'ouvres ce peudo fichier Pdf avec Acrobat Reader ? ce n'est pas parce qu'il porte l'extension Pdf que c'est un fichier Pdf. D'ailleurs tu devrais avoir une erreur de compilation.

Et si l'une ou l'autre de tes autres formules fonctionnent pour générer le Pdf, cela signifie que le problème est ailleurs dans ton code.

j'ose espérer que tu n'as pas de On Error Resume Next ou autre qui masquerait une erreur ?

[MMichel5962]

Bonsoir
Ton code fonctionne sans erreur !!!
Quel est le problème?
Amicalement
Michel

[kiki29]

Re, ne versant pas dans l'extispicine, si le fichier Pdf est généré c'est à toi d'adapter ton code en conséquence. Je précise je n'utilise ni Lotus ni Outlook pour mes mails, j'ai donné plus haut un lien pour l'envoi de mail via Lotus 8.5

[fring]

[digression]

Re, ne versant pas dans l'extispicine

merci Wikipédia... (je n'avais jamais entendu ce terme)
[/digression]

[MMichel5962]

Bonsoir
Pour répondre à une question

Code :

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

1
2
3
4
5
On Error GoTo SendMailError
SendMailError:
  msg = "Error # " & Str(Err.Number) & " was generated by " _
            & Err.Source & Chr(13) & Err.Description
  MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext

Je n'ai pas d'erreur qui s'affiche
A@

[MMichel5962]

Bjr, peu importe les codes, au bout de x fois de fonctionnement, j'ai une erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Sub PDF()
Dim sPath As String
 
    sPath = ThisWorkbook.Path
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & "\" & "Datas.PDF", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
End Sub