Bonsoir à tous,
J'ai besoin d'un conseil sur une macro que j'essai de tourner dans tous les sens, sans succès.
J'ai un liste nommée dynamique de fichiers Excel qui se trouvent dans un même répertoire.
Elle es consultable dans un menu déroulant.
Je souhaite ouvrir les fichiers par le menu déroulant.
Voici le code que j'ai essayé d'appliquer.
L'erreur qui s'affiche indique que le chement ou les fichier n'existent pas.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ThePath As String
Dim TheFile As String
Dim TheQuestion As Byte
If Target.Address = "$A$1" Then
ThePath = ThisWorkbook.Path & "\"
TheFile = Target.Value & ".xls"
TheQuestion = MsgBox("Voulez-Vous Ouvrir le Fichier :" & TheFile, vbQuestion + vbYesNo)
If TheQuestion = vbYes Then
On Error GoTo TheEnd
Workbooks.Open ThePath & TheFile
End If
End If
Exit Sub
TheEnd:
MsgBox "Le Fichier " & TheFile & " n'as pas été trouvé dans le répertoire :" & vbCrLf & ThePath, vbCritical, "@+Thierry's Démo"
End Sub
Merci de votre aide et merci à Thierry pour son travail.
Quelle galère.
Philippe
J'ai besoin d'un conseil sur une macro que j'essai de tourner dans tous les sens, sans succès.
J'ai un liste nommée dynamique de fichiers Excel qui se trouvent dans un même répertoire.
Elle es consultable dans un menu déroulant.
Je souhaite ouvrir les fichiers par le menu déroulant.
Voici le code que j'ai essayé d'appliquer.
L'erreur qui s'affiche indique que le chement ou les fichier n'existent pas.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ThePath As String
Dim TheFile As String
Dim TheQuestion As Byte
If Target.Address = "$A$1" Then
ThePath = ThisWorkbook.Path & "\"
TheFile = Target.Value & ".xls"
TheQuestion = MsgBox("Voulez-Vous Ouvrir le Fichier :" & TheFile, vbQuestion + vbYesNo)
If TheQuestion = vbYes Then
On Error GoTo TheEnd
Workbooks.Open ThePath & TheFile
End If
End If
Exit Sub
TheEnd:
MsgBox "Le Fichier " & TheFile & " n'as pas été trouvé dans le répertoire :" & vbCrLf & ThePath, vbCritical, "@+Thierry's Démo"
End Sub
Merci de votre aide et merci à Thierry pour son travail.
Quelle galère.
Philippe