Workbooks.Open Filename:=ThisWorkbook.Path & "\TEST.xl*"
Bonjour @RCAVBA , le Forum
As-tu essayé sans indiquer l'extension du tout ?
Workbooks.Open Filename:=ThisWorkbook.Path & "\TEST"
Normalement il ouvrira le premier "Text.xl*" qu'il trouvera dans le répertoire...
Et sinon il reste à faire appel à la boite de dialog :
Application.GetOpenFilename("microsoft excel files (*.xl*),")
Bonne soirée
@+Thierry
Workbooks.Open Filename:=adresse_dossier + "\" + nom_fichier + extension
@_Thierry @Yoyo01000
J'ai modifié mon code sachant que j'ai 3 variables :
1 - L'adresse ou lien du dossier (répertoire)
2 - Le nom du fichier
3 - L'extension
Option Explicit
Sub Test_Extension()
'Les Variables "imposées" par RCAVBA -------------------------------
Dim MyFolder As String, MyFileName As String, MyExtention As Variant
'-------------------------------------------------------------------
Dim x As Byte
Dim MyFullPath As String
Dim DirFullPath As String
Dim MyCounter As Integer
Dim ExtentionFound As String
MyFolder = ThisWorkbook.Path & "\"
MyFileName = "OpenTest"
MyExtention = Array(".XLSX", ".XLSM", ".XLS") 'RCAVBA : Je ne sais comment laisser la variable extension prendre toutes les valeurs : xls, xlsx...
For x = 0 To UBound(MyExtention)
MyFullPath = MyFolder & MyFileName & MyExtention(x)
DirFullPath = Dir(MyFullPath)
If DirFullPath <> "" Then
MyCounter = MyCounter + 1
ExtentionFound = ExtentionFound & MyFileName & MyExtention(x) & vbCrLf
Workbooks.Open DirFullPath
Else
'Do Nothing
End If
Next x
If ExtentionFound <> "" Then
Select Case MyCounter
Case 2
MsgBox "Attention 2 fichiers ont été trouvés et ouverts !" & vbCrLf & ExtentionFound
Case 3
MsgBox "Attention 3 fichiers ont été trouvés et ouverts !" & vbCrLf & ExtentionFound
End Select
Else
MsgBox "Aucun fichier trouvé !"
End If
End Sub