FORUM MP | Visual basic : Sélection d'une extension bien précise?!

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

Sélection d'une extension bien précise?!
	Forum : VISUAL BASIC Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ VISUAL BASIC
		SUIVI PAR MAIL INACTIF
		SUJET NON RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM VISUAL BASIC
	Page précedente	Page suivante

Valfdum
Nouveau membre

Inscrit : 30/05/2008
Messages : 5

#153635 Posté le 30/05/08 à 09:46

Bonjour a tous! :D
Je m'appelle Flavien et je suis depuis bientot une semaine en modif d'une macro pour excel sous VB 6.3 et je bloque un peu (beaucoup...) sur un petit truc surment tout bête..! Je vous explique mon truc
En gros, j'ai une fenêtre d'ouverture de fichier et dans cette fenêtre je peux sélectionner les extensions suivantes: .txt, .ascii
Mon problême est que je dois filtrer les fichier à ouvrir qui s'afficherons justement dans cette fenêtre. Je garde donc l'extension .txt dont j'ai besoin mais je voudrais maintenant que seuls les fichiers _2.ascii s'affichent! En gros, filtrer les fichiers .ascii pour que juste ceux qui on leur nom qui se termine par "_2" s'affiche dans les fichiers a ouvrir.
Je sais pas si je suis très clair...
Donc je voudrais le code (ou les modifs a effectuer) pour filtrer tout ça!
J'espère avoir un peu d'aide car je ne suis pas du tout fais pour le VB a la base...je suis motoriste lol :mouarf:
Merci d'avance a tous pour votre aide :king::yaisse2:

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1725

#153636 Posté le 30/05/08 à 10:12

Bonjour

mets nous le bout de code que tu emploies pour ouvrir

Cdlt

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Valfdum
Nouveau membre

Inscrit : 30/05/2008
Messages : 5

#153637 Posté le 30/05/08 à 10:21

Voici la partie de la fenetre d'ouverture de fichier, ça te suffit?
J'ai déja essayé de remplacer le "*.txt,*.txt,*.ascii,*.ascii", , "Selectionnez le fichier .txt" par "*.txt,*.txt,*_2.ascii,*_2.ascii", , "Selectionnez le fichier .txt"
Mais ça ne marche pas!! :(

'Recherche fichiers Txt,acssi
If MsgBox("Sélectionner le fichier roulage se situant sur la PREMIERE Ligne", vbExclamation, "Sélection des fichiers roulage") = vbOK Then
End If

nom_classeur_traitement = ActiveWorkbook.Name
ChDir "C:\Acquisition roulage"
nom_fichier = Application.GetOpenFilename("*.txt,*.txt,*.ascii,*.ascii", , "Selectionnez le fichier .txt")
ChDrive Left(nom_fichier, 1)

'si Abandon
If nom_fichier = False Then
GoTo Fin_Analyse
End If

Merci pour votre aide :)

HAUT DE PAGE

Valfdum
Nouveau membre

Inscrit : 30/05/2008
Messages : 5

#153639 Posté le 30/05/08 à 10:37

En gros je ne veut pouvoir ouvrir QUE les fichiers dont le nom se fini par "_2" et dont l'extension est en ".ascii" :(
Je galère Smiley

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1725

#153640 Posté le 30/05/08 à 10:38

Voilà un exemple :

Sub OpenFenetre()
Dim M As String
M = "ouv"
'Choix du lecteur
CurDir "c:"
'Pour sélectionner le répertoire à l'ouverture
ChDir "C:\"
' Ouvre la fenêtre en affichant seulement
'les classeurs dont le nom débute par "ouv"
Application.Dialogs(xlDialogOpen).Show M & "*" & ".xls"
' Ouvre la fenêtre en affichant seulement
'les classeurs dont le nom finit par "ouv"
Application.Dialogs(xlDialogOpen).Show "*" & M & ".xls"

' Ouvre la fenêtre en affichant seulement
'les classeurs dont le nom contient "ouv"
Application.Dialogs(xlDialogOpen).Show "*" & M & "*" & ".xls"

End Sub
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Valfdum
Nouveau membre

Inscrit : 30/05/2008
Messages : 5

#153645 Posté le 30/05/08 à 10:55

Ca marche!!
Merci beaucoup a toi RGI c'est vraiment gentil et bien instructif!
Je met le tag de ce pas :)

HAUT DE PAGE

Valfdum
Nouveau membre

Inscrit : 30/05/2008
Messages : 5

#153647 Posté le 30/05/08 à 14:08

Petit probleme enfaite!
Ca marche bien quand je lance le code tout seul, mais je n'arrive pas a l'insérer dans ma macro, je ne vois pas trop à quelle ligne le mettre?!

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1725

#153665 Posté le 31/05/08 à 10:12

réponse envoyée en MP

Cdlt

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM VISUAL BASIC

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.