Voici mon petit problème. Avec ce petit bout de code,
Set fs = Application.FileSearch
With fs
.LookIn = "C:\l\data\bbs"
.FileName = "sku"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
a = .FoundFiles(i)
MsgBox a
Next i
Else
MsgBox "There were no files found."
End If
End With
j'arrive à connaitre le nom du fichier avec le chemin au complet. Comment
puis-je savoir l'extension de ce fichier, l'extension n'ayant pas le même
nombre de caractères et l'attribuer à une variable.
Je dois pouvoir ouvrir ce fichier par la suite. C'est un fichier de type
Word que j'ouvre dans Excel.
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
Patrick Fredin
Bonjour,
Essaie en recherchant la position du "." en partant de la fin. Les caractères d'après représentent l'extension.
Patrick
Bonjour,
Voici mon petit problème. Avec ce petit bout de code,
Set fs = Application.FileSearch With fs .LookIn = "C:ldatabbs" .FileName = "sku" If .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For i = 1 To .FoundFiles.Count a = .FoundFiles(i) MsgBox a Next i Else MsgBox "There were no files found." End If End With
j'arrive à connaitre le nom du fichier avec le chemin au complet. Comment puis-je savoir l'extension de ce fichier, l'extension n'ayant pas le même nombre de caractères et l'attribuer à une variable.
Je dois pouvoir ouvrir ce fichier par la suite. C'est un fichier de type Word que j'ouvre dans Excel.
Merci de votre aide, Claire
Bonjour,
Essaie en recherchant la position du "." en partant de la fin. Les
caractères d'après représentent l'extension.
Patrick
Bonjour,
Voici mon petit problème. Avec ce petit bout de code,
Set fs = Application.FileSearch
With fs
.LookIn = "C:ldatabbs"
.FileName = "sku"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
a = .FoundFiles(i)
MsgBox a
Next i
Else
MsgBox "There were no files found."
End If
End With
j'arrive à connaitre le nom du fichier avec le chemin au complet. Comment
puis-je savoir l'extension de ce fichier, l'extension n'ayant pas le même
nombre de caractères et l'attribuer à une variable.
Je dois pouvoir ouvrir ce fichier par la suite. C'est un fichier de type
Word que j'ouvre dans Excel.
Essaie en recherchant la position du "." en partant de la fin. Les caractères d'après représentent l'extension.
Patrick
Bonjour,
Voici mon petit problème. Avec ce petit bout de code,
Set fs = Application.FileSearch With fs .LookIn = "C:ldatabbs" .FileName = "sku" If .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For i = 1 To .FoundFiles.Count a = .FoundFiles(i) MsgBox a Next i Else MsgBox "There were no files found." End If End With
j'arrive à connaitre le nom du fichier avec le chemin au complet. Comment puis-je savoir l'extension de ce fichier, l'extension n'ayant pas le même nombre de caractères et l'attribuer à une variable.
Je dois pouvoir ouvrir ce fichier par la suite. C'est un fichier de type Word que j'ouvre dans Excel.
