Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel rechercher par Id tagg et suppression

rechercher par Id tagg et suppression

16 réponses
Avatar
Jacques
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du dossier
source.

Je vous remercie d'avance.

Jacques
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacques
Salut

Ne voyant aucunes réponses, je suppose que cela n'est pas possible, ou alors
je me suis mal exprimé.

Es-ce le cas?

Merci, Jacques
"Jacques" a écrit dans le message de news:
42f896d2$0$894$
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du
dossier source.

Je vous remercie d'avance.

Jacques



Avatar
michdenis
Bonjour Jacques,

Ta question est claire...voici un début de réponse signée "Michel Perron" sur le sujet.

Avec un peu de temps, il serait possible de modifier cette procédure pour obtenir ce que tu désires.

Tu copies tout ce qui suit dans un module standard et tu exécutes la procédure MP3_Listing et tu vas obtenir les informations sur
tes mp3 du répertoire que tu choisiras dans un nouveau classeur.

Un petit coup de chapeau à Michel !

Salutations !

'-----------------------------------------
Sub MP3_Listing()
Dim sPath As String: sPath = GetShellFolder
If sPath = "" Then Exit Sub
If Dir(sPath, vbDirectory) = "" Then Exit Sub
Dim Headers(35), x%, y&, i&, p$, n$, oFile As Object
Dim objShell As Object, oFolder As Object
Set objShell = CreateObject("Shell.Application")
Set oFolder = objShell.Namespace(CStr(sPath))
Application.ScreenUpdating = False
Workbooks.Add
For i = 0 To 34
Headers(i) = oFolder.GetDetailsOf(oFolder.Items, i)
Select Case i
Case 0 To 1, 10, 12, 14 To 18, 20 To 22
x = x + 1
Cells(1, x) = Headers(i)
End Select
Next
y = 1
For Each oFile In oFolder.Items
p = oFile.Path: n = oFile.Name
If Right$(n, 4) = ".mp3" Then
x = 0: y = y + 1
For i = 0 To 34
Select Case i
Case 0 To 1, 10, 12, 14 To 18, 20 To 22
x = x + 1
Cells(y, x) = oFolder.GetDetailsOf(oFile, i)
With ActiveSheet
.Hyperlinks.Add .Range("A" & y), Hlink(p), , n, n
End With
End Select
Next
End If
Next
Range("A2").Select
ActiveWindow.FreezePanes = True
Rows("1:1").Font.Bold = True
Cells.Columns.AutoFit
Range("A1").Select
Set oFolder = Nothing: Set objShell = Nothing
End Sub
'-----------------------------------------
Private Function GetShellFolder() As String
Const Title = "Sélectionnez un répertoire !"
Dim oSHA As Object, oSF As Object, oItem As Object
On Error GoTo 1
Set oSHA = CreateObject("Shell.Application")
Set oSF = oSHA.BrowseForFolder(0, Title, &H1 Or &H10, &H11)
If InStr(TypeName(oSF), "Folder") <> 1 Then Exit Function
For Each oItem In oSF.parentfolder.Items
If oItem.Name = oSF.Title Then
GetShellFolder = oItem.Path
Exit Function
End If
Next
GetShellFolder = oSF.Title
Set oSF = Nothing: Set oSHA = Nothing
Exit Function
1: MsgBox "Error: " & Err.Number & vbLf & Err.Description, 48
End Function
'-----------------------------------------
Private Function Hlink(p As String) As String
Hlink = "file:///" & Replace(Replace(p, " ", "%20"), "", "/")
End Function





"Jacques" a écrit dans le message de news: 42f9f345$0$22313$
Salut

Ne voyant aucunes réponses, je suppose que cela n'est pas possible, ou alors
je me suis mal exprimé.

Es-ce le cas?

Merci, Jacques
"Jacques" a écrit dans le message de news:
42f896d2$0$894$
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du
dossier source.

Je vous remercie d'avance.

Jacques



Avatar
michdenis
Bonjour Jacques,

Voici la procédure de Michel Perron, adapté à tes besoins :

Tu dois créer les répertoires de destination avant de lancer la procédure.

'-----------------------------------
Sub MP3_Listing_Modifier()

Dim sPath As String, Dest192 As String
Dim Dest40000 As String, Debit As String
Dim p$, n$, oFile As Object
Dim objShell As Object, oFolder As Object

'Répertoire où sont les fichiers musicaux
sPath = "c:Music" 'à déterminer

'Répertoire de destination pour 192
'ce répertoire doit exister avant de lancer la macro
Dest192 = "c:Music192" 'à déterminer

'Répertoir de destination pour au dela de 40000
'ce répertoire doit exister avant de lancer la macro
Dest40000 = "c:Music40000" à déterminer

If sPath = "" Then Exit Sub

If Dir(sPath, vbDirectory) = "" Then
MsgBox "Répertoire inexistant."
Exit Sub
End If

If Dir(Dest192, vbDirectory) = "" Then
MsgBox "Répertoire de destinaton pour 192 inexistant."
Exit Sub
End If

If Dir(Dest40000, vbDirectory) = "" Then
MsgBox "Répertoire de destinaton pour 40000 inexistant."
Exit Sub
End If

Set objShell = CreateObject("Shell.Application")
Set oFolder = objShell.Namespace(CStr(sPath))

For Each oFile In oFolder.Items
p = oFile.Path: n = oFile.Name
If Right$(n, 4) = ".mp3" Then
Debit = Left(oFolder.GetDetailsOf(oFile, 22), 3)
Select Case Left(oFolder.GetDetailsOf(oFile, 22), 3)
Case Is = "128"
'Rien ne se passe.. rien n'est prévu

Case Is = "192"
FileCopy p, Dest192 & n
'La commande pour détruire le fichier original
'a été désactivé ...teste avant pour voir !!!
'Kill p
Case Is = "320"
'Rien de prévue pour l'instant.

Case Is > "22,0" 'pour 22,050
FileCopy p, Dest192 & n
'Kill p

Case Is > "44,1"
FileCopy p, Dest192 & n
'Kill p
End Select
End If
Next
Set oFolder = Nothing: Set objShell = Nothing
End Sub
'------------------------------------


Salutations!


"Jacques" a écrit dans le message de news: 42f9f345$0$22313$
Salut

Ne voyant aucunes réponses, je suppose que cela n'est pas possible, ou alors
je me suis mal exprimé.

Es-ce le cas?

Merci, Jacques
"Jacques" a écrit dans le message de news:
42f896d2$0$894$
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du
dossier source.

Je vous remercie d'avance.

Jacques



Avatar
michdenis
Voici le fichier de Michel Perron allégé pour tenir compte de ton besoin

Les répertoires de destination doivent exister avant de lancer la macro

'-------------------------------
Sub DeplacerMP3_SelonLeurDebit()

Dim sPath As String, Dest22050 As String
Dim Dest44100 As String, Debit As String
Dim p$, n$, oFile As Object
Dim objShell As Object, oFolder As Object

'Répertoire où sont les fichiers musicaux
sPath = "c:Music"

'Répertoire de destination pour débit 22050
'ce répertoire doit exister avant de lancer la macro
Dest22050 = "c:Music22050"

'Répertoir de destination pour débit de 44100
'ce répertoire doit exister avant de lancer la macro
Dest44100 = "c:Music44100"

If sPath = "" Then Exit Sub

If Dir(sPath, vbDirectory) = "" Then
MsgBox "Répertoire inexistant."
Exit Sub
End If

If Dir(Dest22050, vbDirectory) = "" Then
MsgBox "Répertoire de destinaton pour 22050 inexistant."
Exit Sub
End If

If Dir(Dest44100, vbDirectory) = "" Then
MsgBox "Répertoire de destinaton pour Dest44100 inexistant."
Exit Sub
End If

Set objShell = CreateObject("Shell.Application")
Set oFolder = objShell.Namespace(CStr(sPath))

For Each oFile In oFolder.Items
p = oFile.Path: n = oFile.Name
If Right$(n, 4) = ".mp3" Then

Debit = Left(oFolder.GetDetailsOf(oFile, 22), 3)

Select Case Left(oFolder.GetDetailsOf(oFile, 22), 3)
Case Is = "128"
'Rien ne se passe.. rien n'est prévu

Case Is = "192"
'rien ne se passe ...

Case Is = "320"
'Rien de prévue pour l'instant.

Case Is > "22,0" 'pour 22,050
FileCopy p, Dest22050 & n
'La commande pour détruire le fichier original
'a été désactivé ...teste avant pour voir !!!
'Kill p

Case Is > "44,1"
FileCopy p, Dest44100 & n
'La commande pour détruire le fichier original
'a été désactivé ...teste avant pour voir !!!
'Kill p
End Select
End If
Next
Set oFolder = Nothing: Set objShell = Nothing
End Sub
'-------------------------------


Salutations!




"Jacques" a écrit dans le message de news: 42f9f345$0$22313$
Salut

Ne voyant aucunes réponses, je suppose que cela n'est pas possible, ou alors
je me suis mal exprimé.

Es-ce le cas?

Merci, Jacques
"Jacques" a écrit dans le message de news:
42f896d2$0$894$
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du
dossier source.

Je vous remercie d'avance.

Jacques



Avatar
Jacques
Michel Denis

Merci, pour ta réponse.
Je ne sais ou tu l'a trouvé ce code, car j'ai chercher partout sur le forum
des infos sur le sujet et je n'ai rien trouvé, (je dois mal m'y prendre)

Donc j'ai essayé le premier, il me créer bien un nouveau classeur, mais ne
me rempli pas les colonne (Essaye avec un dossier possédant 1 titre MP3)

Je vais essayer le deuxième, mais j'essaye de faire en sorte de choisir le
chemin d'acces, j'y arrive avec un chemin, mais pour trois c'est un peu plus
dur.

Merci, Jacques
"michdenis" a écrit dans le message de news:
%
Voici le fichier de Michel Perron allégé pour tenir compte de ton besoin

Les répertoires de destination doivent exister avant de lancer la macro

'-------------------------------
Sub DeplacerMP3_SelonLeurDebit()

Dim sPath As String, Dest22050 As String
Dim Dest44100 As String, Debit As String
Dim p$, n$, oFile As Object
Dim objShell As Object, oFolder As Object

'Répertoire où sont les fichiers musicaux
sPath = "c:Music"

'Répertoire de destination pour débit 22050
'ce répertoire doit exister avant de lancer la macro
Dest22050 = "c:Music22050"

'Répertoir de destination pour débit de 44100
'ce répertoire doit exister avant de lancer la macro
Dest44100 = "c:Music44100"

If sPath = "" Then Exit Sub

If Dir(sPath, vbDirectory) = "" Then
MsgBox "Répertoire inexistant."
Exit Sub
End If

If Dir(Dest22050, vbDirectory) = "" Then
MsgBox "Répertoire de destinaton pour 22050 inexistant."
Exit Sub
End If

If Dir(Dest44100, vbDirectory) = "" Then
MsgBox "Répertoire de destinaton pour Dest44100 inexistant."
Exit Sub
End If

Set objShell = CreateObject("Shell.Application")
Set oFolder = objShell.Namespace(CStr(sPath))

For Each oFile In oFolder.Items
p = oFile.Path: n = oFile.Name
If Right$(n, 4) = ".mp3" Then

Debit = Left(oFolder.GetDetailsOf(oFile, 22), 3)

Select Case Left(oFolder.GetDetailsOf(oFile, 22), 3)
Case Is = "128"
'Rien ne se passe.. rien n'est prévu

Case Is = "192"
'rien ne se passe ...

Case Is = "320"
'Rien de prévue pour l'instant.

Case Is > "22,0" 'pour 22,050
FileCopy p, Dest22050 & n
'La commande pour détruire le fichier original
'a été désactivé ...teste avant pour voir !!!
'Kill p

Case Is > "44,1"
FileCopy p, Dest44100 & n
'La commande pour détruire le fichier original
'a été désactivé ...teste avant pour voir !!!
'Kill p
End Select
End If
Next
Set oFolder = Nothing: Set objShell = Nothing
End Sub
'-------------------------------


Salutations!




"Jacques" a écrit dans le message de news:
42f9f345$0$22313$
Salut

Ne voyant aucunes réponses, je suppose que cela n'est pas possible, ou
alors
je me suis mal exprimé.

Es-ce le cas?

Merci, Jacques
"Jacques" a écrit dans le message de news:
42f896d2$0$894$
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu
de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un
dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du
dossier source.

Je vous remercie d'avance.

Jacques








Avatar
michdenis
Bonjour Jacques,

J'ai fait le test avec les 2 procédures, et il fonctionne conrrectement. Je suis sur windows xp, excel 2003


Salutations!



"Jacques" a écrit dans le message de news: 42fb372a$0$912$
Michel Denis

Merci, pour ta réponse.
Je ne sais ou tu l'a trouvé ce code, car j'ai chercher partout sur le forum
des infos sur le sujet et je n'ai rien trouvé, (je dois mal m'y prendre)

Donc j'ai essayé le premier, il me créer bien un nouveau classeur, mais ne
me rempli pas les colonne (Essaye avec un dossier possédant 1 titre MP3)

Je vais essayer le deuxième, mais j'essaye de faire en sorte de choisir le
chemin d'acces, j'y arrive avec un chemin, mais pour trois c'est un peu plus
dur.

Merci, Jacques
"michdenis" a écrit dans le message de news:
%
Voici le fichier de Michel Perron allégé pour tenir compte de ton besoin

Les répertoires de destination doivent exister avant de lancer la macro

'-------------------------------
Sub DeplacerMP3_SelonLeurDebit()

Dim sPath As String, Dest22050 As String
Dim Dest44100 As String, Debit As String
Dim p$, n$, oFile As Object
Dim objShell As Object, oFolder As Object

'Répertoire où sont les fichiers musicaux
sPath = "c:Music"

'Répertoire de destination pour débit 22050
'ce répertoire doit exister avant de lancer la macro
Dest22050 = "c:Music22050"

'Répertoir de destination pour débit de 44100
'ce répertoire doit exister avant de lancer la macro
Dest44100 = "c:Music44100"

If sPath = "" Then Exit Sub

If Dir(sPath, vbDirectory) = "" Then
MsgBox "Répertoire inexistant."
Exit Sub
End If

If Dir(Dest22050, vbDirectory) = "" Then
MsgBox "Répertoire de destinaton pour 22050 inexistant."
Exit Sub
End If

If Dir(Dest44100, vbDirectory) = "" Then
MsgBox "Répertoire de destinaton pour Dest44100 inexistant."
Exit Sub
End If

Set objShell = CreateObject("Shell.Application")
Set oFolder = objShell.Namespace(CStr(sPath))

For Each oFile In oFolder.Items
p = oFile.Path: n = oFile.Name
If Right$(n, 4) = ".mp3" Then

Debit = Left(oFolder.GetDetailsOf(oFile, 22), 3)

Select Case Left(oFolder.GetDetailsOf(oFile, 22), 3)
Case Is = "128"
'Rien ne se passe.. rien n'est prévu

Case Is = "192"
'rien ne se passe ...

Case Is = "320"
'Rien de prévue pour l'instant.

Case Is > "22,0" 'pour 22,050
FileCopy p, Dest22050 & n
'La commande pour détruire le fichier original
'a été désactivé ...teste avant pour voir !!!
'Kill p

Case Is > "44,1"
FileCopy p, Dest44100 & n
'La commande pour détruire le fichier original
'a été désactivé ...teste avant pour voir !!!
'Kill p
End Select
End If
Next
Set oFolder = Nothing: Set objShell = Nothing
End Sub
'-------------------------------


Salutations!




"Jacques" a écrit dans le message de news:
42f9f345$0$22313$
Salut

Ne voyant aucunes réponses, je suppose que cela n'est pas possible, ou
alors
je me suis mal exprimé.

Es-ce le cas?

Merci, Jacques
"Jacques" a écrit dans le message de news:
42f896d2$0$894$
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu
de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un
dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du
dossier source.

Je vous remercie d'avance.

Jacques








Avatar
Jacques
Michel Denis

j'ai réessayé, mais rien.

Je suis sous XP home et Excel 2000

Je retente encore, je dois omettre quelque chose

Merci, Jacques
"michdenis" a écrit dans le message de news:

Bonjour Jacques,

J'ai fait le test avec les 2 procédures, et il fonctionne conrrectement.
Je suis sur windows xp, excel 2003


Salutations!



"Jacques" a écrit dans le message de news:
42fb372a$0$912$
Michel Denis

Merci, pour ta réponse.
Je ne sais ou tu l'a trouvé ce code, car j'ai chercher partout sur le
forum
des infos sur le sujet et je n'ai rien trouvé, (je dois mal m'y prendre)

Donc j'ai essayé le premier, il me créer bien un nouveau classeur, mais ne
me rempli pas les colonne (Essaye avec un dossier possédant 1 titre MP3)

Je vais essayer le deuxième, mais j'essaye de faire en sorte de choisir le
chemin d'acces, j'y arrive avec un chemin, mais pour trois c'est un peu
plus
dur.

Merci, Jacques
"michdenis" a écrit dans le message de news:
%
Voici le fichier de Michel Perron allégé pour tenir compte de ton besoin

Les répertoires de destination doivent exister avant de lancer la macro

'-------------------------------
Sub DeplacerMP3_SelonLeurDebit()

Dim sPath As String, Dest22050 As String
Dim Dest44100 As String, Debit As String
Dim p$, n$, oFile As Object
Dim objShell As Object, oFolder As Object

'Répertoire où sont les fichiers musicaux
sPath = "c:Music"

'Répertoire de destination pour débit 22050
'ce répertoire doit exister avant de lancer la macro
Dest22050 = "c:Music22050"

'Répertoir de destination pour débit de 44100
'ce répertoire doit exister avant de lancer la macro
Dest44100 = "c:Music44100"

If sPath = "" Then Exit Sub

If Dir(sPath, vbDirectory) = "" Then
MsgBox "Répertoire inexistant."
Exit Sub
End If

If Dir(Dest22050, vbDirectory) = "" Then
MsgBox "Répertoire de destinaton pour 22050 inexistant."
Exit Sub
End If

If Dir(Dest44100, vbDirectory) = "" Then
MsgBox "Répertoire de destinaton pour Dest44100 inexistant."
Exit Sub
End If

Set objShell = CreateObject("Shell.Application")
Set oFolder = objShell.Namespace(CStr(sPath))

For Each oFile In oFolder.Items
p = oFile.Path: n = oFile.Name
If Right$(n, 4) = ".mp3" Then

Debit = Left(oFolder.GetDetailsOf(oFile, 22), 3)

Select Case Left(oFolder.GetDetailsOf(oFile, 22), 3)
Case Is = "128"
'Rien ne se passe.. rien n'est prévu

Case Is = "192"
'rien ne se passe ...

Case Is = "320"
'Rien de prévue pour l'instant.

Case Is > "22,0" 'pour 22,050
FileCopy p, Dest22050 & n
'La commande pour détruire le fichier original
'a été désactivé ...teste avant pour voir !!!
'Kill p

Case Is > "44,1"
FileCopy p, Dest44100 & n
'La commande pour détruire le fichier original
'a été désactivé ...teste avant pour voir !!!
'Kill p
End Select
End If
Next
Set oFolder = Nothing: Set objShell = Nothing
End Sub
'-------------------------------


Salutations!




"Jacques" a écrit dans le message de news:
42f9f345$0$22313$
Salut

Ne voyant aucunes réponses, je suppose que cela n'est pas possible, ou
alors
je me suis mal exprimé.

Es-ce le cas?

Merci, Jacques
"Jacques" a écrit dans le message de news:
42f896d2$0$894$
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu
de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un
dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du
dossier source.

Je vous remercie d'avance.

Jacques













Avatar
Jacques
Re

Je viens de réessayer, et cela me créer le classeur avec les entêtes, mais
rien dedans.

Donc je fais :

Je lance la procédure, je choisi un dossier qui possède 2 MP3 et c'est tout.

Merci, Jacques
"Jacques" a écrit dans le message de news:
42f896d2$0$894$
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du
dossier source.

Je vous remercie d'avance.

Jacques



Avatar
michdenis
Bonjour Jacques,

exécute la procédure pas à pas en utilisant la touche F8 et essaie d'identifier la ligne de code où la procédure s'arrête ...dans
l'affirmative, tu pourrais nous donner l'information.

Si d'autres usagers peuvent aussi se joindre à toi afin de savoir si tu es le seul avec cette problématique.


Salutations!


"Jacques" a écrit dans le message de news: 42fb6947$0$3116$
Re

Je viens de réessayer, et cela me créer le classeur avec les entêtes, mais
rien dedans.

Donc je fais :

Je lance la procédure, je choisi un dossier qui possède 2 MP3 et c'est tout.

Merci, Jacques
"Jacques" a écrit dans le message de news:
42f896d2$0$894$
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du
dossier source.

Je vous remercie d'avance.

Jacques



Avatar
michdenis
Un dernier détail, est-ce que ces informations sont disponibles pour tous les MP3 indépendamment de la manière qu'ils ont été gravés
?

Si tu le peux, tu télécharges un MP3 du Net et tu testes la procédures !


Salutations!


"Jacques" a écrit dans le message de news: 42fb6947$0$3116$
Re

Je viens de réessayer, et cela me créer le classeur avec les entêtes, mais
rien dedans.

Donc je fais :

Je lance la procédure, je choisi un dossier qui possède 2 MP3 et c'est tout.

Merci, Jacques
"Jacques" a écrit dans le message de news:
42f896d2$0$894$
Salut a toutes et tous

Voila j'ai des fichiers de musiques, qui on été encodé a 22,050 au lieu de
44,1.

Et il possible par VBA en séléctionnant le dossier source de faire une
recherche de tous les fichier en 44,1 et de les envoyer dans un un dossier
déstination en gardant la structure du dossier source.

Si :

Dossier source->Dossier artistes-> Fichiers musiques (22,050 et 44,1)

Avoir Dossier destination-> Dossier artistes-> Fichier musiques (44,1)

Ou si cela est plus simple, supprimer tous les fichiers en 22,050 du
dossier source.

Je vous remercie d'avance.

Jacques



1 2