Ouvrir un fichier excel
Résolu/Fermé
A voir également:
- Ouvrir un fichier excel
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Fichier rar - Guide
- Comment ouvrir un fichier docx ? - Guide
- Liste déroulante excel - Guide
3 réponses
warex
Messages postés
197
Date d'inscription
vendredi 24 août 2007
Statut
Membre
Dernière intervention
16 mai 2009
3
16 mai 2008 à 10:11
16 mai 2008 à 10:11
J'ai pas vraiment compris ce que tu veux faire
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
brunobdf
Messages postés
20
Date d'inscription
jeudi 29 mars 2007
Statut
Membre
Dernière intervention
16 mai 2008
38
16 mai 2008 à 10:49
16 mai 2008 à 10:49
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
warex
Messages postés
197
Date d'inscription
vendredi 24 août 2007
Statut
Membre
Dernière intervention
16 mai 2009
3
16 mai 2008 à 10:48
16 mai 2008 à 10:48
J'allais te conseiller de faire une recherche dans ce dossier mais tu veux pas te retaper le code lol
Bah c'est la seule soluce que j'ai a te donner,tu as vraiment pas de chance
Bah c'est la seule soluce que j'ai a te donner,tu as vraiment pas de chance