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 d'un fichier [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé Avatar de GADENSEB
    Homme Profil pro
    Responsable Administratif et Financier
    Inscrit en
    Mars 2014
    Messages
    569
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Responsable Administratif et Financier
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2014
    Messages : 569
    Par défaut Sauvegarde d'un fichier
    Re Bonjour,
    Pour le fichier joint je souhaiterais créer une procédure (via un bouton) pour enregistrer ce fichier :

    - Dans un dossier "OLD" présent dans le mm dossier que le fichier en question
    - Cette version devra (dans le dossier "OLD") se s'appeler NOTE DIAG DLA - Version X"
    - Sachant que dans le dossier OLD, il peut se trouver d'autre version du fichier et donc le "X" devra s'incrémenter 1 puis 2 puis 3......

    donc au final il faut :

    Dossier :
    - NOTE DLA DIAG enregister au plus récent
    Dossier / OLD
    - NOTE DLA DIAG - Version X

    Est-ce clair ?

    Je ne sais pas par où commencer le code !


    Merci

    Bonne aprem

    Seb


    note diag.xls

  2. #2
    Membre expérimenté
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2014
    Messages
    271
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Juin 2014
    Messages : 271
    Par défaut
    Bonjour,

    Pour les étapes 1 et 2 je pense que tu peux adapter ça:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
     
     
     ThisWorkbook.SaveAs sDossier & "\" & Fichier & ".xls " 'Sauvergarde du dossier
    Pour l'incrémentation tu peux essayer un = Right"Nom de ton fichier,1" + 1. Tu récupère le numéro de ton dossier et tu ajoutes 1.

  3. #3
    Membre éclairé Avatar de GADENSEB
    Homme Profil pro
    Responsable Administratif et Financier
    Inscrit en
    Mars 2014
    Messages
    569
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Responsable Administratif et Financier
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2014
    Messages : 569
    Par défaut
    Je pars là dessus


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Sub SAUVEGARDE_Cliquer()
     
      répertoire = ActiveWorkbook.Path & "\ OLD"
      nomFichier = "NOTE DIAG DLA"
      nf = Dir(répertoire & "\" & nomFichier & "*")
      n = 0
      Do While nf <> ""
        n = n + 1
        nf = Dir
      Loop
      ActiveWorkbook.SaveAs Filename:=répertoire & "\" & nomFichier & " - V" & n + 1
     
     
    End Sub
    Comment inclure :

    Si le dossier OLD éxiste alors j'incrémente le N° de fichier ?
    Si le dossier OLD n'éxiste pas alors je le créer et j'incrémente le n° de fichier ?

    Je veux aussi que le fichier d'origine (sans numéro de version) reste ouvert
    là dans cette macro le fichier sans numéro de version se ferme et c'est celui avec un numéro de version qui est à l'écran !

    Merci

    Bonne journée

    Seb

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 179
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 179
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Je veux aussi que le fichier d'origine (sans numéro de version) reste ouvert
    là dans cette macro le fichier sans numéro de version se ferme et c'est celui avec un numéro de version qui est à l'écran !
    Utilise la méthode SaveCopyAs plutôt que SaveAs
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  5. #5
    Membre éclairé Avatar de GADENSEB
    Homme Profil pro
    Responsable Administratif et Financier
    Inscrit en
    Mars 2014
    Messages
    569
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Responsable Administratif et Financier
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2014
    Messages : 569
    Par défaut
    Bonjour,

    Cela marche nikel avec ce code que l'on m'a donné sur un autre forum


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Sub SAUVEGARDE_Cliquer()
    Dim Répertoire As String, Nf As String, NomFichier As String
    Dim N As Long
     
     Répertoire = ActiveWorkbook.Path & "\ OLD"
     
    'Si le dossier OLD n'éxiste pas alors je le créer
     If Dir(Répertoire, vbDirectory) = "" Then MkDir (Répertoire)
     
    'et j'incrémente le n° de fichier pour les 2 cas
      NomFichier = "NOTE DIAG DLA"
      Nf = Dir(Répertoire & "\" & NomFichier & "*" & ".xlsm")
      N = 0
      Do While Nf <> ""
        N = N + 1
        Nf = Dir
      Loop
     
    'Sauvegarde une copie du fichier et ne touche donc pas au fichier en cours
      ActiveWorkbook.SaveCopyAs Filename:=Répertoire & "\" & NomFichier & " - V" & N + 1 & ".xlsm"
     
    End Sub

  6. #6
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 179
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 179
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Cela marche nikel avec ce code que l'on m'a donné sur un autre forum
    Oui donc avec la méthode SaveCopyAs que je t'ai préconisé d'utiliser en lieu et place de SaveAs
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  7. #7
    Membre éclairé Avatar de GADENSEB
    Homme Profil pro
    Responsable Administratif et Financier
    Inscrit en
    Mars 2014
    Messages
    569
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Responsable Administratif et Financier
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2014
    Messages : 569
    Par défaut
    Yes !
    tu avais raison !


    Merci !

    Bonne aprem

    Seb

  8. #8
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Citation Envoyé par GADENSEB Voir le message
    Yes !
    tu avais raison !


    Merci !

    Bonne aprem

    Seb
    Donc le copier-coller est efficace.

  9. #9
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,


    Citation Envoyé par Philippe Tulliez Voir le message
    Bonjour,

    Oui donc avec la méthode SaveCopyAs que je t'ai préconisé d'utiliser en lieu et place de SaveAs
    En conclusion, il y a des fois où il faut regretter de perdre du temps à répondre.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 16/06/2005, 14h48
  2. sauvegarde d'un fichier apres transformations
    Par tigana dans le forum OpenGL
    Réponses: 5
    Dernier message: 18/05/2005, 10h01
  3. Sauvegarder structure dans fichier...
    Par Kineas dans le forum C++
    Réponses: 3
    Dernier message: 17/03/2005, 18h57
  4. Date de sauvegarde d'un fichier
    Par FEF dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 21/02/2005, 09h04
  5. [JList] Lecture des données sauvegardées dans un fichier
    Par Myogtha dans le forum Composants
    Réponses: 7
    Dernier message: 10/06/2004, 21h05

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