confirmation boite de dialogue

[germain]

Bonjour a tous

voila je dispose d'une macro qui ouvre un dossier et qui me cree une liste de tout mes mp3
jaimerais quau demarrage quen je lance ma macro que la boite de dialogueApplication.GetOpenFilename se valide automatiquement

voila mon code

Sub ListeFichiersMp3()
Application.ScreenUpdating = False
Dim Ligne, Colonne As Integer
Dim monFichier As String
ChDrive "c"
ChDir "c:\mes documents"
monFichier = Application.GetOpenFilename("Fichier texte (*.mp3),*mp3")
Columns("A:H").ColumnWidth = 50
Application.Goto ActiveSheet.Range("A4")
monFichier = Dir("*.mp3")
Do Until monFichier = ""
For Colonne = 1 To 395 Step 55
For Ligne = 0 To 54
ActiveCell.Value = monFichier
ActiveCell.Offset(1, 0).Select
If ActiveCell.Offset(-1, 0) = "" Then
Range("A1").Select
Exit Sub
End If
monFichier = Dir
Next
ActiveCell.Offset(-55, 1).Select
Next
Loop
Application.ScreenUpdating = True

End Sub

Merci d'avance

 

[Vériland]

Bonsoir Germain,

Hi hi hi...petit à petit ta macro grandit...lol...c'est le troisième épisode là...relol ...Lien supprimé...Lien supprimé...

Alors ceci pour t'informer que j'ai créé une nouvelle macro qui je pense répondra à ta question...pour l'instant tout fonctionne comme je veux mais j'ai dans l'idée d'y ajouter un p'tit truc...mais j'suis pas tout seul sur ce coup...lool

donc patience...;-)

 

[germain]

ok merci veriland jattend la macro avec impatience

 

[Vériland]

me revoilou,

Je ne vais pas te faire attendre plus longtemps voici ce que j'propose...lool

donc cette nouvelle macro à pour principe de lister tous les *.mp3 présents dans un répertoire (ici --> c:\windows\bureau) et d'afficher le résultat sur la feuille sur trois colonnes (chemin fichier / Taille / Date heure)...

Alors le p'tit plus...c'est que chaque fichier s'inscrit avec un lien hypertexte...lool

Option Explicit

Sub ListerFichier()
' Vériland
' juin 03
' lister des fichiers
' pour Excel downloads
' http://www.excel-downloads.com/html/French/forum/messages/1_36370_36370.htm
'
Dim Direction As String
Dim Lig As Variant
Dim Trouve As Variant
Direction = "c:\windows\bureau"
Lig = 1
Cells(Lig, 1) = "Chemin fichier"
Cells(Lig, 2) = "Taille"
Cells(Lig, 3) = "Date/Heure"
Range("A1:C1").Font.Bold = True
Lig = Lig + 1
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Direction
.Filename = "*.mp3"
.SearchSubFolders = False
.Execute
For Trouve = 1 To .FoundFiles.Count
Cells(Lig, 1) = .FoundFiles(Trouve)
Cells(Lig, 2) = FileLen(.FoundFiles(Trouve))
Cells(Lig, 3) = FileDateTime(.FoundFiles(Trouve))
' mets le fichier en lien HyperTexte
ActiveWorkbook.ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(Lig, 1), Address:=Direction
' ajuste la largeur des colonnes
' selon la taille du texte
ActiveSheet.UsedRange.EntireColumn.AutoFit
Lig = Lig + 1
Next Trouve
End With
End Sub

voilà pour l'instant...par contre je cherche le moyen qui permettrait d'ouvrir le mp3 en cliquant sur le lien...mais j'ai MaîtreVBA sur ce coup...hi hi hi

dis moi si cela te convient déjà comme çà...lool

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs du post dans le code...lol

 

[germain]

encore moi

quelle code je dois mettre pour avoir juste le nom et non pas le chemin

Merci

 

[germain]

c bon jai trouver

 

[michel]

Bonsoir germain et veriland

Je n'ai pas de fichiers mp3 pour faire des essais , mais j'ai testé la procédure avec des fichiers wav avec succès.

Si on enlève les liens hypertextes dans la procédure et qu'on intègre la procédure ci dessous au niveau de la feuille de récupération des données , en double cliquant sur la cellule contenant l'adresse du fichier , on doit pouvoir lancer directement la séquence musicale ( à valider avec des fichiers mp3 )
Pour arreter la sequence musicale doubler sur une cellule sans lien .


Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
sndPlaySound32 Target.Text, 1
Cancel = True
End Sub


Bonne soirée
michel

 

[petchy]

Bonsoir le Forum,
essaye se site, c'est Myta qui à mis cette adresse sur un autre fil


[url=ftp://sac-ftp.gratex.sk/sound/plemp3.zip]mp3[/url]

[img]http://imagesdeti.free.fr/ImagePourForum/Petchy.gif

 

[Vériland]

====> *.wav / *.mp3 <====

Re le forum,

voilà...

Afin de répondre d'une manière complète à l'ensemble du fil, je vous présente une application qui liste les fichiers d'un répertoire selectionné...ici on peut choisir entre le format *.wav ou *.mp3...

Ensuite lorsqu'on double clique sur un titre il s'ouvre tout simplement...(avec ça on peut travailler en musique...hi hi hi)

...pour le voir cliquez sur l'image...

​

et bonne musique...loool

PS : au passage je remercie Ti qui m'a aidé dans la programmation VBA...;-))

 

[OlivierJ]

... je suis debutant et ton code m'interesse bcp cependant quand je le lance il me dit que la fonction InStrRev n'est pas defini !!??? comment cela se fait il ?? (j'ai Excel 97, ca peut venir de ca ?)