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 :

Ouverture d'un fichier Excel au lancement d'un autre fichier Excel [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2011
    Messages
    163
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Aisne (Picardie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Transports

    Informations forums :
    Inscription : Octobre 2011
    Messages : 163
    Points : 89
    Points
    89
    Par défaut Ouverture d'un fichier Excel au lancement d'un autre fichier Excel
    Bonjour,

    J'ai une macro VBA qui s’exécute au lancement d'un fichier Excel ( model ). Cette macro permet d'ouvrir un autre fichier Excel ( Cube ), calcul certaine données et les affiches ensuite dans le fichier Excel ( model ).

    Pour lancer le code à l'ouverture du fichier Excel ( model ) j ai mis le code dans thisworkbook. Mon problème , lorsque je demande d'ouvrir l autre fichier Excel ( Cube ) , le fichier s'ouvre bien mais j'ai une erreur : l 'indice n'appartient à la sélection.

    Je ne comprend pas l'erreur car lorsque je relance cette macro à partir d'un bouton dans le fichier excel (model) et non à l'ouverture du fichier ( model ), le code fonctionne très bien.

    Voici mon code :

    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
    23
    24
    25
    Private Sub Workbook_Open()
     
    Range("B6:F9").Select
    Selection.ClearContents
     
    ledir = ActiveWorkbook.Path & "\"
    fichier_cube = "cube_ponctualité_V3.xlsm"
    fileModele = "model.xlsm"
     
    Call maj_tcd(ledir, fichier_cube, fileModele)
    Call insertion_donnee
    Call fermer_cube(fichier_cube, ledir)
     
     
    End Sub
     
    Private Sub maj_tcd(ledir, fichier_cube, fileModele)
     
        Application.DisplayAlerts = False
     
        Workbooks.Open Filename:=ledir & fichier_cube
        Windows(fichier_cube).Activate
        Sheets("Feuil1").Select
     
    end sub
    L'erreur ce fait sur Windows(fichier_cube).Activate

    Cordialement

  2. #2
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 206
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 206
    Points : 14 358
    Points
    14 358
    Par défaut
    Bonjour,

    Essaie :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub maj_tcd(ledir, fichier_cube, fileModele)
     
        Application.DisplayAlerts = False
     
        Workbooks.Open Filename:=ledir & fichier_cube
        DoEvents
        Windows(fichier_cube).Activate
        Sheets("Feuil1").Select
     
    End Sub
    En tout état de cause, la ligne est inutile.

  3. #3
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2011
    Messages
    163
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Aisne (Picardie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Transports

    Informations forums :
    Inscription : Octobre 2011
    Messages : 163
    Points : 89
    Points
    89
    Par défaut
    Cela ne fonctionne pas.
    J'ai essayer en mettant :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
      Windows(fichier_cube).Activate
        Sheets("Feuil1").Select]
    en commentaire.

    Mais après la suite de ma macro plante forcément.
    Une idée ?

  4. #4
    Membre confirmé Avatar de jackborogar
    Homme Profil pro
    Etudiant Ingénierie Financière
    Inscrit en
    Avril 2012
    Messages
    290
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Etudiant Ingénierie Financière
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2012
    Messages : 290
    Points : 481
    Points
    481
    Par défaut
    Alors j'ai testé ça, ça fonctionne parfaitement sans message d'erreur:

    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
    23
    24
    25
    Private Sub CommandButton1_Click()
     
     
    ledir = ActiveWorkbook.Path & "\"
    fichier_cube = "as.xls"
     
     
    Call maj_tcd(ledir, fichier_cube)
     
     
     
    End Sub
     
    Sub maj_tcd(ledir, fichier_cube)
     
        Application.DisplayAlerts = False
     
        Workbooks.Open Filename:=ledir & fichier_cube
     
        Application.DisplayAlerts = True
     
        Windows(fichier_cube).Activate
        Sheets("Feuil1").Select
     
    End Sub
    Désolé mal compris la question:

    Voici le code:

    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
    23
    24
    25
    26
    27
    Private Sub Workbook_Open()
     
    Range("B6:F9").Select
    Selection.ClearContents
     
    ledir = ActiveWorkbook.Path & "\"
    fichier_cube = "cube_ponctualité_V3.xlsm"
     
     
    Call maj_tcd(ledir, fichier_cube)
     
    End Sub
     
     
     
    Sub maj_tcd(ledir, fichier_cube)
     
     
        On Error Resume Next
     
        Workbooks.Open Filename:=ledir & fichier_cube
     
        Workbooks("cube_ponctualité_V3.xlsm").Activate
     
        Workbooks("cube_ponctualité_V3.xlsm").Sheets("Feuil1").Select
     
    End Sub

  5. #5
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 206
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 206
    Points : 14 358
    Points
    14 358
    Par défaut
    Cela ne fonctionne pas.
    J'ai essayer en mettant :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Windows(fichier_cube).Activate
        Sheets("Feuil1").Select
    Mets seulement :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("Feuil1").Select

  6. #6
    Membre confirmé Avatar de jackborogar
    Homme Profil pro
    Etudiant Ingénierie Financière
    Inscrit en
    Avril 2012
    Messages
    290
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Etudiant Ingénierie Financière
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2012
    Messages : 290
    Points : 481
    Points
    481
    Par défaut
    J'ai testé avec seulement cette ligne de code ça ne fonctionne pas Daniel, par contre avec mon bloc ci dessus, ça fonctionne à merveille!

  7. #7
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    Je propose de travailler avec des variables objets sans rien activer ni sélectionner. exemple:
    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
    23
    24
    25
    Private Sub Workbook_Open()
    Dim Rep As String, Cube As strine, Model As String
     
    Worksheets("Feuil1").Range("B6:F9").ClearContents
    Rep = ThisWorkbook.Path & "\"
    Cube = "cube_ponctualité_V3.xlsm"
    Model = "model.xlsm"
     
    Call Maj_TCD(Rep, Cube, Model)
    End Sub
     
    Private Sub Maj_TCD(ByVal LeDir As String, ByVal Fichier_Cube As String, ByVal FileModele As String)
    Dim Wbk As Workbook
     
    If Dir(LeDir & Fichier_Cube) <> "" Then
        Application.DisplayAlerts = False
        Set Wbk = Workbooks.Open(LeDir & Fichier_Cube)
     
        'suite du code avec en Wbk le classeur FichierCube
     
        Wbk.Close True
        Application.DisplayAlerts = True
        Set Wbk = Nothing
    End If
    End Sub

  8. #8
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2011
    Messages
    163
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Aisne (Picardie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Transports

    Informations forums :
    Inscription : Octobre 2011
    Messages : 163
    Points : 89
    Points
    89
    Par défaut
    Parfait ça marche nickel.
    Merci pour votre aide

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

Discussions similaires

  1. [XL-2010] Macro pour Ouvrir un fichier Excel a partir d'un autre fichier Excel
    Par jérémyp8 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 27/06/2013, 13h27
  2. Réponses: 0
    Dernier message: 28/02/2011, 13h48
  3. Réponses: 2
    Dernier message: 05/03/2009, 17h43
  4. [Excel 2003] Liaison vers d'autres fichiers
    Par damsmut dans le forum Excel
    Réponses: 28
    Dernier message: 21/08/2007, 09h35
  5. Excel : lien hypertexte vers un autre fichier avec nom page
    Par delamarque dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 28/11/2005, 09h33

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