Activer un workbook avec une valeur de cellule
Ça ne fonctionne pas pour moi, j'ai toujours l'erreur "indice n'appartient pas à la sélection" à la ligne
Set dos = Workbooks(ThisWorkbook.Sheets(1).Range("A1").Value & ".xlsx")
J'ai modifié le code pour avoir
Sub Modifications()
Dim dos As Workbook
Windows("Classeur1").Activate
'Set dos = Workbooks(ThisWorkbook.Sheets(1).Range("A1").Value & ".xlsx")
'dos.Activate
Windows("19-003").Activate
End Sub
Et j'ai la même erreur, sur la ligne Windows("19-003").Activate, mon fichier est pourtant bien ouvert, là je ne comprend pas
Cela fonctionne en renommant le fichier par "test", je devais avoir raison en pensant que c'était peut être un problème dans le format d'écriture du titre du classeur et de la valeur dans la cellule
Dim nomfichier as string
nomfichier=range("T1").value ' (information en T1 dois indiquer nom et format fichier exemple : Test.xls )
Workbooks(nomfichier).Activate
D'où mon premier post indiquant que l'extension était nécessaire.
Comment obtiens tu le "19-003" en T1 c'est une formule qui se trouve en T1 ?
Bonjour,
J'obtiens la valeur de T1 par cette formule
Worksheets("Bilan").Activate
Dy = Worksheets("Bilan").Range("B" & Rows.Count).End(xlUp).Row
Cells(Dy, 2).Select
a = Right(ActiveCell, 3) + 1
nom = Format(Date, "yy") & "-" & Format(a, "000")
Worksheets("AE").Range("T1") = nom
Worksheets("AE").Activate
Puis j'enregistre mon fichier
ActiveWorkbook.SaveAs Filename:="S:\COMMUN\RETOUR PRODUITS\Projet New fiches\Retours\" & [T1].Value & ".xlsx"
Ce qui est étrange, c'est que j'ai testé le code de Whereisbryan dans un fichier vide, où j'appelle mon classeur 19-003 et cela fonctionne, mais quand je colle le code dans mon classeur de travail, là j'ai de nouveau l'erreur "l'indice n'appartient pas à la sélection" sur cette ligne
Set dos = Workbooks(ThisWorkbook.Sheets(1).Range("T1").Value & ".xlsx")