Bonsoir

en excel VBA

J'ai 2 classeurs d'ouverts et travaille uniquement sur un , l'autre je vais rechercher des informations .

Le classeur sur lequel je travaille est activer et je peux récupérer son nom

Mais comment faire pour le 2 ème classeur qui lui n'est pas activé pour récupérer son nom

Merci

bonjour

une piste

NomOnglet = Sheets(2).Name

Salut,

Je dois être mal réveillé aujourd'hui mais ta question m'échappe : si 2 classeurs sont ouverts comment ont-ils été ouverts ? Logiquement, tu ouvres le premier classeur dans lequel se trouve le code VBA, lequel lorsqu'il a besoin du second classeur l'ouvre (à condition que le chemin et le nom soient dans le code...) ? Maintenant, si pour une raison que j'ai du mal à suivre tu dois récupérer les noms des classeurs, s'il est assuré qu'il n'y en a que 2 d'ouverts, il te suffit de les lister :

Par exemple: nomwb1 = ThisWorkbook.Name [ça c'est le nom du classeur qui contient le code]

For Each wb In Application
nomwb2 = .Workbooks(wb).Name
If nomwb2 <> nomwb1 Then Exit For
Next wb

[et tu auras récupéré le nom du second]. La meilleure méthode dépend de ce que tu veux faire ensuite. Pour les utiliser, tu n'as même pas besoin du nom, tu peux affecter le classeur à une variable objet...

Dim monwbk As Workbook
If Workbooks.Count = 2 Then
For i = 1 To 2
If Not Workbooks(i).Name = ThisWorkbook.Name Then Set monwbk = Workbooks(i)
Next i

[Tu disposes alors de ThisWorkbook et monwbk pour manipuler chaque classeur]

Bonjour,

Oui, un peu plus d'info sur le Pourquoi/Comment du besoin aurait simplifié les choses.
Il n'est pas certain à ce stade que créer une instance à ce stade soit indispensable...

Si tu veux juste récupérer le nom, tu peux te contenter de :

Sub test()
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
End If
MsgBox WB
End Sub

A+

merci à vous ,ça marche

un peu de précision ,les 2 classeurs sont ouverts à la main l'un après l'autre (c'est pas pour moi)

j'ai le classeur code qui ne se nomme pas toujours pareil et l'autre lequel je voulais qu'il soit renommer (donc pas toujours le même nom ).

avant votre intervention j'étais oblihé de nommer toujours pareil

Merci à vous , j'ai pris la solution de galopin01 ,celle de ferrand ne fonctionnait pas (erreur:compilation référence incorrecte ou non qualifiée).C'est peut-être de ma faute je suis débutant dans VBA

encore merci

@+.

Salut,

celle de ferrand ne fonctionnait pas (erreur:compilation référence incorrecte ou non qualifiée).

Laquelle ?

Galopin (qui très souvent anticipe) t'a fourni une macro complète. Il n'y a qu'à la recopier en bloc et aucune raison pour que cela ne marche pas. Ce n'est pas mon cas (je ne le fais en général jamais tant que je ne sais pas avec certitude où l'on va), les bribes de code que j'ai glissées, il fallait les compléter pour en faire des macros qui fonctionnent. Sa macro pouvait t'y aider, elle est proche de ma première "solution" sur le fond et de la seconde sur la forme (j'ai mis solution entre guillemets car je ne prétend pas en avoir donné).

La bonne solution pour toi sera évidemment celle qui te convient le mieux à l'usage. Si l'objectif est de renommer le second classeur, je maintiens que tu n'as nul besoin de connaître son nom pour le faire.

Sub test()
If Workbooks.Count = 2 Then
For i = 1 To 2
If Not Workbooks(i).Name = ThisWorkbook.Name Then Workbooks(i).SaveAs ThisWorkbook.Path & "\NouveauNom.xls"
Next i
End If
End Sub

Cette adaptatation de la macro de Galopin enregistrera le classeur sous un nouveau nom (remplacer NouveauNom par le nom souhaité) dans le dossier contenant le premier classeur (si on veut l'enregistrer ailleurs, remplacer ThisWorkbook.Path par le chemin du dossier voulu).

Re

excuses moi,mais comme je n'y connais pas trop ,je prends ce qui fonctionne.et je ne pouvais pas ajouter ou retirer quelque-chose .Je m'en sors avec les macros car j'ai compris que je pouvais programmer en basic .sinon VBA c'est difficile pour moi .Mais j'y arriverai un jour MDR à 67 ans

Nota:je ne veux pas les renommer ils y sont déja ,6 en tout en plus de l'autre classeur

merci aussi à toi de m'avoir répondu

@+