Activer un classeur Excel sur VBA

Fermé

Classeur

Tachfine - 27 avril 2016 à 15:07
thev Messages postés 1882 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 26 octobre 2024 - 30 avril 2016 à 00:36

Bonjour,

J'utilise le planificateur des tâches windows pour lancer des fichiers excel automatiquement à une heure précise, je vous explique mon problème, je lance un fichier Excel qui m'importe une extraction de données, par la suite et dans 5 minutes tout en laissant le fichier Extraction ouvert, je lance un fichier qui s’alimente à partir de cet extraction, tout marche bien pour l'importation de l'extraction, sauf que quand je lance le deuxième fichier, j'ai l'erreur suivante: l'indice n'appartient pas à la sélection, sur VBA j'ai une erreur sur le code suivant: Windows("Extract").Activate.
Par contre, quand je fais le traitement manuellement sans planificateur, cela marche sans problème, pouvez-vous s'il vous plaît m'aider pour résoudre ce problème ou me proposer une solution alternative?

A voir également:

Vba activer un classeur
Comment activer windows 10 - Guide
Activer chromecast - Guide
Activer pavé tactile pc portable - Guide
Cle pour activer windows 10 gratuitement - Guide
Activer microsoft office gratuitement - Guide

3 réponses

Réponse 1 / 3

thev Messages postés 1882 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 26 octobre 2024 691
Modifié par thev le 27/04/2016 à 15:56

Si le classeur "Extract" est bien ouvert, ce code devrait fonctionner


For Each classeur In Workbooks
        If classeur.Name = "Extract" Then
            classeur.Activate
            Exit For
        End If
Next

Tachfine
27 avril 2016 à 17:15

Merci pour ta réponse, en fait le planificateur en ouvrant les deux fichiers ouvre deux instance Excel, ce qui fait, quand tu vas activer un classeur à travers un autre, il voudra pas parce qu'il ne fait pas partie de la même instance Excel, as-tu d'autres solutions s'il te plaît?

Cordialement,

thev Messages postés 1882 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 26 octobre 2024 691 > Tachfine
Modifié par thev le 27/04/2016 à 19:19

Pour moi, le plus simple est de créer dans ton classeur 1 d'importation de données, une liaison avec ton classeur 2 d'exploitation de l'extraction, ce qui te permettra d'ouvrir ton classeur 2 à partir du classeur 1 et donc rester dans la même application Excel.
La planification de ta 2ème tâche n'est plus alors nécessaire.

Réponse 2 / 3

thev Messages postés 1882 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 26 octobre 2024 691
Modifié par thev le 27/04/2016 à 21:26

Tu peux cependant essayer


Set classeur = GetObject("Extract")
classeur.Activate

Tachfine
27 avril 2016 à 21:31

Mercii
Je vais l'essayer demain au travail
Ta première solution n'est pas pratique malheureusement :/
En fait je suis statisticien, et je dois fournir environ 12 rapports par jour, il y aussi le problème des rapports qui changent chaque mois
Peux-tu s'il te plaît m'expliquer getobject précisément? Et si ce code me posera un problème avec mon premier problème des instances Excel
Merci beaucoup pour ton aide précieux :)

Réponse 3 / 3

thev Messages postés 1882 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 26 octobre 2024 691
Modifié par thev le 27/04/2016 à 22:13

Voir l'article de Microsoft sur ce sujet
https://docs.microsoft.com/fr-fr/office/troubleshoot/office-suite-issues/getobject-createobject-behavior

Si vous connaissez le nom d'un document ouvert dans cette instance, vous pouvez le joindre à une instance spécifique. Par exemple, si une instance d'Excel est en cours d'exécution avec un classeur ouvert nommé Book2, le code suivant attache avec succès à cette instance même s'il n'est pas l'instance plus ancienne qui a été lancé :
Set xlApp = GetObject("Book2").Application

Tu peux évidemment assigner la première instance Excel lancée par le planificateur mais comme tu veux juste utiliser le classeur "Extract", je t'ai donc proposé le code ci-dessus.
Cela dit, je ne suis pas certain que "Extract" devienne le classeur actif dans la 2ème instance d'Excel. Il vaut donc mieux préfixer les plages d'Extract que tu vas utiliser.


Set classeur = GetObject("Extract")
classeur.ActiveSheet.<plage>

Tachfine
27 avril 2016 à 22:15

Merci beaucoup :)
Je le teste demain et te donne un retour
Merci encore une fois

Tachfine
28 avril 2016 à 12:37

Bonjour Thev,

J'ai essayé, mais ça n'a pas marché, voici le message d'erreur que j'ai eu:

erreur Automation
Syntaxe incorrecte.

voici le code que j'ai mis

Private Sub Workbook_Open()
Dim xlApp As Excel.Application
Set xlApp = GetObject("Extract").Application
Call AlimenterINPUT2
End Sub

thev Messages postés 1882 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 26 octobre 2024 691 > Tachfine
Modifié par thev le 28/04/2016 à 16:09

La syntaxe est correcte. L'erreur signifie que l'objet n'a pas été trouvé. Quel est est exactement la nature du fichier "Extract" ?

Tachfine
28 avril 2016 à 18:08

(.xlsx)

thev Messages postés 1882 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 26 octobre 2024 691 > Tachfine
Modifié par thev le 28/04/2016 à 18:56

Alors le code doit être :


Private Sub Workbook_Open()
   Dim xlApp As Excel.Application
  Set xlApp = GetObject("Extract.xlsx").Application
  Call AlimenterINPUT2  (avec préfixe xlApp.Workbooks("Extract.xlsx").ActiveSheet.<plage>)
End Sub

Il est plus simple de référencer directement le classeur, comme ceci :


Private Sub Workbook_Open()
  Dim wb_extract As Workbook
  Set wb_extract = GetObject("Extract.xlsx")
  Call AlimenterINPUT2  (avec préfixe wb_extract.ActiveSheet.<plage>)
End Sub

Discussions similaires

VBA - Récupérer des données d'un classeur fermé

Macro VBA / Copier Coller entre Classeurs

comment retirer la protection d'un fichier excel 2016

Macro copie coller des données d'un classeur à un autre

Excel vba, Passer d'un fichier à un autre et revenir

Impression sur Excel 2010 : imprimer un classeur entier en recto