|
|
|
|
Bonjour,
je travaille actuellement sous VBA/Excel, je cherche à ouvrir un fichier texte (.txt); j'utilise la commande suivante qui marche très bien:
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt"
Mon problème est le suivant, la recherche du fichier commence dans mes documents, mais le fichier texte que je recherche se trouve dans le même dossier que le fichier Excel, j'ai donc pensé rajouter ThisWorkbook dans l'adressage du fichier pour gagner le temps de recherche:
fileToOpen = Application.GetOpenFilename("ThisWorkbook.Text Files (*.txt), *.txt"
Mais la recherche commence toujours dans mes documents.
Y a-t-il une solution pour que la recherche soit directement dans le même répertoire que mon fichier excel?
Si oui, pouvez vous m'aider?
Merci
Configuration: Windows XP Firefox 2.0.0.11
Bonjour,
Sub Ouvrir()
Dim FileToOpen As Variant
Dim Chemin As String
Dim Lecteur As String
Chemin = ThisWorkbook.Path
Lecteur = Mid(Chemin, 1, 2)
ChDrive Lecteur
ChDir Chemin
FileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
End Sub
'
Lupin |
Un petit problème, je faisais la manip (Chemin = ThisWorkbook.Path) sous Excel 2003 et ça m'ouvrait directement le bon répertoire, mais en essayant sous Excel 2007 ça n'a pas marché, pouvez vous m'aider?
|
Carnet adresse excel Cdo vba excel Comment ouvrie deux adresses msn en même temps ? Copier coller vba excel Eteindre un pc en vba excel Excel macro etiquette non definie Faire un perceptron en vba excel Formulaire vba excel Importer flash player dans tableau excel vba Incrémenter n° facture excel vba Lire tableau croisé dynamique vba excel Msgbox vba excel Ouvrir nouvelle adresse msn Sauvegarder une plage de cellule excel vers une autre feuille vba Vba excel Vba excel 2007 masquer documents récents Vba excel fonction Vba excel object
