Code trop long à exécuter

chan33 Messages postés 36 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 5 février 2009 - 4 sept. 2008 à 19:24
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Derniè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
       
    Next chemin
    Else
    End If
    End With

Merci beaucoup pour votre aide

Chantal

3 réponses

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
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  
0
chan33 Messages postés 36 Date d'inscription lundi 25 août 2008 Statut Membre Derniè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.

Chantal
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
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  
0