funkay91
Messages postés20Date d'inscriptionmercredi 9 novembre 2005StatutMembreDernière intervention22 novembre 2005
-
10 nov. 2005 à 15:44
funkay91
Messages postés20Date d'inscriptionmercredi 9 novembre 2005StatutMembreDernière intervention22 novembre 2005
-
10 nov. 2005 à 16:59
je souhaite appliquer ma macro sur l'ensemble des fichiers .xls de mon dossier
C'est dire j'ai un fichier exel dans lequel j'aurai ma macro qui une fois lancée va cherché des infos dans tout les fichiers du dossier
sachant que chaque fichier comptient plusieurs onglets.
funkay91
Messages postés20Date d'inscriptionmercredi 9 novembre 2005StatutMembreDernière intervention22 novembre 2005 10 nov. 2005 à 16:59
Bon alors j'avance tres doucement ( je suis pas un adepte de la progra)
j'ai trois fonction pour l'instant
1ere qui m'a été décrite ci dessus pour récup mes fichiers
2ème qui me permet de remplir mon fichier où est la macro
3éme qui un jour expert scanerra les fichiers trouver dans la prémière afin que dès qu'il trouve un nom il renvoie le nombre de fois que ce nombre est apparu dans le fichier
<HR>
Function RGT(Valeur, ColIndex, nomfichier)
Dim CompterCellules As Integer
Dim iCell
MsgBox (Valeur)
reenUpdating = False
For Each iCell In Range("A1:M1")
If iCell.Value = Valeur Then
CompterCellules = CompterCellules + 1
End If
Next iCell
MsgBox "Il y a " & CompterCellules & " fois le mot " & Valeur
RGT = CompterCellules
End Function
<HR>
Sub principal(nomfichier)
MsgBox ("test")
For ColIndex = 1 To 5
With Cells(1, ColIndex, nomfichier)
Valeur = .Value
X = RGT(Valeur, ColIndex)
Cells(2, ColIndex).Value = Cells(2, ColIndex).Value + 1
End With
Next
End Sub
<HR>
Sub main()
nomfichier = Dir("c:\*.xls")
While nomfichier <> ""
MsgBox nomfichier
active
principal (nomfichier)
nomfichier = Dir
Wend
End Sub
<HR>
voilà mes trois fonction ridicule ( I'm a very noob)
je voudrai avoir de l'aide pour que ma fonction RGT scan tout les onglets de tout les fichiers
meme s'il faut ouvir les fichier et les refermé en fin de macro