"Impossible d'ouvrir le fichier ".... .xlsx" Fermé

Question

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 

Configuration: Windows / Chrome 67.0.3396.99

f894009 · Answer

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

yanndebretagn · Answer

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

yanndebretagn · Answer

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

yanndebretagn · Answer

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

yanndebretagn · Answer

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

yanndebretagn · Answer

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

eline44 · Answer

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

"Impossible d'ouvrir le fichier ".... .xlsx"

7 réponses

Discussions similaires