romainchu78
XLDnaute Occasionnel
bonjour a tous,
avec les codes suivant je peux recuperer le chemin et le nom du fichier a tester. Je souhaiterais a l'aide d'une macro tester si un autre fichier est ouvert dans le meme repertoire. cad a partir de mon fichier principale charger le nom et le chemin dun autre fichier a charger (data.txt), ensuite tester si un fichier avec le meme nom mais avec l'extension xls est ouvert (data.xls).
FileToOpenCAB1_path = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") 'On preleve le chemin d'acces du fichier a charger EX: C:\data\tab.txt
FileToOpenCAB1_repert = Mid(ThisWorkbook.FullName, 1, InStr(1, ThisWorkbook.FullName, ThisWorkbook.Name, 1) - 1) 'On preleve le repertoire du fichier principale EX: C:\data\
FileToOpenCAB1_long = Mid(FileToOpenCAB1_path, InStrRev(FileToOpenCAB1_path, "\") + 1)
FileToOpenCAB1_court = Left(FileToOpenCAB1_long, InStrRev(FileToOpenCAB1_long, ".") - 1)
' EX: tab.txt and tab
FileToOpenCAB1_xls = FileToOpenCAB1_repert & FileToOpenCAB1_court & ".xls"
' EX: C:\data\tab.xls
La question que je veux coder est? Est ce que le fichier avec le nom tab.xls est actuellement ouvert?
avec les codes suivant je peux recuperer le chemin et le nom du fichier a tester. Je souhaiterais a l'aide d'une macro tester si un autre fichier est ouvert dans le meme repertoire. cad a partir de mon fichier principale charger le nom et le chemin dun autre fichier a charger (data.txt), ensuite tester si un fichier avec le meme nom mais avec l'extension xls est ouvert (data.xls).
FileToOpenCAB1_path = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt") 'On preleve le chemin d'acces du fichier a charger EX: C:\data\tab.txt
FileToOpenCAB1_repert = Mid(ThisWorkbook.FullName, 1, InStr(1, ThisWorkbook.FullName, ThisWorkbook.Name, 1) - 1) 'On preleve le repertoire du fichier principale EX: C:\data\
FileToOpenCAB1_long = Mid(FileToOpenCAB1_path, InStrRev(FileToOpenCAB1_path, "\") + 1)
FileToOpenCAB1_court = Left(FileToOpenCAB1_long, InStrRev(FileToOpenCAB1_long, ".") - 1)
' EX: tab.txt and tab
FileToOpenCAB1_xls = FileToOpenCAB1_repert & FileToOpenCAB1_court & ".xls"
' EX: C:\data\tab.xls
La question que je veux coder est? Est ce que le fichier avec le nom tab.xls est actuellement ouvert?
Dernière édition: