Macro pour ouvrir un fichier .txt sur une cle quelque soit la lettre du port usb

0

Bonjour à tous,

S'il vous plait j'ai besoin de votre aide . J'ai créé cette macro avec l'enregistreur de macro qui me permet d'ouvrir un fichier texte à partir d'une clé USB.

Mon problème est le suivant : Dans mon projet de fin d'études, j'ai considéré que les utilisateurs n'ont pas la même adresse c'est pour cela que j'ai défini "X"mais je ne sais pas pourquoi sa m'affiche l'erreur suivante : Erreure d'exécution '9'

Sub importer()

Dim X As String
X = Left(Split(ThisWorkbook.Path, "\")(0), 1)


Workbooks.OpenText Filename:=X & ":\DOSSIER\ELEVE.txt", Origin:=xlWindows, StartRow:=1, TrailingMinusNumbers:=True


End Sub


Merci de vos réponses,
Bonne journée, :)

    isabelle29 Posté le 17 avril, 12:46
    par isabelle29
    Répondre
    0

    Bonjour,

    Une piste : cela doit être possible après avoir nommé la clé USB et en faisant une recherche de ce nom sur les lecteurs.

    Posté le 24 avril, 08:53

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :