Code sauvegarde sous pdf

bonjour a vous tous

j'ai rajouter un appel a une sub dans https://forum.excel-pratique.com/excel/code-de-sauvegarde-qui-fait-defaut-t40389.html

et le code de la sub fait défaut a

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

donc voici le code complet de la sub(le code de sauvegarde est déjà en ligne)

Sub SavePDF()
Dim Chemin$, Lieu$, Client$, Choix$
Client = Sheets("facture").Range("J5").Value
Choix = Sheets("facture").Range("D17").Value
If Choix = "DEVIS   n°" Then
    Lieu = "\DevisPDF" & "\" & Client & ".pdf"
ElseIf Choix = "FACTURE  n°" Then
    Lieu = "\FacturePDF\" & Client & ".pdf"
ElseIf Choix = "FACTURE SAV n°" Then
    Lieu = "\FacturesavPDF\" & Client & ".pdf"
ElseIf Choix = "FACTURE D'ACOMPTE n°" Then
    Lieu = "\FactureacomptePDF\" & Client & ".pdf"
End If

Chemin = "c:\facture" & Lieu  '"\DevisPDF\" & Client & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

avec ce code je voudrais que la sauvegarde se fasse en même tant en PDF et en .xls

je vous rassure les dossiers sont bon dans c:/facture

est ce raisonnable .xls quand on est sous windows8 64b et office 10 32b

serai ce mieux .xlsm ?

Pascal

j'ai oublier de vous donner le code d'erreur

erreur "1004"

document non enregistré, le document est peut être ouvert où une erreur s'est produite lors de l'enregistrement

Salut Grisan29

Pour faire une sauvegarde en ".xls" il faut lui indiquer le "FileFormat",

mais moi je conseille toujours d'utiliser le format d'origine, à savoir ".xlsx" sauf si ces fichiers doivent être ouvert avec Excel 2003

De plus il faut avant la sauvegarde faire une copie de la/des feuille(s) dans un autre classeur et sauvegarder celui-ci

Sheets("Toto").Copy
Activeworkbook.SaveAs Chemin
Activeworkbook.Close

A+

bonjour BrunoM45

toi qui a eu connaissance du fichier ou dois je mettre le code que tu donnes

dans Private Sub newfeuille_Click()

ou dans Sub SavePDF()

xlsx enregistre comment avec ou sans macros ,

je fonctionne avec office 2010 et windows8 quel est le mieux ?

le but n'est pas d'imprimer en PDF mais d'effectuer la sauvegarde sous PDF afin de l'envoyer en pièces jointes avec mon FAI

créer un code d'envoi mail dans le fichier deviens alors superflu

Pascal

Re,

Il faudrait nous donner la dernière version de ton fichier, car on ne sait pas ou tu en es !?

A+

bonjour BrunoM45

voici le lien du fichier

https://www.cjoint.com/c/CFin2SLhxSW

et comment peux t'on faire une facture sur devis avec ce fichier si par hasard je ne m'y suis pas pris a l'envers

pour ne ouvrir un autre post et encombrer le forum

Pascal

Re,

Voici ton fichier modifié

Tu peux effectivement créer une facture à partir d'un devis, mais ça demande du développement

(que je ne souhaite pas faire)

La marche à suivre est :

1) demander quel devis on souhaite ouvrir pour transformer

2) Inscrire facture dans le fichier

3) lui donner un numéro calculé

4) l'enregistrer dans les factures

A+

bonjour BrunoM45

justement j'ai créer un fichier pour rechercher des devis mis je n'arrive pas a ouvrir le fichier avec

je te le joint pour voir,

je regarde mieux ton fichier joint ce soir

ce que j'en ai vu est bien, mais j'ai du enlever un

 ActiveWorkbook.Close 

pour ne pas que le classeur se ferme complètement

je ne serai de retour que lundi soir

bon week end

Pascal

bonjour BrunoM45

Merci de ta modification qui remplie son office c'est parfait

citation :

' Nota : drôle de nom alors qu'il va contenir des devis !?
  sPath = "C:\facture\"

alors j'ai remplacer par

 sPath = "C:\sauvegarde\"

c'est mieux je pense

Pascal