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

yanndebretagn Messages postés 104 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

7 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  2. yanndebretagn Messages postés 104 Statut Membre 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
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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
      0
  3. yanndebretagn Messages postés 104 Statut Membre 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
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

      remplacez: xxxxxxx
      par: "devis double calage"

      Simple,non.....

      imprimer je pige pas
      C'est a la mano, que voulez vous ?????????????????
      0
  4. yanndebretagn Messages postés 104 Statut Membre 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
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

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

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

    Posez votre question
  6. yanndebretagn Messages postés 104 Statut Membre 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
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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
      0
    2. yanndebretagn Messages postés 104 Statut Membre 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
      0
    3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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
      0
  7. yanndebretagn Messages postés 104 Statut Membre 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
    0
  8. 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
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

      De quoi parlez-vous??
      0

Discussions similaires

Ouvrir un fichier Excel avec smartphone Androïd
FRAN633 -
Le Pingou -

21 réponses
Ouvrir un fichier .pub sans Publisher
baissaoui -
baissaoui -

0 réponse