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
Proxy ouvert instagram - Forum Réseaux sociaux
Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
Fichier ouvert dans system ✓ - Forum Windows
Comment activer windows 10 - Guide
Activer le pavé tactile - Guide

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 743
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 743
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 743
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 743
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 743
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 743
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

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

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

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

Copier plage cellules d'un classeur vers un autre classeur

VBA Excel: Importer des feuilles vers un classeur

Discussions similaires

Newsletters