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

Résolu

Vba
Classeur

Alem13 Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
Alem13 Messages postés 40 Date d'inscription Statut Membre Dernière intervention - 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.

Afficher la suite

A voir également:

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

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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 Statut Membre Dernière intervention

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 Statut Modérateur Dernière intervention 2 761

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 Statut Modérateur Dernière intervention 2 761

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 Statut Membre Dernière intervention

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 Statut Modérateur Dernière intervention 2 761

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 Statut Membre Dernière intervention

Sur le classeur "été_XXX"

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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 Statut Membre Dernière intervention

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 Statut Modérateur Dernière intervention 2 761

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

Votre réponse

Discussions similaires