XL 2010 Ouvertures de fichiers d'extesion différentes

mfb · 24 Décembre 2017

Bonjour à tous .
Ci dessous un module permettant de rechercher et d'ouvrir des fichiers dénommés listing de 1 à 4.
Ces fichiers, choisi via combobox, peuvent être indifféremment d' extension xlms ou xlmx .
Actuellement seule l'extension xlms fonctionne.
Ce module est issu d'un fil existant sur le forum (désolé j'ai omis d'en noter le nom des auteurs)
Comment permettre l'ouverture de ces fichiers quelque soit le type d'extension ?

Private Sub CommandButton2_Click()

ComboBox1.AddItem ("Listing1")
ComboBox1.AddItem ("Listing2")
ComboBox1.AddItem ("Listing3")
ComboBox1.AddItem ("Listing4")

'déclaration des variables
Dim extension As String, chemin As String, cheminfichier As String, Listiong1 As String, Fichier As String
extension = ".xlsm"

Fichier = ComboBox1.Value & extension

'If extension = ".slsm" Then extension = ".xls"

cheminfichier = Cells(1, 1).Value & Fichier

'Si la Combobox1 est vide alors envoie message
If ComboBox1 = "" Then
MsgBox ("Sélectionnez un listing dans la liste déroulante")
Exit Sub
End If

If Dir(cheminfichier, vbNormal) = "" Then
MsgBox ("pas de fichier")
Else
Workbooks.Open Filename:=cheminfichier
End If

End Sub

Mes bidouilles, en particulier : If extension = ".slsm" Then extension = ".xls"
n'ont rien donné si ce n'est des bugs.

Je m'en remets donc à votre savoir,
Par avance MERCI
Daniel

Calvus · 24 Décembre 2017

Bonjour mfb, le forum,

pardon si ma remarque est bête, mais ne s'agirait il pas plutôt de :
If extension = ".xlsm" Then extension = ".xls"

Et de xlsx.. ?

A+

mfb · 24 Décembre 2017

Re,
Exact y a erreur xlsm et mieux que slsm.
J'ai changé mais xlsm est la seule extension qui marche.
Dans le module, si je change xlsm en xlsx cela marche bien pour les fichiers portant cette extension.
Que faire pour s'affranchir du type d' extension sans intervention sur le module ?
A+
Daniel

Calvus · 24 Décembre 2017

Re,

mfb à dit:
Que faire pour s'affranchir du type d' extension sans intervention sur le module ?

Que veux tu dire ?
Tu veux ouvrir un fichier xls alors qu'il n'existe pas ?...
Sinon tu peux tester "xls" & "*"
A voir...

mfb · 24 Décembre 2017

Re,
Désolé Calvus.
J'ai testé sur un fichier avec "xls" & "*" et xlsx
et en inversant les lignes fichier = Combo .... et 'If extension = .....
Rien y fait.
Contrairement à ce que j'ai dis dans mon fil précédent ça ne marche pas ... ou plus avec xlsx.
Mystère,
Daniel

Dranreb · 24 Décembre 2017

Bonsoir et joyeux Noël.
Essayez comme ça :

VB:

Dim Chemin As String, ArgDir As String, NomFic As String
Chemin = Cells(1, 1).Value
If ComboBox1.Text = "" Then
  MsgBox "Sélectionnez un listing dans la liste déroulante", vbCritical
  Exit Sub: End If
ArgDir = Chemin & ComboBox1.Text & ".xl*"
NomFic = Dir(ArgDir, vbNormal)
If NomFic = "" Then
  MsgBox "Il n'existe pas de fichier" & vbLf & ArgDir, vbCritical
  Exit Sub: End If
Workbooks.Open Filename:=Chemin & NomFic

mfb · 25 Décembre 2017

Bonjour,
Avant toute chose JOYEUX NOEL à TOUS
La solution de Dranreb est OK alors Merci ainsi qu'à Calvus.
A+
Daniel

XL 2010 Ouvertures de fichiers d'extesion différentes

mfb

XLDnaute Occasionnel

Calvus

XLDnaute Barbatruc

mfb

XLDnaute Occasionnel

Calvus

XLDnaute Barbatruc

mfb

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

mfb

XLDnaute Occasionnel

Discussions similaires