chan33
Messages postés36Date d'inscriptionlundi 25 août 2008StatutMembreDernière intervention 5 février 2009
-
4 sept. 2008 à 19:24
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
5 sept. 2008 à 16:44
Bonjour à tous,
J'ai un petit problème, mais qui est très agaçant. Voilà le code suivant est trop long à exécuter, environ 3 à 4 minutes, est-ce que ça serait possible de le rendre moins lourd ?
'Copier les dossiers et les renommer
Sheets("Liste des soumissions").Select
Range("G7").Select
cheminsoum = ActiveCell.Value
MsgBox "Sélectionner le répertoire d'enregistrement du projet"
With fd
.InitialFileName = "C:"
If .Show = -1 Then
For Each chemin In .SelectedItems
FSO.CopyFolder cheminsoum, chemin
Name nsoumission & "-" & ndescrip As projet & "-" & nclient
chemintemps = chemin & "" & projet & "-" & nclient & "\Temps et matériel" & projet & " Gestion projet.xls"
Name chemin & "" & projet & "-" & nclient & "\Temps et matériel" & nsoumission & " Gestion projet.xls" As chemintemps
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 4 sept. 2008 à 21:41
salut,
regarde sur codyx.org pour remplacer ton code concernant FSO ; réservé à VBScript !
FSO est à éviter coûte que coûte
++
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
chan33
Messages postés36Date d'inscriptionlundi 25 août 2008StatutMembreDernière intervention 5 février 2009 5 sept. 2008 à 15:31
J'ai été voir ce que tu me dis, mais je ne connais pas grand chose à la programmation et je suis un peu perdu dans tous ça. J'ai vérifier copie de dossier avec les codes VB6, VBA, mais il me semble que ça ne ressemble pas trop au code que j'utilise.
J'ai vérifier avec l'aide dans VBA et il me donne les instructions de FSO, alors je ne comprends pas pourquoi c'est à évité quand il me donne cette info.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 5 sept. 2008 à 16:44
l'aide t'indique une méthode fonctionnelle, rapide à mettre en place, mais pas rapide à executer
tape "dir" et tu auras aussi les informations nécessaires (qui seront plus rapides, mais en plus de lignes de code)
pour codyx en effet le code ne sera pas le même, c'est précisément le but recherché
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp