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+

[Godzestla]

Chouette technique Frédéric.
je prend note.

[patricktoulon]

bonjour

sans vouloir offensé qui que que ce soit

puisque la condition est "If Workbooks.Count = 2" et puisque que i tombe forcement a deux puisque le 1 est forcement celui que l'on a sous les yeux
donc le bon c'est forcement le 2eme mais que ce passe t_il si il y en a plus de deux et que le bon et le 4 ou 5 ou 3eme ta boucle te sort de la sub tout simplement
enfin si c'est que pour 2

Code :

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

1
2
3
4
 
Dim WB As String
If Workbooks.Count = 2 Then
WB = Workbooks(2).Name

si j'ai bien compris ce fichier est utilisé par plusieurs personne et celles ci l'enregistre a leur bon vouloir en ce qui concerne le nom
pourquoi ne pas supprimer la possibilité de l'enregistrer manuellement
et ajouter un bouton quelque part et sur ce bouton une macro qui l'enregistre toujours avec le même nom et au même endroit
ainsi le nom est connu bien avant ta macro

enfin moi ce que j'en dis
edit:
la proposition de fvandermeulen et la plus probante amon avis bien que
a la place des variables wkbs et wkbc j'utilisiserai plutot la concatenation de deux variable

dim wkbs () as object
dim numero as long

a chaque open numero=numero+1
workbooks.open "ton fichier"
wkbs(numero)= activeworkbook.name

'ainsi tu peut en ouvrir autant que ton pc pourra le supporter





au plaisir

[Godzestla]

Salut Patrick,

Verifie ceci

puisque la condition est "If Workbooks.Count = 2" et puisque que i tombe forcement a deux puisque le 1 est forcement celui que l'on a sous les yeux

Tu te trompes. Le 1 c'est le premier ouvert !!

[mercatog]

Bonjour à tous
Je me mêle aussi
LeFichier est déclaré en variant (sinon pour moi, quand l'utilisateur annule la sélection du fichier, LeFichier est à Faux)

Code :

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

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

[Fvandermeulen]

Bonjour à tous
Je me mêle aussi
LeFichier est déclaré en variant (sinon pour moi, quand l'utilisateur annule la sélection du fichier, LeFichier est à Faux

Quand tu dis est à Faux, il renvoi "Faux" et pas "False", c'est donc encore une question de langue (je suis en anglais donc pas de souci), si c'est bien ça tu as tout à fait raison, le variant se plus "tranportable"

A+

[Godzestla]

Frédéric.

Attention, dans ton code tu as mis ceci :

Code :

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

If LeFichier <> "False" Then

au lieu de

Code :

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

If LeFichier <> False Then

je suppose que c'est cela que mercatog à voulu mentionner.

[Fvandermeulen]

Frédéric.

Attention, dans ton code tu as mis ceci :

Code :

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

If LeFichier <> "False" Then

au lieu de

Code :

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

If LeFichier <> False Then

je suppose que c'est cela que mercatog à voulu mentionner.

Pourtant "False" fonctionne, je viens de réessayer car vous m'aviez mis le doute.
En fait les deux fonctionnent, même en String, reste à voir si la langue influence le retour avec la variable en string (Mercatog ?)

Edit:
P.S. C'est juste pour savoir, car je suis d'accord que Variant est mieux

[Godzestla]

Frédéric,

Pourtant "False" fonctionne, je viens de réessayer car vous m'aviez mis le doute.

mais pas en changeant de langue, donc à éviter absolument je pense.

[mercatog]

J'ai Excel Français, je confirme que déclarée en String, LeFichier retourne "Faux"

[Fvandermeulen]

Donc nous sommes tous bien d'accord, si la variable sous String renvoi des valeurs différentes en fonction de la langue, c'est à EVITER ABSOLUMENT

A+

[Godzestla]

Donc nous sommes tous bien d'accord, si la variable sous String renvoi des valeurs différentes en fonction de la langue, c'est à EVITER ABSOLUMENT

A+

Ainsi que cette formulation:

Code :

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

If LeFichier <> "False" Then