Bonjour,
Je suis une nouvelle utilisateur de VBA.
Je souhaite que quelqu'un m'aide s'il vous plait. ça fait une 5jours que je suis bloquée sur un truc.
J'ai crée une liste de deroulante de 19 noms. Et chacubn des noms corrspond un fichier spécifique qui sont enregistrées sur mon ordi (données sources). et c'est la que je bloque.
Au debut j'étais allée sur une autre idée qui n'a pas marché. c'était si je tape le nom de nom fichier, il s'ouver. Je suis arrivée à faire pour un seul fichier. Mais je change le nom du fichier, il ne passe rien .
Voice le code
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim fichier As String
fichier = ActiveWorkbook.Name
If Target.Address = Range("c3").Address Then
' Macro2 Macro
' Range("C3").Select
' ActiveCell.FormulaR1C1 = "=""*.xlsx"""
If Target.Value = "Belleville" Then
Workbooks.Open Filename:= _
"\\atlas.fvfdff.fr\\_D.Diarra\Données sources des sites\trent(e.xlsx"
Workbooks(fichier).Activate
End If
End If
End Sub
Je vous remercie d'avance