IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Sauvegarde excel 2007 au format excel 2000-2003


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Octobre 2007
    Messages
    19
    Détails du profil
    Informations forums :
    Inscription : Octobre 2007
    Messages : 19
    Par défaut Sauvegarde excel 2007 au format excel 2000-2003
    Bonjour,

    J'ai créé cette macro excel pour sauvegarder un tableau Excel.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sauvegarde le fichier
        Application.DisplayAlerts = False
        Workbooks(Classeur2).SaveAs NewFic
        Classeur2 = ActiveWorkbook.Name
        Workbooks(Classeur2).Close
        Application.DisplayAlerts = True
        MsgBos "Fichier enregistré sous:" & Chr(13) & NewFic
        Range("DAT_COPE_CONSO_SCAP") = Format(Date, "DD/MM/YYYY")& "à &
    Format(Time(), "HH:MM")
    End Sub
    Mon problème est que je voudrais enregistré automatiquement ce fichier en format excel 2003.
    Comment précisé ce détail dans ma macro? Merci de votre aide.

    Cordialement

  2. #2
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut
    Bonjour,

    Cela dépend de la version d'excel que tu utilises (ce que tu ne précises pas ).

    D'une manière générale, trouvé dans l'aide de saveas.

    Saves changes to the workbook in a different file.

    expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
    expression Required. An expression that returns one of the above objects.

    Filename Optional Variant. A string that indicates the name of the file to be saved. You can include a full path; if you don't, Microsoft Excel saves the file in the current folder.

    FileFormat Optional Variant. The file format to use when you save the file. For a list of valid choices, see the FileFormat property. For an existing file, the default format is the last file format specified; for a new file, the default is the format of the version of Excel being used.

    FileFormat Property
    See AlsoApplies ToExampleSpecificsReturns the file format and/or type of the workbook. Read-only XlFileFormat.

    XlFileFormat can be one of these XlFileFormat constants.
    xlCSV
    xlCSVMSDOS
    xlCurrentPlatformText
    xlDBF3
    xlDIF
    xlExcel2FarEast
    xlExcel4
    xlAddIn
    xlCSVMac
    xlCSVWindows
    xlDBF2
    xlDBF4
    xlExcel2
    xlExcel3
    xlExcel4Workbook
    xlExcel5
    xlExcel7
    xlExcel9795
    xlHtml
    xlIntlAddIn
    xlIntlMacro
    xlSYLK
    xlTemplate
    xlTextMac
    xlTextMSDOS
    xlTextPrinter
    xlTextWindows
    xlUnicodeText
    xlWebArchive
    xlWJ2WD1
    xlWJ3
    xlWJ3FJ3
    xlWK1
    xlWK1ALL
    xlWK1FMT
    xlWK3
    xlWK3FM3
    xlWK4
    xlWKS
    xlWorkbookNormal
    xlWorks2FarEast
    xlWQ1
    xlXMLSpreadsheet

    expression.FileFormat
    expression Required. An expression that returns one of the objects in the Applies To list.

    Remarks
    Some of these constants may not be available to you, depending on the language support (U.S. English, for example) that you’ve selected or installed.

    Example
    This example saves the active workbook in Normal file format if its current file format is WK3.

    If ActiveWorkbook.FileFormat = xlWK3 Then
    ActiveWorkbook.SaveAs fileFormat:=xlNormal
    End If


  3. #3
    Membre averti
    Inscrit en
    Octobre 2007
    Messages
    19
    Détails du profil
    Informations forums :
    Inscription : Octobre 2007
    Messages : 19
    Par défaut
    J'utilise la version 2007 d'excel mais cette macro sera utiliser par des personnes utilisant la version 2003 aussi. En utilisant la version 2007, il enregistre automatiquement au format Office 2007. C'est pour ca que je voudrais obliger ma macro à enregistré au format excel 2003.

    Merci d'avance

  4. #4
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut
    regarde dans le help du saveas de ton excel 2007, tu devrais trouver quel est le format a préciser pour sauver en version 2003.

  5. #5
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Tu peux essayer ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    NewFic = "Le_Chemin\Le_nom.xls" '<-- ne pas oublier l'extension .xls
    Workbooks(Classeur2).SaveAs Filename:=NewFic, FileFormat:=56 '<-- 56 est la constante du format Excel 2000-2003

  6. #6
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut
    @Fring
    Workbooks(Classeur2).SaveAs Filename:=NewFic, FileFormat:=56 '<-- 56 est la constante du format Excel 2000-2003
    Où peut-on trouver ce genre d'info (à l'exception de ton cerveau et ce post ) ?

  7. #7
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Citation Envoyé par bigboss60 Voir le message
    J'utilise la version 2007 d'excel mais cette macro sera utiliser par des personnes utilisant la version 2003 aussi
    Un petit détail qui m'a échappé...
    Il faut donc d'abord vérifier la version d'excel

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    NewFic = "Le_Chemin\Le_nom.xls" '<-- ne pas oublier l'extension .xls
    If Application.Version < 12 Then '<-- si version inférieure à 2007
        Workbooks(Classeur2).SaveAs Filename:=NewFic
    Else
        Workbooks(Classeur2).SaveAs Filename:=NewFic, FileFormat:=56 '<-- 56 est la constante du format Excel 2000-2003
    End If

  8. #8
    Membre Expert
    Avatar de JackOuYA
    Inscrit en
    Juin 2008
    Messages
    1 040
    Détails du profil
    Informations forums :
    Inscription : Juin 2008
    Messages : 1 040
    Par défaut
    oui c'est bien 56 je suis sous 2002 ... c'est pour cela que je n'arrive qu'as la constante xlExcel7 mais il existe xlExcel8

    56 = xlExcel8 (97-2003 format in Excel 2007, xls)
    à oui pour voir la valeur d'une constante :


  9. #9
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Pour info, l'explorateur d'objet (F2) vous donne les valeurs des constantes, elles se trouvent en bas quand vous en sélectionnez une.

    Starec

Discussions similaires

  1. Réponses: 4
    Dernier message: 16/06/2010, 21h10
  2. VBA Excel 2007 ne passe pas en 2003
    Par Basicnav dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 25/07/2009, 09h17
  3. Déploiement Application Excel 2007 sur Poste Excel 2003
    Par skaraa dans le forum Windows Forms
    Réponses: 2
    Dernier message: 01/07/2009, 15h53
  4. excel 2007 avec présentation excel 2003
    Par JEANFI59 dans le forum Excel
    Réponses: 2
    Dernier message: 28/03/2008, 12h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo