Ouvrir un fichier excel
Résolu
shishumi
-
shishumi -
shishumi -
Bonjour,
j'ai un dossier contenant plusieurs fichiers excel et je dois pouvoir les ouvrir pour pouvoir récupérer des données qui sont à l'intèrieur puis les fermé une fois les données récupéré (un seul fichier doit être ouvert à la fois).
Le problème est que je ne connais pas forcément le nom de ces fichier.
merci pour votre aide.
j'ai un dossier contenant plusieurs fichiers excel et je dois pouvoir les ouvrir pour pouvoir récupérer des données qui sont à l'intèrieur puis les fermé une fois les données récupéré (un seul fichier doit être ouvert à la fois).
Le problème est que je ne connais pas forcément le nom de ces fichier.
merci pour votre aide.
A voir également:
- Ouvrir un fichier excel
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment ouvrir un fichier 7z - Guide
3 réponses
bonjour,
en fait j'ai un dossier et dans ce dossier j'ai plusieurs fichiers excel.
ce que je voudrais c'est de pouvoir ouvrir ces fichiers un par un mais comme ces fichiers change tous les jours et que je ne veux pas forcément me retaper le code tout le temps, j'aimerais pouvoir les ouvrir sans renseigner leur nom de fichier (surtout que ce sont des noms à ralonge).
j'aimerai savoir comment je pourrai faire.
merci pour votre aide
en fait j'ai un dossier et dans ce dossier j'ai plusieurs fichiers excel.
ce que je voudrais c'est de pouvoir ouvrir ces fichiers un par un mais comme ces fichiers change tous les jours et que je ne veux pas forcément me retaper le code tout le temps, j'aimerais pouvoir les ouvrir sans renseigner leur nom de fichier (surtout que ce sont des noms à ralonge).
j'aimerai savoir comment je pourrai faire.
merci pour votre aide
bonjour
voici une proc tirée directement de l'aide Excel sur la fonction dir
Sub test()
MyPath = "c:\" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) ' Extrait la première entrée.
Do While MyName <> "" ' Commence la boucle.
' Ignore le dossier courant et le dossier
' contenant le dossier courant.
If MyName <> "." And MyName <> ".." Then
' Utilise une comparaison au niveau du bit pour
' vérifier que MyName n'est pas un dossier.
If (GetAttr(MyPath & MyName) And vbDirectory) <> vbDirectory Then
Debug.Print MyName ' Affiche l'entrée uniquement si elle
End If ' représente un dossier.
End If
MyName = Dir ' Extrait l'entrée suivante.
Loop
End Sub
à toi de l'arranger à ta sauce, sachant que dans MyName tu récupères le nom du fichier
voici une proc tirée directement de l'aide Excel sur la fonction dir
Sub test()
MyPath = "c:\" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) ' Extrait la première entrée.
Do While MyName <> "" ' Commence la boucle.
' Ignore le dossier courant et le dossier
' contenant le dossier courant.
If MyName <> "." And MyName <> ".." Then
' Utilise une comparaison au niveau du bit pour
' vérifier que MyName n'est pas un dossier.
If (GetAttr(MyPath & MyName) And vbDirectory) <> vbDirectory Then
Debug.Print MyName ' Affiche l'entrée uniquement si elle
End If ' représente un dossier.
End If
MyName = Dir ' Extrait l'entrée suivante.
Loop
End Sub
à toi de l'arranger à ta sauce, sachant que dans MyName tu récupères le nom du fichier