Boite de dialogue ouvrir

[jsl72]

Bonjour,

Inscrit sur forum aujourd'hui.

Mon souhait est de pouvoir ouvrir des fichiers exportés depuis un logiciel exotique (fichiers genre *.txt), mais qui portent l'extension ".trc".
L'objectif est que la boîte de dialogue OUVRIR ne reconnaisse que les fichiers ".trc" et n'ouvre les fichiers que si ils ont l'extension ".trc" et uniquement l'extension ".trc"

Sur le forum j'ai trouvé un code qui a été écrit en 2003 mais qui ne fonctionne pas avec EXCEL 2007.

Merci à ceux qui pourraient m'apporter leur aide.

Code :
Dim Temp As Variant
Temp = Application.GetOpenFilename(fileFilter:=File_Filter, Title:=Phrase)
If Temp = False Or Temp = '' Then
Arret = True
Exit Function ' Si rien quitter
Else ' Sinon ajouter dans le label fichier et repertoire source !
Open_Fichier = Temp
End If
End Function

Pour appeller cette fonction :

Code :
File_Filter = 'Fichier Excel (*.xls), *.xls'
Phrase = 'Choississez le fichier à ouvrir :'
File_T😵pen = Open_Fichier(File_Filter, Phrase)

Bonne soirée.

 

[MJ13]

Re : Boite de dialogue ouvrir

Bonjour Jsl

Le mieux dans ton cas est de renommer ton fichier en .txt puis l'ouvrir avec l'enregistreur de macros avec l'assistant d'importation.

Ainsi, tu auras le code à adapter.

 

[jsl72]

Re : Boite de dialogue ouvrir

Bonjour Michel,

Merci pour ta réponse.
Renommer oblige l’intervention d’une personne expérimentée.
Les fichiers .trc peuvent être ouverts par un opérateur peu expérimenté.
Si je les renomme en .txt , n’importe quel fichier d’une autre application pourra être ouvert.
Il faut que la commande ouvrir soit simple, aucune marge d'erreur.
Le code doit donc rendre la boite de dialogue OUVRIR opérationnelle que quand un fichier *.trc est sélectionné et uniquement dans ce cas là.
De plus le fichier à ouvrir n'est pas forcément accessible par le même chemin, son emplacement peut être différent d'une fois à l'autre.

Bonne journée.

Joël

 

[MJ13]

Re : Boite de dialogue ouvrir

Re

Si je les renomme en .txt , n’importe quel fichier d’une autre application pourra être ouvert.
Il faut que la commande ouvrir soit simple, aucune marge d'erreur.

Le but n'est pas d'ouvrir les fichiers en les renommant mais de voir si cela fonctionne en faisant le test sur 1 fichier renommé à la main. Essaye déjà cela et envoie le code que l'enregisterur aura généré. Après, ce sera plus simple.

 

[jsl72]

Re : Boite de dialogue ouvrir

Voici le code:

Sub TRC()
'
' TRC Macro

ChDir "D:\Dossiers TRC"
Workbooks.OpenText Filename:= _
"D:\Dossiers TRC\trc converti en txt.txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End Sub

Merci pour le temps passé.

 

[MJ13]

Re : Boite de dialogue ouvrir

Re

Dans ton cas tu pourras déjà tester:

Sub TRC()
' TRC Macro

ChDir "D:\Dossiers TRC"

Dossier="D:\Dossiers TRC\"

Workbooks.OpenText Filename:= _
Dossier & "trc converti en txt.trc", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True

End Sub

 

[jsl72]

Re : Boite de dialogue ouvrir

Bonsoir,

Ça ne fonctionne pas, il ne se passe rien

 

[MJ13]

Re : Boite de dialogue ouvrir

Re

Désolé, mais la, je ne vois pas 😕.

 

[jsl72]

Re : Boite de dialogue ouvrir

Pas grave

Merci d'avoir essayé.

 

[Staple1600]

Re : Boite de dialogue ouvrir

Bonsoir


Une piste possible ; passer par FSO

Set objFile = objShell.BrowseForFolder

Faire une recherche avec les mots ci-dessus pour des exemples (qui sont souvent en VBS*)

PS:*: VBA sait lire le VBS en adaptant un peu

 

[MJ13]

Re : Boite de dialogue ouvrir

Re , Bonjour Jean-Marie

Sub TRC()
'
' TRC Macro

ChDir "D:\Dossiers TRC"
Workbooks.OpenText Filename:= _
"D:\Dossiers TRC\trc converti en txt.txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End Sub

Et si tu relances cette macro, est-ce que cela fonctionne? Bien sur en ayant le fichier trc converti en txt.txt présent dans le dossier D:\Dossiers TRC.

 

[jsl72]

Re : Boite de dialogue ouvrir

Bonjour,

Oui ça fonctionne, le fichier "trc converti en txt.txt" s'est ouvert tout seul.

Cela suppose qu'il faut toujours loger le fichier à traiter au même endroit et avec le même nom ?

Merci pour cette avancée.

 

[MJ13]

Re : Boite de dialogue ouvrir

Re

Oui ça fonctionne, le fichier "trc converti en txt.txt" s'est ouvert tout seul.

En reprenant ce dernier code, il faut renommer ton fichier .txt en . trc et faire de même dans le code.

Après cela voudra dire qu'on peut ouvrir un fichier .trc avec le code d'importation de fichier texte.

 

[jsl72]

Re : Boite de dialogue ouvrir

Bonjour,

J'ai trouvé un autre code.
Il me permet d'aller sélectionner le fichier .trc désiré mais ne l'ouvre pas.
Manque le code qui permet d'ouvrir le fichier choisi.

Sub Macro1()

DimstrFileNameAsVariant = Application.GetOpenFilename(filefilter:="Fichier *.trc (*.trc),*.trc", _
Title:="Sélectionnez le fichier à ouvrir")

'si un fichier a été sélectionné, celui-ci est ouvert
If strFileName <> False Then
Workbooks.Open strFileName
End If

Manque le suite.



Si cela peut t'aider.

Bonne journée.

Joël

 

[MJ13]

Re : Boite de dialogue ouvrir

Re

Voir mon Post #13, normal pour MJ13 😱.