Bonjour,
J'ai une macro bien complexe (trop complexe pour que je la comprenne vraiment) qui doit e.a. ouvrir des fichiers qui, lorsqu'elle a été rédigée, étaient des fichiers ".xls".
Cependant, elle ne veut pas ouvrir les fichiers avec les extension modernes: ".xlsx", ".xlsm" et je n'arrive pas à comprendre comment la macro devrait être modifiée pour qu'elle ouvre ces fichiers.
Voici une fonction appelée dans la macro et où je trouve des extensions ".xls".
Est-ce que c'est bien dans cette fonction qu'il faut apporter une modification? J'ai déjà remplacé les deux ".xls" par des ".xlsx" et des ".xlsm", mais sans succès.
Bonne journée
Aloha
J'ai une macro bien complexe (trop complexe pour que je la comprenne vraiment) qui doit e.a. ouvrir des fichiers qui, lorsqu'elle a été rédigée, étaient des fichiers ".xls".
Cependant, elle ne veut pas ouvrir les fichiers avec les extension modernes: ".xlsx", ".xlsm" et je n'arrive pas à comprendre comment la macro devrait être modifiée pour qu'elle ouvre ces fichiers.
Voici une fonction appelée dans la macro et où je trouve des extensions ".xls".
Code:
Function simpleCellRegex(quelle As String) As String
Dim regEx As New RegExp
Dim strPattern As String
Dim strInput As String
Dim strReplace As String
Dim strOutput As String
Dim Zwischen As String
strPattern = "\s+[A-Z]+.xls$"
If strPattern <> "" Then
strInput = quelle
strReplace = ""
With regEx
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = strPattern
End With
If regEx.test(strInput) Then
Zwischen = regEx.Replace(strInput, strReplace)
simpleCellRegex = Trim(Replace(Replace(strInput, Zwischen, ""), ".xls", ""))
Else
simpleCellRegex = ""
End If
End If
End Function
Est-ce que c'est bien dans cette fonction qu'il faut apporter une modification? J'ai déjà remplacé les deux ".xls" par des ".xlsx" et des ".xlsm", mais sans succès.
Bonne journée
Aloha