Bonjour,
J'ai un problème lors du téléchargement d'un fichier de personnalisation des ongles ( fichier : .xlb)
Voici le code
Sub Tool_bar_Open()
Dim DB_Directory As String
Dim Tool_box_Name As String
On Error GoTo ErrorHandler ' Enable error-handling routine.
Sheets("Default").Select
DB_Directory = ActiveSheet.Range("DB_Directory").Value
Tool_box_Name = ActiveSheet.Range("Toolbar_Name").Value
Workbooks.Open Filename = "" & DB_Directory & Tool_box_Name & ""
ErrorHandler: ' Error-handling routine.
Select Case Err.Number ' Evaluate error number.
Case 1004 ' "File already open" error.
MsgBox ("Can't find Toolbox : " & DB_Directory & Tool_box_Name)
Case Else
' Handle other situations here....
End Select
' that caused the error.
End Sub
Selon moi le code fonctionne correctement.
N'est-ce pas un problème sur le fichier ou sur une activation à faire pour permettre les onglets personnalisés?
Je vous joins les fichiers d'exemples
Merci d'avance,
JGECO