demande de l'aide

R

Roland

Guest

• 5 Février 2004

• #2

Salut wachoo31

dans l'exemple
bye

 

Pièces jointes

• vidange.zip

  11 KB · Affichages: 14
• vidange.zip

  11 KB · Affichages: 13
• vidange.zip

  11 KB · Affichages: 12

Vote positif 0 Vote négatif

W

wachoo31

Guest

• 6 Février 2004

• #3

merci roland je vais regarder et essayer de comprendre ta macro

 

Vote positif 0 Vote négatif

W

wachoo31

Guest

• 6 Février 2004

• #4

je cale car la macro bloque a l'adresse workbook.open

 

Vote positif 0 Vote négatif

M

michel

Guest

• 6 Février 2004

• #5

bonsoir Roland , bonsoir Wachoo31

Wachoo31 , tu peux faire un essai comme ci dessous , en completant l'adresse du repertoire
Workbooks.Open ("D:\dossier\general\excel\vidange\" & Fic) ' a adapter selon ton repertoire
pour le reste la demo de Roland fonctionne tres bien chez moi

en complément ci joint une autre solution , sans ouvir les fichiers pour recuperer les données

Sub ChercheFichiersFermesV02()
Dim X As Integer, NbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String

Application.ScreenUpdating = False
Direction = Dir("D:\dossier\general\excel\vidange\*.xls")
Do While Len(Direction) > 0
NbFichiers = NbFichiers + 1
ReDim Preserve Tableau(1 To NbFichiers)
Tableau(NbFichiers) = Direction
Direction = Dir()
Loop

If NbFichiers > 0 Then
For X = 1 To NbFichiers
If Tableau(X) <> ThisWorkbook.Name Then
Y = Y + 1
With ActiveSheet.Cells(Y, 1)
.FormulaArray = "='" & "D:\dossier\general\excel\vidange\[" & Tableau(X) & "]" & "Feuil1" & "'!" & "A15"
.Value = .Value
End With
End If
Next X
End If
Application.ScreenUpdating = True

End Sub

bonne soiree
michel

 

Vote positif 0 Vote négatif

W

wachoo31

Guest

• 6 Février 2004

• #6

merci a tout deux pour les exemple je suis occupé pour le moment, donc pas la possibilité de faire des essais de suite mais a l'occasion je vous tien au courant, encore merci

 

Vote positif 0 Vote négatif

L

Le petit belge

Guest

• 8 Février 2004

• #7

merci roland, j'ai réussi a faire fonctionné la macro, juste encore une petite chose, dans l'exemple de michel comment faire pour remplacé le dossier général par la valeur de la cellule c4

 

Vote positif 0 Vote négatif