Bonjour à tous !
Je souhaite ouvrir un fichier, j'ai ce code, mais j'obtiens une erreur 400 au niveau de la ligne "Workbooks.Open (CheminFile & NomFile)" et je n'arrive pas à trouver pourquoi...
merci pour votre éventuelle aide !!
Je souhaite ouvrir un fichier, j'ai ce code, mais j'obtiens une erreur 400 au niveau de la ligne "Workbooks.Open (CheminFile & NomFile)" et je n'arrive pas à trouver pourquoi...
merci pour votre éventuelle aide !!
Code:
Public Function OpenFile(ByVal CheminFile As String, ByVal NomFile As String) As Boolean
Dim isOpen As Boolean
isOpen = False
For Each file In Workbooks
If file.Name = NomFile Then
isOpen = True
End If
Next
If isOpen = False Then
Workbooks.Open (CheminFile & NomFile) '---->>> Erreur 400 sur cette ligne
OpenFile = False
Else
OpenFile = True
End If
End Function
_________________________________________________________________
Sub OpenExtractions()
Dim CheminFile As String
Dim NomFile As String
CheminFile = ActiveWorkbook.Path + "\"
NomFile = "Extraction.xls"
Dim FileOpen As Boolean
FileOpen = OpenFile(CheminFile, NomFile)
End Sub