|
|
|
|
Posté par
Thubs, le jeudi 16 octobre 2003 à 10:43:33c'est faisable, je dois te répondre en détail vers 22h00.
quel est le chemin de ton réperetoire ? time is not money, time is life |
Merci filaliabdou :)
Le chemin est "C:\Mes Documents\Devis"
|
Bonsoir,
voici une vieille contribution réaménagée : Option Explicit
Public dossier
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
'32-bit API declarations
Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Function GetDirectory(Optional Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(Msg) Then
bInfo.lpszTitle = ""
Else
bInfo.lpszTitle = Msg
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos - 1)
Else
GetDirectory = ""
End If
End Function
Sub Traiter_Dossier()
'Objectif : traiter les fichiers d'un répertoire
'
Dim fs, i, nomfich, FileNumber, specfichier, nbfichiers
Dim fso As New FileSystemObject
dossier = GetDirectory("choisissez le dossier à traiter")
If dossier <> "" Then
Set fs = Application.FileSearch
With fs
.LookIn = dossier
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
nbfichiers = .FoundFiles.Count
MsgBox "Ce dossier contient " & nbfichiers & " fichier(s) répondant aux critères."
For i = 1 To nbfichiers
specfichier = .FoundFiles(i)
'*********************
'Mettre ici le traitement à réaliser
'*********************
Next i
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End If
End Subne pas oublier de référencer "Microsoft scripting runtime" (menu outils/références... dans VBA)
A+
|
Bonjour,
tu ouvres ton fichier avec Workbooks.OpenText Filename:=specfichier, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True tu vérifieras les options en faisant un enregistrement manuel de macro.
cordialement |
je n'aarive pas ouvrir xls que faire |
| 03/04 20h30 | Transformer un fichier Microsoft Excel (.xls) en PDF | OpenOffice.org |
| 13/12 16h49 | [XSL-FO] Comment lire un fichier .FO/.FOB ? | Bureautique |
| 15/02 16h35 | [Word] Impossible de rétablir une liaison DDE avec Excel | Word |
| 15/02 16h15 | [Vidéo] Décalage du son et de l'image d'un fichier vidéo (Divx) | Vidéo |
| 15/02 16h27 | [Vidéo] Supprimer les bandes noires d'une vidéo (format 16/9ème) | Vidéo |
| 15/04 22h38 | Ouverture fichier sur macro excel qui supprim | 1 |
| 19/12 11h39 | Macro excel ouverture fichier xls | 3 |
| 03/04 20h03 | [Excel] impossible d'ouvrir fichiers .xls | 1 |
| 31/01 14h18 | Lien HT ouvre fichier .xls direct sur ligne | 3 |
| 03/12 11h29 | Impossible ouvrir fichier .xls sur outlook | 2 |
![]() | IsoBuster - IsoBuster est un outil de récupération de CD, DVD, HD-DVD et BD prenant en charge tous les formats et tous leurs système de... | Catégorie: Gravure Licence: Freeware/gratuit |
![]() | Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même... | Catégorie: Tableur Licence: Freeware/gratuit |
![]() | OpenOffice.org - OpenOffice est une suite bureautique complète entièrement gratuite, compatible avec la suite Microsoft Office. Elle... | Catégorie: Suite bureautique Licence: Open Source |
![]() | Word Viewer - La visionneuse Word Viewer vous permet d'ouvrir des documents Word 2003 et des documents créés avec toutes les versions... | Catégorie: Traitement de texte Licence: Freeware/gratuit |
![]() | Crown XLS202B | Catégorie: Amplificateur | 266.00 € Thomann FR |
![]() | Crown XLS602B | Catégorie: Amplificateur | 444.00 € Thomann FR |
![]() | Crown XLS802 Black | Catégorie: Amplificateur | 522.00 € Thomann FR |
![]() | Sharp XLS10H | Catégorie: Chaîne Hi-Fi |