confirmation boite de dialogue

V

Vériland

Guest

• 18 Juin 2003

• #2

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...;-)

 

Vote positif 0 Vote négatif

G

germain

Guest

• 18 Juin 2003

• #3

ok merci veriland jattend la macro avec impatience

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 18 Juin 2003

• #4

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

 

Vote positif 0 Vote négatif

G

germain

Guest

• 18 Juin 2003

• #5

encore moi

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

Merci

 

Vote positif 0 Vote négatif

G

germain

Guest

• 18 Juin 2003

• #6

c bon jai trouver

 

Vote positif 0 Vote négatif

M

michel

Guest

• 18 Juin 2003

• #7

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

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 18 Juin 2003

• #8

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

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 19 Juin 2003

• #9

====> *.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...;-))

 

Vote positif 0 Vote négatif

O

OlivierJ

Guest

• 29 Juin 2003

• #10

... 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 ?)

 

Vote positif 0 Vote négatif