[EXCEL] Recherche d'un fichier fermé

Recherche d'un fichier fermé [EXCEL] - VB/VBA/VBS - Programmation

Marsh Posté le 03-03-2005 à 11:59:01    

Salut !
 
Voici un probleme que je n'arrive pas a resoudre, j'ai essayé plusieurs forums et sites excel, sans succes...
 
J'ai besoin pour mes macros de faire des recherches de fichiers sur le disc dur de mon MAC, mes fichiers se promènent sur d'autres machines et j'ai besoin que mes macros marchent partout...
 
En local, je mets le chemin complet, pas de pb. Mais sur la machine de mes collègues, les copies des memes fichiers sont dans des répertoires différents!
 
Voici mon code ou j'ai besoin de remplacer "CHEMIN" (var String) par le resultat d'une recherche :
 

Code :
  1. Private Sub Worksheet_Activate()
  3. Dim CHEMIN As String
  4. Dim FICHIER As String
  5. Dim FEUIL As String
  6. Dim CELLULE As String
  7. Dim SOMME As Double 'sert a calculer la somme de par ex Tranes Venta, de HC, Eurot, Ardia, Colombo et ibertel
  8. Dim som As Double
  9. Dim VList
  10. Dim i As Integer
  11. Dim j As Integer
  12. Dim k As Integer
  14. VList = Array("ARDIA", "HAUTECOEUR", "EUROT", "COLOMBO", "IBERTEL" )
  15. CHEMIN = "Mederic:Users:emac1:Desktop:TRANSPORTE:"
  16. SOMME = 0
  18. On Error GoTo 0
  20. 'On boucle sur les colonnes (les 12 mois)
  21. For k = 3 To 14
  22.     FEUIL = Cells(4, k)
  24.     For j = 5 To 20
  25.         Select Case j
  26.             Case 5
  27.                 CELLULE = "G304"
  28.             Case 6
  29.                 CELLULE = "I304"
  30.             Case 7
  31.                 CELLULE = "DIFF"
  32.             Case 8
  33.                 CELLULE = "G305"
  34.             Case 9
  35.                 CELLULE = "I305"
  36.             Case 10
  37.                 CELLULE = "DIFF"
  38.             Case 11
  39.                 CELLULE = "G306"
  40.             Case 12
  41.                 CELLULE = "I306"
  42.             Case 13
  43.                 CELLULE = "DIFF"
  44.             Case 14
  45.                 CELLULE = "G307"
  46.             Case 15
  47.                 CELLULE = "I307"
  48.             Case 16
  49.                 CELLULE = "DIFF"
  50.             Case 17
  51.                 CELLULE = "I308"
  52.             Case 18
  53.                 CELLULE = "G301"
  54.             Case 19
  55.                 CELLULE = "I301"
  56.             Case 20
  57.                 CELLULE = "DIFF"
  58.         End Select
  59.        
  60.         For i = 0 To UBound(VList)
  61.             If CELLULE <> "DIFF" Then
  62.                 som = GetValue(CHEMIN, "SALIDAS " & VList(i) & " 2005.xls", FEUIL, CELLULE)
  63.                 If Stop_Fonction = False Then SOMME = SOMME + som
  64.                
  65.             Else
  66.                 SOMME = Cells(j - 2, k).Value - Cells(j - 1, k).Value
  67.             End If
  68.            
  69.             If Err <> 0 Then Exit For
  70.         Next
  71.             If SOMME = 0 Then
  72.                 Cells(j, k).Value = ""
  73.             Else
  74.                 Cells(j, k).Value = SOMME
  75.             End If
  76.            
  77.         SOMME = 0 ' reinitialisation de la somme
  78.            
  79.     Next
  80. Next
  82. End Sub


 
Merci d'avance..  :jap:

Reply

Marsh Posté le 03-03-2005 à 11:59:01   

Reply

Sujets relatifs:

Leave a Replay

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