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 entre 3 fichiers


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 2010
    Messages
    43
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 43
    Par défaut Sauvegarde entre 3 fichiers
    Bonjour à tous,

    Voici mon problème :
    J'ai 3 fichiers Excel : X, Y et Z

    1) Lors de la sauvegarde de Y j'ai une macro dans l'évènement
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    qui copie son contenu dans le fichier Z, sauvegarde Z et le ferme.

    Jusque là tout va bien.

    2) Aujourd'hui, j'ai une macro dans mon fichier X qui copie des données dans Y via une userform dans X et un msgbox (si on clique sur yes), ça fonctionne.
    A la fin de cette macro de X je mets ActiveWorkbook.Save pour sauvegarder mon fichier Y.

    3) Donc l'évènement
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    de Y est rappelé (dont je parlais en 1) ) mais l'enregistrement de Z plante à la ligne :

    avec une erreur "l'indice n'appartient pas à la sélection"

    Sachant qu'avant cette ligne j'ai :
    Quand je regarde, le fichier Z n'est pas ouvert.... et là pour moi c'est un mystère. J'ai essayé de rajouter un
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.Visible =True
    mais ça n'y fait rien.
    Et les fichiers X et Y sont bien ouverts et visibles.

    Je suis un peu désespéré après une journée passée à chercher d’où vient le problème. J'imagine que le fait de passer par 2 fichiers pour enregistrer un 3ème ne doit pas aider mais je ne vois pas d'où peut venir l'erreur sachant qu'entre 2 fichiers les macros fonctionnent mais entre 3 fichiers rien ne va plus...

    Merci de votre aide !

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Je n'ai pas trop le temps de me pencher sur ton cas mais un conseil, quand tu travaille avec plusieurs classeurs (ou plusieurs feuilles) évite les "ActiveWorkbook.Save" utilise plutôt la variable du classeur comme par exemple "ClasseurY.Save", il y a de fortes chances que le problème vienne de là, à voir ?

    Hervé.

  3. #3
    Membre averti
    Inscrit en
    Octobre 2010
    Messages
    43
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 43
    Par défaut
    Merci j'ai modifié mais ca n'y fait rien ...

Discussions similaires

  1. Sauvegarder structure dans fichier...
    Par Kineas dans le forum C++
    Réponses: 3
    Dernier message: 17/03/2005, 18h57
  2. 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
  3. automatisation entre un fichier .txt et sql server
    Par bibi2607 dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 26/01/2005, 10h18
  4. [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
  5. Partage d'une constante entre 2 fichiers en C
    Par elsargento dans le forum C
    Réponses: 6
    Dernier message: 29/09/2003, 22h17

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