Affecter un nom de classeur à une varaible
J
Bonjour,
Dans ma procédure initialize, j'aimerais affecter un nom de classeur à une variable ici (wbk2.name = BDD), et que dans une autre procédure je puisse rappeler ma variable BDD pour qu'elle m'acffiche le nom du classeur "Base de données". Pouvez-vous m'aider s'il vous plait ?
Private Sub UserForm_Initialize()
Set wbk1 = ThisWorkbook
If MsgBox("Ouvrir la base de données", vbOKCancel) = vbCancel Then Exit Sub
NomFichier = Application.GetOpenFilename("Fichiers Excel (*.*),*.")
If NomFichier <> False Then
'Set wbk2 = Workbooks.Open("F:\Base de données.xlsm")
Set wbk2 = Workbooks.Open(NomFichier)
End If
wbk2.name = BDD
end sub
sub renommer
msgbox BDD ' "Base de données"
end subBonjour, bonjour !
La boulette dans la ligne wbk2.name = BDD est l'inversion de la destination et de la source !
Source = Destination …
f
Bonjour,
Pour être utilisée dans l'ensemble du module, ta variable doit être déclarée en début de ce module.
Pour l'exemple, j'ai créé un nouveau bouton dans l'USF afin de lancer la procédure Renommer_Click.
A+