Discussion :

[Walt51]

Bonjour,

Je souhaite pouvoir un fichier excel en VBA. La difficulté que je rencontre est la suivante: Le fichier à ouvrir est parfois un .xls parfois un .xlsx parfois un .xlsm

Quelqu'un a-t-il une idée pour ouvrir le fichier dans tous les cas?

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    Dim Commande As String    
 
    If Not Intersect([A:M], Target) Is Nothing And Target.Count = 1 Then
 
    Dim Comm As String
    Dim Descri As String
    Dim NoLign As Long
 
    NoLigne = ActiveCell.Row
    Comm = Range("A" & NoLigne).Value
    Descri = Range("M" & NoLigne).Value
 
    Workbooks.Open Filename:= _
        "Y:\BASE DOCUMENT\BASE TECHNIQUE\COMMANDES Excel\" & "Commande N°" & Comm & " - " & Descri & ".xlsx" 'ici code pour ouvrir un .xlsx, à corriger pour ouvrir aussi .xlsm et .xls
 
    End If
End Sub

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
f=dir("Y:\BASE DOCUMENT\BASE TECHNIQUE\COMMANDES Excel\" & "Commande N°" & Comm & " - " & Descri & ".*"
if f<>"" then f="Y:\BASE DOCUMENT\BASE TECHNIQUE\COMMANDES Excel\" & f

[Walt51]

Merci beaucoup!