Salut toute la communauté.
Et oui cela fait un bail que je n'ai pas posté, mais je viens de temps en temps voir la vie de ce forum.
J'espère que toute cette communauté va bien, il y a eu du nouveau depuis s'est vraiment trés, trés bien, bravo david.
Donc mon probleme, il y a quelque année avec l'aide de plusieur (@Thierry, Vériland, Ti etc...) de ce forum, un fichier de gestion de gala de danse a été créer (D'ailleur il lui a vallu le record du plus long post, lol).
Il fonctionné bien, mais du faite d'être passé sur excel 2007, un code ne fonctionne plus, alors déjà que j'avais des lacunes sous 2000 là , s'est encore pire.
Et le pire s'est que je dois remmettre ses feuilles samedi matin, je suis dans la mouise, hihihi.
Donc il y aurai :
1) une modif de ce code pour la migration vers 2007.
A priori sous 2007 le code "With Application.FileSearch", n'éxiste plus.
Voici le code du module, cela se passe dans la Sub "RecupDonneesBallets".
2) Et une modification en raison de fichier MP3 que l'on me donne en même temps.
A la base ce fichier devait rechercher dans un endroit les fichier Wav et en faisant un calcul donné son temps en mm:ss
Maintenant je peux avoir du MP3 et du wav et la formule de calcul pour du MP3 et plus bonne.
Ma question serait il possible de modifier cela en fonction de l'extension du fichier?
C'est a dire, admettons qu'il y ai dans un dossier des deux possibilités que le calucul se fasse quand même, ou si cela est possible d'utiliser les Id-Tag des fichiers
Donc je vous met en lien le fichier et la structure sans musiques (pour éviter d'allourdire), si quelqu'un veux bien me dépatouiller.
Heu comment faut procéder pour mettre un lien pour un fichier, cela m'a jeté a chaque fois, lol
Je vous remercie par avance pour toute votre aide, salutations G'Claire
Et oui cela fait un bail que je n'ai pas posté, mais je viens de temps en temps voir la vie de ce forum.
J'espère que toute cette communauté va bien, il y a eu du nouveau depuis s'est vraiment trés, trés bien, bravo david.
Donc mon probleme, il y a quelque année avec l'aide de plusieur (@Thierry, Vériland, Ti etc...) de ce forum, un fichier de gestion de gala de danse a été créer (D'ailleur il lui a vallu le record du plus long post, lol).
Il fonctionné bien, mais du faite d'être passé sur excel 2007, un code ne fonctionne plus, alors déjà que j'avais des lacunes sous 2000 là , s'est encore pire.
Et le pire s'est que je dois remmettre ses feuilles samedi matin, je suis dans la mouise, hihihi.
Donc il y aurai :
1) une modif de ce code pour la migration vers 2007.
A priori sous 2007 le code "With Application.FileSearch", n'éxiste plus.
Voici le code du module, cela se passe dans la Sub "RecupDonneesBallets".
Code:
Option Explicit
Function ChoixDossierFichier(Racine, Optional SelType As Byte = 0)
'affiche la boite de dialogue Windows de recherche d'un dossier
'ou d'un fichier '(fs) d'après un code [url]http://www.vbfrance.com[/url]
Dim objShell, objFolder, Chemin, SecuriteSlash, FlagChoix&, Msg$
If SelType = 0 Then
FlagChoix = &H1&: Msg = "Choisissez un dossier :"
Else
FlagChoix = &H4000&: Msg = "Choisissez un fichier :"
End If
Set objShell = CreateObject("Shell.Application")
'le troisième paramètre permet de choisir
'la sélection d'un dossier ou d'un fichier (0 ou 1)
'le dernier paramètre permet de choisir le dossier racine
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix, Racine)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then Chemin = "C:\Windows\Bureau"
If objFolder.Title = "" Then Chemin = ""
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then
Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoixDossierFichier = Chemin
End Function
Sub RecupDonneesBallets()
Dim txt As String, i As Long, fil As String
Dim tablo1, tablo2, Organisateurs As String
Dim Annee As String, a As String, b As String, c As String, d As String, e As String, f As String
Dim g, f1, ligne As Long, choix ', fso, dossier
With Sheets("Tool_Planning")
Application.ScreenUpdating = False
Range("A14:G14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A14").Select
End With
txt = "Musiques pour le gala"
choix = ChoixDossierFichier("O:\Spectacle années en cours\")
If choix <> "" Then
With Application.FileSearch
.LookIn = choix
.Filename = "*.wav"
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
fil = .FoundFiles(i)
tablo1 = Split(fil, "\")
tablo2 = Split(tablo1(UBound(tablo1)), "-")
If UBound(tablo1) = 6 And _
UBound(tablo2) = 3 And _
InStr(1, UCase(fil), UCase(txt)) > 0 Then
'Organisateurs
Organisateurs = tablo1(2)
'Année
Annee = tablo1(1)
Annee = Right(Annee, 4)
'A : N° de la partie -> (Donnée récupérée par rapport au dossier)
a = tablo1(4)
a = Application.Substitute(a, "Partie ", "")
'B : N° du ballet -> (Donnée récupérée avec le nom du fichier)
b = tablo2(0)
'C : Nom du prof -> (Données récupérées par rapport au dossier)
c = tablo1(5)
'D : Groupe d 'élève -> (Données récupérées avec le nom du fichier)
d = tablo2(1)
'E : Interprètes -> (Données récupérées avec le nom du fichier)
e = tablo2(3)
e = Left(e, Len(e) - 4)
'F : Titres -> (Données récupérées avec le nom du fichier)
f = tablo2(2)
'G : La durée de la chanson --> (Données récupérées avec le poids du fichier)
'(39934/176400)1024=232 sec soit 3'52 sec
g = FileLen(fil)
g = g / 176400 / 60 / 60 / 24
'NUMEROTATION DES FICHIERS
With Sheets("Tool_Planning")
Application.ScreenUpdating = False
.Range("E6") = Organisateurs
ligne = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1
.Cells(ligne, "A") = a
.Cells(ligne, "B") = b
.Cells(ligne, "C") = c
.Cells(ligne, "D") = d
.Cells(ligne, "E") = e
.Cells(ligne, "F") = f
.Cells(ligne, "G") = g
.Cells(ligne, "G").NumberFormat = "mm:ss"
If Range("A14").Value = 0 Then Exit Sub
Range("A14:G14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A14"), Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A14").Select
End With
End If
Next i
End If
End With
End If
Application.ScreenUpdating = True
Call creer_feuille
End Sub2) Et une modification en raison de fichier MP3 que l'on me donne en même temps.
A la base ce fichier devait rechercher dans un endroit les fichier Wav et en faisant un calcul donné son temps en mm:ss
Maintenant je peux avoir du MP3 et du wav et la formule de calcul pour du MP3 et plus bonne.
Ma question serait il possible de modifier cela en fonction de l'extension du fichier?
C'est a dire, admettons qu'il y ai dans un dossier des deux possibilités que le calucul se fasse quand même, ou si cela est possible d'utiliser les Id-Tag des fichiers
Donc je vous met en lien le fichier et la structure sans musiques (pour éviter d'allourdire), si quelqu'un veux bien me dépatouiller.
Heu comment faut procéder pour mettre un lien pour un fichier, cela m'a jeté a chaque fois, lol
Je vous remercie par avance pour toute votre aide, salutations G'Claire
Dernière édition:
