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

yanndebretagn Messages postés 100 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 24 janv. 2019 à 17:55

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

Afficher la suite

A voir également:

"Impossible d'ouvrir le fichier ".... .xlsx"
Comment ouvrir un fichier epub ? - Guide
Ouvrir fichier .bin - Guide
Comment ouvrir un fichier xlsx ? - Guide
Ouvrir fichier .dat - Guide
XLSX Viewer Free - Télécharger - Tableur

7 réponses

Réponse 1 / 7

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 2 / 7

yanndebretagn Messages postés 100 Date d'inscription Statut Membre Dernière intervention 2

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Save xlsm, enlevez le Fileformat
Pour VBA en PDF, je regarde

Click droit sur un module ou autre, imprimer
Par contre, pas de couleur

Réponse 3 / 7

yanndebretagn Messages postés 100 Date d'inscription Statut Membre Dernière intervention 2

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

remplacez: xxxxxxx
par: "devis double calage"

Simple,non.....

imprimer je pige pas
C'est a la mano, que voulez vous ?????????????????

Réponse 4 / 7

yanndebretagn Messages postés 100 Date d'inscription Statut Membre Dernière intervention 2

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Que voulez vous faire des codes macros, pige pas la chose?????

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

yanndebretagn Messages postés 100 Date d'inscription Statut Membre Dernière intervention 2

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 PDF

Sub 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

yanndebretagn Messages postés 100 Date d'inscription Statut Membre Dernière intervention 2

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 6 / 7

yanndebretagn Messages postés 100 Date d'inscription Statut Membre Dernière intervention 2

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

Réponse 7 / 7

eline44

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

De quoi parlez-vous??

Votre réponse