VBA:Sélectionner 2ème classeur ouvert ou un cl. au nom variable

Résolu/Fermé

Vba
Classeur

Alem13 Messages postés 40 Date d'inscription jeudi 6 juin 2013 Statut Membre Dernière intervention 5 juillet 2013 - 1 juil. 2013 à 16:03
Alem13 Messages postés 40 Date d'inscription jeudi 6 juin 2013 Statut Membre Dernière intervention 5 juillet 2013 - 4 juil. 2013 à 10:19

Bonjour,

Dans un code VBA, je cherche un moyen de sélectionner l'autre classeur ouvert, le nom pouvant varier. Quelqu'un connait-il un code?

A défaut, sauriez-vous comment sélectionner un classeur ouvert dont une partie du nom varie?

Exemple: mon classeur s'appelle été_indien mais je peux aussi en avoir ouvert un qui s'appelle été_maltais, été_bangladais, été_comorrien...

j'ai essayé Windows("été_" & "*").Activate mais cela ne fonctionne pas.

Merci d'avance pour vos réponses.

A voir également:

Vba activer un classeur déjà ouvert
Comment activer windows 10 - Guide
Activer chromecast - Guide
Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
Activer office gratuitement - Accueil - Bureautique
Fichier ouvert dans system ✓ - Forum Windows

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
1 juil. 2013 à 16:12

Bonjour,

Tu peux :
1- boucler sur tous les classeurs ouverts
2- tester chaque nom de classeur...

Comme ceci :

Sub Boucle()
Dim Wbk As Workbook
    
For Each Wbk In Application.Workbooks
    If Left(Wbk.Name, 4) = "été_" Then
        Wbk.Activate
        Exit For
    End If
Next Wbk
End Sub

Et, dans l'idéal, pour pouvoir passer d'un classeur à l'autre, il convient de :
1- affecter le 1er classeur à une variable,
2- sélectionner le 2ème
3- l'affecter à une autre variable.
Dans le style :

Sub ChoixClasseurs()
Dim Wbk As Workbook
Dim ClasseurSource As Workbook
Dim ClasseurDest As Workbook

Set ClasseurSource = ThisWorkbook
For Each Wbk In Application.Workbooks
    If Left(Wbk.Name, 4) = "été_" Then
        Set ClasseurDest = Wbk
        ClasseurDest.Activate
        Exit For
    End If
Next Wbk
End Sub

NB : je n'ai pas testé ces codes, ils ne devraient pas être trop loin de la réalité...

Alem13 Messages postés 40 Date d'inscription jeudi 6 juin 2013 Statut Membre Dernière intervention 5 juillet 2013
2 juil. 2013 à 09:42

Merci pour ta réponse.

Ta 1ère solution fonctionne en effet mais n'y a-t-il pas un moyen plus simple en utilisant qch du type "Windows("été_" & "*").Activate "? A l'utilistation de la macro, il n'y a que deux classeurs ouverts et un seul de type "été_".

Pour la 2ème, est-ce que les noms ClasseurDest et ClasseurSource sont mémorisés pour d'autres Sub? Je ne parviens pas à l'utiliser ailleurs. As-tu des solutions pour cela?

Merci pour tout

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
2 juil. 2013 à 09:59

de rien.

1- non je ne connais rien de plus simple. En même temps :
- ça limite les risques d'erreurs pour le cas ou ton fichier été_ n'est pas ouvert
- si tu n'as que 2 classeurs ouverts, il n'y a aucune perte de temps...

2- Pour utiliser une variable dans d'autres procédures (Sub), il faut en changer la portée.
Une variable peut avoir trois type de portée :
- au niveau de la procédure et seulement de la procédure. On la déclare comme ceci :

Sub Machin()
Dim maVar As String
'blabla
End Sub

- au niveau du module et seulement de ce module :

Dim maVar As Integer

Sub essai()
Call Affectation
Call Multipli
MsgBox maVar
End Sub

Sub Affectation()
maVar = 12
End Sub

Sub Multipli()
maVar = maVar * 10
End Sub

-au niveau de tous les modules du classeur :
En entête d'un module standard :

Public maVar As Double

dans ce cas, maVar sera accessible de toutes tes procédures, dans tous les modules du classeur...

Un lien sur les variables : https://silkyroad.developpez.com/VBA/LesVariables/

Réponse 2 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
2 juil. 2013 à 15:07

Le truc alors, c'est de ne pas activer ni sélectionner le classeur...

Remplace :

Sub Copie_colle_les_donnees_passees_vers_le_nouveau_classeur()

'
Sheets("vélo").Select
Cells.Select
Selection.Copy
Windows("CO2.xlsx").Activate
Sheets("écolo").Select
Range("A1").Select
ActiveSheet.Paste

Windows("été_XXX").Activate
Sheets("voiture").Select
Cells.Select
Selection.Copy
Windows("CO2.xlsx").Activate
Sheets("polluante").Select
Range("A1").Select
ActiveSheet.Paste

End Sub

Par :

Sub Copie_colle_les_donnees_passees_vers_le_nouveau_classeur()
Dim Wbk As Workbook
    
For Each Wbk In Application.Workbooks
    If Left(Wbk.Name, 4) = "été_" Then Exit For
Next Wbk
'ICI Wbk est notre classeur "été_". Donc :
Wbk.Sheets("vélo").Range("A1:AZ10000").Copy Workbooks("CO2.xlsx").Sheets("écolo").Range("A1")
Wbk.Sheets("voiture").Range("A1:AZ10000").Copy Workbooks("CO2.xlsx").Sheets("polluante").Range("A1")
End Sub

Réponse 3 / 3

Alem13 Messages postés 40 Date d'inscription jeudi 6 juin 2013 Statut Membre Dernière intervention 5 juillet 2013
2 juil. 2013 à 16:15

Merci, J'ai essayé mais je reçois une erreur:

"Variable objet ou variable de bloc With non définie"

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
2 juil. 2013 à 16:22

Je viens de tester, ça fonctionne impec........

Tu es sous quel classeur quand tu tentes de copier-coller?

Alem13 Messages postés 40 Date d'inscription jeudi 6 juin 2013 Statut Membre Dernière intervention 5 juillet 2013
3 juil. 2013 à 09:10

Sur le classeur "été_XXX"

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
Modifié par pijaku le 3/07/2013 à 09:38

Salut,
1- vérifie bien les orthographes des noms de classeurs et des feuilles...
2- Essaye :

Sub Copie_colle_les_donnees_passees_vers_le_nouveau_classeur()
Dim Wbk As Workbook
    
For Each Wbk In Application.Workbooks
    If Left(Wbk.Name, 4) = "été_" Then
        Wbk.Activate
        Exit For
    End If
Next Wbk
'ICI Wbk est notre classeur "été_". Donc :
With Workbooks("CO2.xlsx")
Wbk.Sheets("vélo").Range("A1:AZ10000").Copy .Sheets("écolo").Range("A1")
Wbk.Sheets("voiture").Range("A1:AZ10000").Copy .Sheets("polluante").Range("A1")
End With
End Sub

Alem13 Messages postés 40 Date d'inscription jeudi 6 juin 2013 Statut Membre Dernière intervention 5 juillet 2013
3 juil. 2013 à 10:41

Erreur: Objet requis

Ce n'est pas grave, j'ai trouvé un autre moyen.

Merci pour ton aide.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 757
3 juil. 2013 à 11:21

j'ai trouvé un autre moyen.

Par curiosité, quel est-il?

Discussions similaires

VBA : copier-coller une feuille dans un autre classeur

Bonjour, n'étant pas expert en VBA, je me tourne vers vous car j'ai besoin de votre aide !

Je voudrais créer un programme qui ouvre un fichier source (TM.xlsx) afin de copier une feuille de celui-ci (Type_mine) dans un autre classeur (en l'occurence, le classeur contenant le programme, "Programme.xlsx" dans la feuille "CC").

J'ai pour le moment fait cela :

Sub recup_donnees()

Dim fichier As String
Dim programme As String

fichier = "H:\Stage\Programme\TM.xlsx"
programme = "H:\Stage\Programme\Programme.xlsm"

Workbooks.Open Filename:=fichier 'Ouvre le fichier source
Workbooks(f...

copier une plage de cellule ( range) sur un autre fichier excel

Bonjour je m'adresse à vous les spécialiste ou amateur du visual basic
j'ai un petit problème, j'ai 11 fichier excel chacun contient plusieur feuille mais j'utilise qu'une seul feuille par fichier
je veux avoir un nouveau fichier excel qui regroupe une plage de cellule de chaque fichier sur un seul tableau, mais j'arrive pas à copier la plage de chaque fichier pour la coller dans le fichier d'arrivée, j'ai essayé plusieurs code mais comme je suis débutant, j'arrive pas à le faire.
j'ai juste réussi à faire avec plusieurs feuille d'un seul fichier et à coller les plages de chaque feuilles sur un tableau que j'ai crée sur une autre feuille du méme fichier

s...

Récupérer des donnés d'un fichier excel fermé avec vba

Bonjour à tous,

Je voudrai faire un programme vba capable d'aller chercher des infos dans un classeur excel fermé situé sur le disque dur et que les données de ce classeur ce "colle" dans un autre fichier excel.

En clair, j'ai mon fichier "MC_essai" qui doit aller prendre des infos dans le fichier excel "MC_Plastique" et coller les infos de "MC_Plastique" dans "MC_essai" Cependant, je veux récupérer que les infos concernant un N° de semaine précis. Et je n'arrive pas à faire ce dernier point.

Quelqu'un pourrait il regarder mon programme et me dire ce qui ne va pas svp!

Merci, par avance, pour votre aide

Licoquelicot ...

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

Copier plage cellules d'un classeur vers un autre classeur

BONJOUR à tous

Copier d'un classeur ouvert « classeur_DEMANDE_ENGAGEMENT.xls » une plage de cellules non adjacente dont certaines fusionnées avec texte et ou numériques de la 1er feuille "inscription"
les cellules sont C9 et B11:J55 puis E63 :E64
pour coller la plage dans un autre dossier d'un autre classeur xls fermée
dans les même emplacement dans le 1er feuille « inscription«
Chemin du « classeur_REFAIT_ENGAGEMENT.xl » de réception fermée
«C:\Users\michel\Desktop\A_COMMENTcaMARCHE\ENGAGEMENT_REFAIT\classeur_REFAIT_ENGAGEMENT.xls »
Après fusion les classeurs restent ouvert
VOICI le cijoint des classeurs
https:...

VBA Excel: Importer des feuilles vers un classeur

Bonjour,

Je cherche un code fiable me permettant d'importer les feuilles d'un classeur à un autre.
Concrètement, en ouvrant le classeur contenant la macro puis en appuyant sur un bouton, j'aimerais pouvoir récupérer toutes les feuilles d'un classeur à choisir mais situé dans le même répertoire.
Est-ce que quelqu'un saurait faire?

Merci!