Wile E Coyote | 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 :
- Private Sub Worksheet_Activate()
- Dim CHEMIN As String
- Dim FICHIER As String
- Dim FEUIL As String
- Dim CELLULE As String
- Dim SOMME As Double 'sert a calculer la somme de par ex Tranes Venta, de HC, Eurot, Ardia, Colombo et ibertel
- Dim som As Double
- Dim VList
- Dim i As Integer
- Dim j As Integer
- Dim k As Integer
- VList = Array("ARDIA", "HAUTECOEUR", "EUROT", "COLOMBO", "IBERTEL" )
- CHEMIN = "Mederic:Users:emac1:Desktop:TRANSPORTE:"
- SOMME = 0
- On Error GoTo 0
- 'On boucle sur les colonnes (les 12 mois)
- For k = 3 To 14
- FEUIL = Cells(4, k)
- For j = 5 To 20
- Select Case j
- Case 5
- CELLULE = "G304"
- Case 6
- CELLULE = "I304"
- Case 7
- CELLULE = "DIFF"
- Case 8
- CELLULE = "G305"
- Case 9
- CELLULE = "I305"
- Case 10
- CELLULE = "DIFF"
- Case 11
- CELLULE = "G306"
- Case 12
- CELLULE = "I306"
- Case 13
- CELLULE = "DIFF"
- Case 14
- CELLULE = "G307"
- Case 15
- CELLULE = "I307"
- Case 16
- CELLULE = "DIFF"
- Case 17
- CELLULE = "I308"
- Case 18
- CELLULE = "G301"
- Case 19
- CELLULE = "I301"
- Case 20
- CELLULE = "DIFF"
- End Select
-
- For i = 0 To UBound(VList)
- If CELLULE <> "DIFF" Then
- som = GetValue(CHEMIN, "SALIDAS " & VList(i) & " 2005.xls", FEUIL, CELLULE)
- If Stop_Fonction = False Then SOMME = SOMME + som
-
- Else
- SOMME = Cells(j - 2, k).Value - Cells(j - 1, k).Value
- End If
-
- If Err <> 0 Then Exit For
- Next
- If SOMME = 0 Then
- Cells(j, k).Value = ""
- Else
- Cells(j, k).Value = SOMME
- End If
-
- SOMME = 0 ' reinitialisation de la somme
-
- Next
- Next
- End Sub
|
Merci d'avance..  |
