"Impossible d'ouvrir le fichier ".... .xlsx"
Bonjour, du moins re
nouveau problème avec mes macros
Dans mon fichier j'ai un bouton macro pour enregistrer le fichier. Il enregistre mais quand je veux l'ouvrir ,crack, message "Impossible d'ouvrir le fichier ".... .xlsm" car son format ou son extension n'est pas valide. Vérifier que le fichier n'est pas endommagé et que son extension correspond bien au format fichier. "
par contre je peux l'enregistrer et le ré-ouvrir via enregistrer sous d'excel
le fameux code:
Sub Save_AS()
Chemin = "C:\Users\PS\Documents\documents xxxxx\xxxxxxx\devis client 2018\"
Mon_Nom = Sheets("renseignement client").Range("B9") & " " & Sheets("renseignement client").Range("b11") & " " & Sheets("renseignement client").Range("b13") & ".xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin & Mon_Nom, _
FileFormat:=xlExcel8, _
CreateBackup:=False
Application.DisplayAlerts = True
End Sub
question subsidiaire:
je voudrais créer une copie en pdf dans un fichier différent
merci
nouveau problème avec mes macros
Dans mon fichier j'ai un bouton macro pour enregistrer le fichier. Il enregistre mais quand je veux l'ouvrir ,crack, message "Impossible d'ouvrir le fichier ".... .xlsm" car son format ou son extension n'est pas valide. Vérifier que le fichier n'est pas endommagé et que son extension correspond bien au format fichier. "
par contre je peux l'enregistrer et le ré-ouvrir via enregistrer sous d'excel
le fameux code:
Sub Save_AS()
Chemin = "C:\Users\PS\Documents\documents xxxxx\xxxxxxx\devis client 2018\"
Mon_Nom = Sheets("renseignement client").Range("B9") & " " & Sheets("renseignement client").Range("b11") & " " & Sheets("renseignement client").Range("b13") & ".xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin & Mon_Nom, _
FileFormat:=xlExcel8, _
CreateBackup:=False
Application.DisplayAlerts = True
End Sub
question subsidiaire:
je voudrais créer une copie en pdf dans un fichier différent
merci
7 réponses
-
Bonjour,
FileFormat:=xlExcel8
C'est un format Excel 97-2003, donc .xls
Sub Classeur_Complet_PDF() Chemin = "C:\Users\PS\Documents\documents xxxxx\xxxxxxx\devis client 2018\" Fichier = "AhQueCoucou.pdf" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Chemin & Fichier, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub -
bonjour,
en faite je voulais dire xlsm afin de conserver mes macros
et comment faire pour compiler le code pour enregistrer xlsm et pdf
question de débutant surement mais nécessaire
merci -
bonsoir f8,
merci, la methode d' enlever le Fileformat à l'air de fonctionner
par contre Click droit sur un module ou autre, imprimer je pige pas
J'ai trouvé ça de mon coté
Sub Save_AS_pdf()
Worksheets("devis double calage").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\PS\Documents\documents xxxxxxxx\xxxxxxxxxxx2018\devis client 2018\xxxxxxx.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
je voudrais (si possible) que le nom en pdf soit le même que celui xlsm
merci -
Bonjour,
remplacez: xxxxxxx
par: "devis double calage"
des devis double calage j'en fais quelques un dans la semaine
je pensais plutot a un truc genre
Mon_Nom = Sheets("renseignement client").Range("B9") & " " & Sheets("renseignement client").Range("b11") & " " & Sheets("renseignement client").Range("b13") & ".pdf"
du coup le devis xlsm et pdf aurons le même nom ,
mais je n'arrive pas à le caser
C'est a la mano, que voulez vous ?????????????????
le but est d'automatiser les devis au maximum qui sont bien trop chronophage
en tous cas merci f8 -
bonjour f8
toujours aussi matinal
en faite je rempli mon devis ht long larg, excel me calcul le quantitatif
ensuite j'ai un bouton avec macro qui m'enregistre celui ci en xlsm avec n° devis et nom client
j'aimerai que quand je clique sur ce fameux bouton il enregistre en xlsm dans un fichier et enregistre une seule feuille dans un autre fichier en pdf
voila, bonne journée-
Re,
Ok, je regarde la chose
Pourrais avoir la macro pour xlsm????
Il faut le nom de la feuille a enregistrer en PDF
Code pour feuille en PDFSub Feuille_PDF() Chemin = "C:\Users\PS\Documents\documents xxxxx\xxxxxxx\devis client 2018\" With Worksheets("renseignement client") Mon_Nom = .Range("B9") & " " & .Range("B11") & " " & .Range("B13") 'Nom du fichier PDF End With Worksheets("nom de la feuille").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Chemin & Mon_Nom & ".PDF", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub -
re,
le code xlms
Sub Save_AS()
Chemin = "C:\Users\PS\Documents\documents nom entreprise\nom entreprise 2018\devis client 2018\"
Mon_Nom = Sheets("renseignement client").Range("B9") & " " & Sheets("renseignement client").Range("b11") & " " & Sheets("renseignement client").Range("b13") & ".xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin & Mon_Nom, _
CreateBackup:=False
Application.DisplayAlerts = True
End Sub
la feuille
devis double calage
merci et bonne soirée -
Bonjour,
code pour enchainement XLSM et PDF
Sub Sauvegarde_XLSM_PDF() Chemin = "C:\Users\PS\Documents\documents nom entreprise\nom entreprise 2018\devis client 2018\" With Worksheets("renseignement client") Mon_Nom = .Range("B9") & " " & .Range("b11") & " " & .Range("b13") End With Call Save_AS(Mon_Nom, Chemin) Call Feuille_PDF(Mon_Nom, Chemin) End Sub Sub Save_AS(Fichier, Repertoire) Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=Repertoire & Fichier & ".XLSM", CreateBackup:=False Application.DisplayAlerts = True End Sub Sub Feuille_PDF(Fichier, Repertoire) Worksheets("devis double calage").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Repertoire & Fichier & ".PDF", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub
-
-
bonjour f8,
ça m'a l'air pas mal du tout.
je passe en résolu et je te remercie pour ta patience et ton aide
en espérant que cela serve à d'autres noobs
kenavo -
Bonjour bonjour, j'ai le même problème impossible d'ouvrir....ect ! sauf que je n'ai pas votre niveau en informatique et donc je ne comprend rien au manip' qu'il faut faire !
C'est un fichier assez important j'aimerais bcp pouvoir l'ouvrir... Merci d'avance
