[résolu]Problème avec ExecuteExcel4Macro....

Problème avec ExecuteExcel4Macro.... [résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 08-02-2007 à 14:51:39    

Bonjour,
 
Je dois réaliser l'application suivante : j'ai une macro excel qui doit balayer une plage de lignes et de colonnes dans d'autres fichiers Excel fermés, stocké sur un serveur (serveur local).  
 
En adaptant une solution du site excellabo.net, j'utilise la fonction ExecuteExcel4Macro comme suit :
 

Code :
  1. Private Function GetValue(Path, file, Sheet, Ref)
  2.   Dim Arg As String
  4.   'Vérie l'existence du fichier, ajoute les séparateurs manquants
  5.   If Right(Path, 1) <> "\" Then Path = Path & "\"
  6.   If Dir(Path & file) = "" Then
  7.     GetValue = "File Not Found"
  8.     Exit Function
  9.   End If
  10.   'Crée l'argument '"D:\mesdocuments\loisirs\[vacances.xls]Méribel'!R4C3"
  11.   Arg = "'" & Path & "[" & file & "]" & Sheet & "'!" & Range(Ref) _
  12.   .Range("A1" ).Address(, , xlR1C1)
  13.   'Exécute la macro XLM
  14.   GetValue = ExecuteExcel4Macro(Arg)
  15. End Function
  17. Sub GetValue_TMA_Proj(Path As String, dossier As Folder, semaine As String)
  18. Dim P As String, f As String, S As String, A As String, R As Byte
  19. Dim C As Byte, file As file
  20. Dim Count As Integer
  21. Count = 0
  22. Dim TypeI As String
  24. Dim formation, ConcComm, InterChantiers, TIAC, maladie, congesRtt, congesRttHc, prsnf As Double
  25. formation = 0
  26. ConcComm = 0
  27. InterChantiers = 0
  28. TIAC = 0
  29. congesRtt = 0
  30. maladie = 0
  31. congesRttHc = 0
  32. prsnf = 0
  36. '  P = FinalPath
  37. ' F = "Activité-MDE-2007-01.xls"
  38.   'S = "Activité Mois"
  39. ' Application.ScreenUpdating = False
  40. ' For R = 46 To 46
  41.   '  For C = 6 To 11
  42.   '    A = Cells(R, C).Address
  43.   '    Cells(R, C) = GetValue(P, F, S, A)
  44.   '    Count = Count + GetValue(P, F, S, A)
  45. '   Next C
  46. '  Next R
  47. ' MsgBox (Count)
  48.   'Application.ScreenUpdating = True '
  49.  
  50.   For Each file In dossier.Files
  51.   f = file.Name
  52.   Debug.Print f
  53.     For R = 33 To 45
  54.         For C = 7 To 10
  55.             A = Cells(R, C).Address 'adresse de la celulle à analyser
  56.             TypeI = Cells(R, 3).Address ' adresse type de code imputation'
  57.             typeImput = GetValue(Path, f, "Activité mois", TypeI)
  58.            
  59.             Select Case typeImput
  60.                 Case "Formation externe", "Formation interne", "Form. co_inv. employé"
  61.                     formation = formation + GetValue(Path, f, "Activité mois", A)
  62.                 Case "Maladie", "Maternité"
  63.                     maladie = maladie + GetValue(Path, f, "Activité mois", A)
  64.                 Case "Absences non payées", "Récupération", "Repos compensateur", "Visite médicale", "Congé non payé", "Récup Heures Excédent"
  65.                     congesRttHc = congesRttHc + GetValue(Path, f, "Activité mois", A)
  66.                 Case Else
  67.                     congesRtt = congesRtt + GetValue(Path, f, "Activité mois", A)
  68.                End Select
  69.            
  70.            
  71.            ' Cells(R, C) = GetValue(Path, file, "Activité mois", A) 'valeur numérique à partir de la colone des imput
  72.    
  73.         Next C
  74.     Next R
  75. Next
  76.     MsgBox (formation & congesRttHc & congesRtt & formation & maladie)
  77.    
  79.  
  80. End Sub


 
Alors c'est génial, ça fonctionne, mais c'est abominablement lent, si lent que ça plante quand j'agrandis le nombres de colonnes à analyser? Par contre si les fichiers Excel sont ouverts, c'est quasi instantannée. Le soucis c'est que les fichiers Excel seront fermés et qu'il y en aura une bonne vinghtaine à analyser. Je n'arrive pas à trouver d'autres solutions que ExecuteExcel4Macro... J'ai placé ma macro sur le serveur mais çà ne change rien : ça rame même quand il n'y a qu'une colone à analyser.
 
Avez-vous des solutions ?  [:whyme]


Message édité par skystef2 le 08-02-2007 à 17:11:18
Reply

Marsh Posté le 08-02-2007 à 14:51:39   

Reply

Marsh Posté le 08-02-2007 à 15:35:43    

Bonjour,
si le traitement est plus rapide en les ouvrant, pourquoi ne pas les ouvrir? et les refermer tout de suite après récupération des infos?
Cordialement

Reply

Marsh Posté le 08-02-2007 à 15:39:57    

re,  
j'avais ecrit quelque chose à cette adresse
http://forum.hardware.fr/hfr/Progr [...] m#t1508812

Reply

Marsh Posté le 08-02-2007 à 15:49:53    

C'est une solution, mais comment les ouvrir de façon réduite dans la barre des tâches ou de façon à ce que l'utilisateur ne les vois pas ?

Reply

Marsh Posté le 08-02-2007 à 16:01:05    

Application.ScreenUpdating = False  
 
..
..
..
Application.ScreenUpdating = true

Message cité 1 fois
Reply

Marsh Posté le 08-02-2007 à 16:30:32    

seniorpapou a écrit :

Application.ScreenUpdating = False  
 
..
..
..
Application.ScreenUpdating = true


 
 
Merci !  :jap:

Reply

Marsh Posté le 09-02-2007 à 11:55:38    

Voir post du 15-05-2006 à 21:13:49  http://forum.hardware.fr/hardwaref [...] 0232-1.htm
ou http://forum.hardware.fr/hardwaref [...] 2780-1.htm


Message édité par kiki29 le 09-02-2007 à 12:05:06
Reply

Sujets relatifs:

Leave a Replay

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