Discussion :

[touriste01]

Bonjour,

Dans ma macro, je souhaiterai activer un classeur qui serait déjà ouvert par l'utilisateur afin d'y ajouter des informations complémentaires dans une cellule. Le seul hic, c'est que ce classeur, bien qu'ayant les mêmes onglets et informations se nomme différement pour chaque personne.

Est-ce qu'une fonction du genre: Windows(*jesaispasquoi*.xls).activate existerait ?

Quelqu'un a-t-il une solution pour m'aider.

Merci

[Godzestla]

Bonjour,

dans la collection Workbooks, tu trouveras tous les classeurs ouverts dans cette instance d'excel.

Au delà de ça, bonne chance pour trouver celui que tu cherches.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
For Each wb In Workbooks
 Debug.Print wb.Name
Next
End Sub

[touriste01]

Merci Godzestla pour ta réponse,

Donc, imaginons que je n'aie que celui qui execute la macro et celui qui doit recevoir les modifications, ça devrait le faire. Plus qu'à mettre le premier nom trouvé en variable et j'aurai ma solution...

[Godzestla]

Oui,

dans ce cas de figure, si le nom est <> de Thisworkbook.name, alors tu as ce que tu cherches.

Mais attention au add-ins (XLA et XLS) ouverts par défaut.

Mieux vaux tester avant pour être bien certain qu'il n'y a pas d'autres classeurs ouverts.

Tu peux aussi filtrer sur le chemin du classeur en utilisant .Fullname.

Bonne chance.

[touriste01]

Merci pour l'aide... j'ai trouvé ce que je cherchai... et tout fonctionne...

Nickel

Pour info (si cela peut être utile à qqun)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim WB As String
If Workbooks.Count = 2 Then
For i = 1 To 2
If Not Workbooks(i).Name = ThisWorkbook.Name Then WB = Workbooks(i).Name
Next i

[Godzestla]

J'aime mieux comme ceci, perso :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim WB As String
If Workbooks.Count = 2 Then
For i = 1 To 2
If Workbooks(i).Name <> ThisWorkbook.Name Then WB = Workbooks(i).Name
Next i

[Fvandermeulen]

Bonjour,

Juste pour donner la solution que j'utilise pour pas m'embêter avec les XLA et autres que Godzestla indique.
L'idée, j'affecte à une variable le fichier en cours (donc celui avec la macro) ensuite avec le Getopenfilename, l'utilisateur ouvre le fichier voulu et devient donc le Workbook actif qu'on peut donc aussi affecter à une variable, et voilà...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub BonFichier()
Dim WkbS As Workbook, WkbC As Workbook
Dim LeFichier As String
 
Set WkbS = ThisWorkbook 'Affecte à WkbS (source) le fichier actif, qui contient la macro
 
LeFichier = Application.GetOpenFilename("Fichier Excel (*.xls*), *.xls*")
If LeFichier <> "False" Then
    Application.Workbooks.Open LeFichier
    Set WkbC = ActiveWorkbook 'Affecte la variable ou fichier qui vient d'être ouvert, donc de l'utilisateur
End If
 
'A partir d'ici tu peux utiliser les variables WkbS et WkbC
 
End Sub

A+