Lire un classeur avec son nom stocké dans une variable(Excel 2013)

Salut les gars!

Normalement c'est simple, mais je ne comprends pas pourquoi ça ne marche pas.

Bon, le problème est que à chaque fois que j'écris Workbooks("nomfich.xlsx")....

Mais aujourd'hui, le nom se trouve stocké dans une variable WKB2 qui contient le nom avec l'extension.

Avec ou sans " ", ça ne marche pas.

voici le code.

Sub ouvrir() Dim monfichier, WKB2, nom As String ChDir "C:\" monfichier = Dir("*.xlsx") Workbooks.Open Filename:=monfichier Fichierchoisi = Application.GetOpenFilename If Fichierchoisi <> "" Then WKB2 = Fichierchoisi 'Split(Dir(WKB2), ".")(0) nom = Workbooks(WKB2).Worksheets(1).Name MsgBox nom End If End Sub

Merci d'avance pour l'éclairage.

Bonjour,

à tester,

Sub ouvrir()
Dim monfichier, WKB1 As Workbook, WKB2 As Workbook, nom As String
Set WKB1 = ThisWorkbook
ChDir "C:\"

Fichierchoisi = Application.GetOpenFilename(FileFilter:="Excel Workbooks (*.xls*),*.xls*", Title:="Open Database File")

If Fichierchoisi <> "" Then
  Workbooks.Open Filename:=Fichierchoisi
  Set WKB2 = ActiveWorkbook
  nom = WKB2.Worksheets(1).Name
  MsgBox WKB2.Name & " - " & nom
End If
End Sub

Oui, merci!

Mais je veux utiliser le nom du classeur dans une boucle du genre: For i=1 to Worbooks(";;;;;;").Worksheets.Count,

Mais difficile de mettre Workbooks (WKB2.Name).......

ça marche pas.

re,

tu n'as pas besoin d'utiliser son nom puisque WKB2 est défini comme Workbook

For i = 1 to WKB2.Worksheets.Count

re,

si tu connais d'avance le nom du fichier à ouvrir, et aussi l'emplacement de ce fichier,

il faut procéder différemment.

dit-moi si c'est le cas ?

Merci! ça a marché, enfin, je peux progresser.