Macro pour ouvrir un fichier .txt sur une cle quelque soit la lettre du port usb
isabelle29_29
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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, :)
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, :)
A voir également:
- Macro pour ouvrir un fichier .txt sur une cle quelque soit la lettre du port usb
- Clé usb non détectée - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Formater clé usb - Guide
1 réponse
Bonjour,
Si ton fichier txt est dans le même dossier que ton classeur, cela fonctionnera sur n'importe quel PC avec :
Par contre si tu veux avoir accès à ton fichier txt depuis ton classeur et que ce fichier est sur une clé USB dont tu ne connais pas la lettre, c'est différent il faut chercher la lettre de la clé USB connectée.
Voilà
Si ton fichier txt est dans le même dossier que ton classeur, cela fonctionnera sur n'importe quel PC avec :
ThisWorkbook.Path & "\ELEVE.txt"
Par contre si tu veux avoir accès à ton fichier txt depuis ton classeur et que ce fichier est sur une clé USB dont tu ne connais pas la lettre, c'est différent il faut chercher la lettre de la clé USB connectée.
Voilà