Supprimer extention

Bonsoir a toutes et tous , forum bonsoir

Voila un nouveau souci pour moi mais avec votre aide ca va le faire, deja merci d'avance et si possible ca va de soi.

j'ai joint un petit fichier voir svp explication dedans.

En fait je récupère une liste dans un répertoire (E:\videos) et la colle dans mon programme mais le logiciel que j'utilise me prends aussi l'extention et ca m'arrange pas (pas trouver logiciel en Fr plus performant)

Voila merci de votre attention et bonne soirée a tous

Raymond

Bonsoir,

essaye avec

Sub Listing()
Dim Lg%, i%, x
Lg = Range("b65536").End(xlUp).Row
    For i = 4 To Lg
        x = Split(Cells(i, 2), ".")
        Cells(i, 2) = x(0)
        Cells(i, 2).NumberFormat = "@"
    Next i
End Sub

Amicalement

Claude

Bonjour a toutes et tous, Forum bonjour,

Bonjour Dubois,

Je te remercie beaucoup pour le code il fonctionne parfaitement, je l'ai adapter a mon programme en cours et tout va bien.

(1) Pour ce qui est de l'alignement avec les codes que j'ai mis ca va pas, SVP quels sont les bons codes a mettre.

(2) Comment SVP forcer le lecteur Windows média player a s'ouvrir pil poil a l'endroit de mon choix.

Sub Listing()
Application.ScreenUpdating = False

Dim Lg%, i%, X
Lg = Range("A1800").End(xlUp).Row

With Range("A4:A" & Lg).Font

'.VerticalAlignment = xlCenter  
'.HorizontalAlignment = xlCenter

.Bold = False
.Name = "Arial"
.ColorIndex = 1
.Size = 8
End With

Lg = Range("A1800").End(xlUp).Row
For i = 4 To Lg
X = Split(Cells(i, 1), ".")
Cells(i, 1) = X(0)
Cells(i, 1).NumberFormat = "@"
Next i
Application.ScreenUpdating = True
End Sub

Voila en tout cas merci pour ton savoir, je n'aurai pas su faire pour enlever l'extention.

Bien je te souhaite un excellent Dimanche ainsi qu'a tous le monde.

Raymond

Salut le forum

Raymond, l'alignement n'est pas une proprieté de l'object FONT

Ton code modifié

J'ai combiné les deux boucles et fait le menage dans les variables.

Sub Listing()

  Dim Ligne As Integer

Application.ScreenUpdating = False

For Ligne = 4 To [B65536].End(xlUp).Row
  With Cells(Ligne, 2)
    .Value = Split(.Value, ".")(0)
    .NumberFormat = "@"
    .VerticalAlignment = xlCenter
    .HorizontalAlignment = xlCenter
      With .Font
        .Bold = False
        .Name = "Arial"
        .ColorIndex = 1
        .Size = 8
      End With
  End With
Next Ligne

Application.ScreenUpdating = True

End Sub

Mytå

Bonsoir a tous le monde, bonsoir forum

bonsoir Myta

Merci beaucoup pour le chti code que tu as remoduler, alors ca marche bien tres bien et je t'en remercie encore une fois.

Saurait tu svp me renseigner au sujet de la question (2) qui était

Comment SVP forcer le lecteur Windows média player a s'ouvrir pil poil a l'endroit de mon choix.

a vrai actuellement il s'ouvre bien sur ma page mais pas tout le temps au meme endroit d'ou ma question

je joint le code pour l'ouverture de windows media player si besoin

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Chemin As String
If Not Intersect(Target, Range("A4:A" & [A1800].End(xlUp).Row)) Is Nothing Then

Cancel = True
Chemin = "E:\Videos\"

End If
Shell """C:\Program Files\Windows Media Player\wmplayer.exe"" """ & Chemin & Target & ".avi", vbMaximizedFocus
Call AfficheFilm(Target)

End Sub

Merci d'avance a toi et je te souhaite une excellente soirée

Raymond