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, :)
Posté le
Ajouter un commentaire
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 2019, 08:53-
Bonjour, La lettre affectée à une clé USB peut varier. Si la clé est nommée il est possible de faire une recherche. Voici un lien qui peut t'aider : https://excel.developpez.com/faq/index.php?page=Sauvegardes#SaveLecteurUSB – ouisansdoute 27 avril 2019, 08:00