Ouverture extension multiple en VBA

Résolu/Fermé

juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 20 janv. 2016 à 21:25
juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 - 22 janv. 2016 à 14:01

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

A voir également:

Vba allowmultiselect
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

Maurice
20 janv. 2016 à 21:45

Bonjour
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

Réponse 2 / 2

juer31 Messages postés 107 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 25 mars 2024 6
22 janv. 2016 à 14:01

Merci

Il y a t'il un solution pour pouvoir ouvrir soit xlsx s'il ne trouve pas xls

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters