Erreur sur Application.ActiveWorkbook.Name

Bonsoir

Mon fichier excel d'origine s'appelle TOTO.xlsm.

La variable nomfichier = Application.ActiveWorkbook.Name remonte bien la valeur Toto.xlsm

Enfin de traitment lorsque je veux reactiver mon classeur Toto a l'aide

Windows("nomfichier").Activate

J'ai un message d'erreur

Erreur d'excution 9

L'indice n'appartient pas a la semection

Merci de votre aide

Dim chemin As String, otherRef2 As String, Market As String

chemin = "D:\Dropbox\Chris\Dropbox\3) Market Place\_Produits"

otherRef2 = Sheets("SBO").Range("L2").Value

Market = "SBO_"

nomfichier = Application.ActiveWorkbook.Name

Workbooks.Open Filename:= _

"D:\Dropbox\1.xlsm"

Cells.Select

Application.CutCopyMode = False

Selection.Delete Shift:=xlUp

Windows("nomfichier").Activate

bonjour,

nomfichier est une variable : Ne pas mettre de guillemets.

A+

Yes !! Ca marche MERCI