Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
750 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°1471451
kman
Posté le 07-11-2006 à 09:18:40  profilanswer
 

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
mood
Publicité
Posté le 07-11-2006 à 09:18:40  profilanswer
 

n°1479372
kman
Posté le 21-11-2006 à 16:03:06  profilanswer
 

Personne n'a de réponse :( ?

n°1479381
kman
Posté le 21-11-2006 à 16:10:13  profilanswer
 

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 !

n°1479398
Paul Hood
Posté le 21-11-2006 à 16:19:04  profilanswer
 

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 ?

n°1479436
kman
Posté le 21-11-2006 à 16:52:40  profilanswer
 

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.

n°1479455
Paul Hood
Posté le 21-11-2006 à 17:09:36  profilanswer
 

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 ?

n°1479459
kiki29
Posté le 21-11-2006 à 17:10:51  profilanswer
 

voir aide en ligne GetOpenFilename

n°1479470
kman
Posté le 21-11-2006 à 17:36:03  profilanswer
 

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

n°1479720
kman
Posté le 22-11-2006 à 09:23:41  profilanswer
 

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

n°1498538
T509
$job->GetJob(now)
Posté le 04-01-2007 à 00:11:40  profilanswer
 

Parfait cette solution. Merci


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Malgré le loop, pas moyen de ré-executer la macro?!extraire une partie d'un fichier
[résolu...enfin presq]Choix multiple pour une propriété de type stringAuthentification sans session. [Résolu]
[résolu]Aleternative à SQL Server 2005[Access, Excel] Recherche ouvrages/tutorial
nom du fichier courant[Resolu][SDL]Evenements
Conversion de fichier html n .doc[Résolu] Pause qui libère le CPU?
Plus de sujets relatifs à : [résolu] Prendre un nom de fichier + répertoire en macro pour excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR