Bonjour,
Je voudrais copier un fichier par une macro en VBA depuis une feuille Excel ouverte sur mon ordinateur dans mon smartphone qui est connecté sur cet ordinateur. Le problème c'est qu'il est reconnu par Windows 10 comme un périphérique et ne possède pas de lettre comme un disque (C: ...) J'ai écrit une macro mais le smartphone n'est pas reconnu. Y a-t-il une possibilité pour faire cette opération.
Merci de m'aider.
Maurice
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub CopieGpxSurSmartphone() Dim AdresseSmartphone, fichier As String Dim GestionFichier As Object AdresseSmartphone = "Ordinateur\Maurice Adrien (Galaxy\Phone\TwoNavData\Data\Aire Fontblanche Barres Fontblanche Gp1.gpx" fichier = "C:\Users\Maurice Adrien\Documents\Mes Randonnées\Saison 2015 2016\Aire Fontblanche Barres Fontblanche Gp1.gpx" Set GestionFichier = CreateObject("Scripting.FileSystemObject") GestionFichier.CopyFile fichier, AdresseSmartphone Set GestionFichier = Nothing End Sub
Partager