[résolu] Prendre un nom de fichier + répertoire en macro pour excel

Prendre un nom de fichier + répertoire en macro pour excel [résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 07-11-2006 à 09:18:40    

J'ai fait une jolie macro pour transférer un fichier particulier sur un serveur, et je suis confronté au fait qu'il y a plusieurs version d'excel chez nous : la macro ne fonctione pas sous Excel 2000.

Code :
  1. Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
  2. Dlg.AllowMultiSelect = False
  3. Dlg.Show
  4. 'divers tests'
  5. Destination = 'répertoire de destination'
  6. FileCopy Dlg.SelectedItems(1), Destination


 
Je vais refaire le test est donner le code d'erreur dès que possible (je n'ai jamais vu cette erreur).


Message édité par kman le 22-11-2006 à 09:24:34
Reply

Marsh Posté le 07-11-2006 à 09:18:40   

Reply

Marsh Posté le 21-11-2006 à 16:03:06    

Personne n'a de réponse :( ?

Reply

Marsh Posté le 21-11-2006 à 16:10:13    

En fait, je cherche juste à aller chercher le chemin et le nom de fichier.
Donc si vous avz une methode qui fonctionne sous excel 2000, je suis preneur :D !

Reply

Marsh Posté le 21-11-2006 à 16:19:04    

Tu as le nom d'un fichier (dont tu connais le chemin d'accès) que tu veux copier à un endroit dont tu connais aussi le chemin.
C'est bien ca ?

Reply

Marsh Posté le 21-11-2006 à 16:52:40    

En fait, je veux que l'utilisateur :
1) choisisse un fichier dans ses documents (c'est mon problème)
2) ensuite ma macro :
* sépare le nom du fichier / le répertoire
* copie le fichier dans un nouvel emp^lacement (commun à tout le personnel de la société)
3) et un msgbox à l'utiliseur pour lui dire "ça marche"
 
Les points 2) et 3) sont ok
Le point 1) fonctionne bien (avec le code ci-dessus), mais fonctionne uniquement sur excel v2003. Sur Excel 2000, j'ai un message d'erreur.

Reply

Marsh Posté le 21-11-2006 à 17:09:36    

FileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt" )
 
Permet d'ouvrir la boite de dialogue Ouvrir et de choisir un fichier. ici exemple avec selection des fichiers *.txt
 
Ca fait avancer le schmilblick ?

Reply

Marsh Posté le 21-11-2006 à 17:10:51    

voir aide en ligne GetOpenFilename

Reply

Marsh Posté le 21-11-2006 à 17:36:03    

Je teste vos solutions demain matin.
Merci par avance de vous être penchés sur mon cas :D !

Reply

Marsh Posté le 22-11-2006 à 09:23:41    

Yes, ça mache !
Je suis super content. :)  
Vous m'enlevez une fière chandelle du pied !

Reply

Marsh Posté le 04-01-2007 à 00:11:40    

Parfait cette solution. Merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed