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

Question

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.

pijaku · Answer

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é...

pijaku · Answer

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

Alem13 · Answer

Merci, J'ai essayé mais je reçois une erreur:

"Variable objet ou variable de bloc With non définie"

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

3 réponses

Discussions similaires

Newsletters