Ouverture extension multiple en VBA
Résolu
juer31
Messages postés
120
Statut
Membre
-
juer31 Messages postés 120 Statut Membre -
juer31 Messages postés 120 Statut Membre -
Bonjour,
je voudrais pouvoir ouvrir aussi les autres extension comme .xls et .xlsm
Voici mon code et je ne suis pas sur de la solution peu importe ce que j'essai ça ne fonctionne pas. Quelqu'un peux m'aider
Sub OUVRIR()
Dim valeur As String, valeure As String, valeur2 As String
'
' OUVRIR Macro
' Ouvrir le fichier du numéro de commande ou soumission
valeur = Range("C6").Value
valeure = Range("C6").Value
valeur2 = Range("D6").Value
Workbooks.Open Filename:="G:\02 - Soumissions\" & valeur & "\TMP - " & valeure & " - " & valeur2 & ".xlsx"
End Sub
je voudrais pouvoir ouvrir aussi les autres extension comme .xls et .xlsm
Voici mon code et je ne suis pas sur de la solution peu importe ce que j'essai ça ne fonctionne pas. Quelqu'un peux m'aider
Sub OUVRIR()
Dim valeur As String, valeure As String, valeur2 As String
'
' OUVRIR Macro
' Ouvrir le fichier du numéro de commande ou soumission
valeur = Range("C6").Value
valeure = Range("C6").Value
valeur2 = Range("D6").Value
Workbooks.Open Filename:="G:\02 - Soumissions\" & valeur & "\TMP - " & valeure & " - " & valeur2 & ".xlsx"
End Sub
2 réponses
Bonjour
voila une macro pour pour ouvrir un fichier XLS*
A+
Maurice
voila une macro pour pour ouvrir un fichier XLS*
Sub ListeFichier()
Dim Dossier As FileDialog
Chemin = ActiveWorkbook.Path & Application.PathSeparator
Set Dossier = Application.FileDialog(msoFileDialogOpen)
With Dossier
.AllowMultiSelect = False
.InitialFileName = Chemin
.Title = "Choix d'une fichier"
With .Filters
.Clear
.Add "Fichiers XLS*", "*.xls*", 1
End With
.InitialFileName = ""
'Interdit la multi sélection
.AllowMultiSelect = False
If .Show = -1 Then
Fichier = .SelectedItems(1)
' Call LireFichier(Fichier)
Else
Exit Sub
End If
End With
Set Dossier = Nothing
End Sub
A+
Maurice
