Bonjour forum,
 
comment faire pour appliquer un seul programme à plusieurs fichiers contenus dans un méme repertoire.
 
merci d'avance

je sais pas si ça vient de moi mais j'ai rien compris...
 
edit : ah ben ptêt que si en fait, mais la question est un petit peu incompréhensible, et très vague...

J'ai pas compris grand chose non plus... lol

j'ai réaliser un programme qui ouvre te recupere le contenu du'un seul fichier.
 
vue que j'ai plusieurs fichiers, je voudrais savoir comment faire pour utiliser le meme programme afin de faire la méme opération en méme temps pour tous les fichiers

et quel est le problème ? demande à google, fonction rechercher...

j'ai chercher mais j'ai pas trouvé

Bah tu apelle ta fonction dans une boucle sur une liste de fichiers?

Sinon tu peux toujours mettre ta macro dans ton classeur de macro perso et la faire s'exécuter sur le fichier excel que tu as d'ouvert.
 
Tout dépend de jusqu'où tu cherches à automatiser.
 
Sinon regarde le post sur "lookin peut-il être une variable" il y a 2 codes pour te permettre de faire une liste de fichiers à partir d'un répertoiire sélectionné. la suite ne devrait être que du type workbooks.open et application.run pour lancer cette macro.
 
Bon courage

j'ai une idée mais je ne sais pas si c'est la bonne
faire par exemple
MonProg toto.xl
dans MonProg, la variable Command$ contiendra "toto.xl".  
cela permettra de traiter tous les fichier.xl se trouvant dans le répertoir

Ca s'appelle un argument. (toto.xl)
 
maintenant ton prog tu le fait en quoi ?
 

salut knakes
 
mon programme je le fait en VB6
 
merci pour ton aide

va sur vbfrance.com et cherche comment on peut récupérer un argument.

j'ai chercher et j'ai vu un bout de programme, je vé le tester
 
merci d'avance

pas de quoi.

je galére en ce moment pour adapter le programme
 
est ce que vous pouver m'expliquer la fonction commande?
 
merci

envoie ton code surla fonction.

Re
ca c'est le code principale
 
Private sub command1_click()  
Dim nligne As Integer  
Dim ndata As Integer  
Dim cp As Integer  
Dim moyenne1 As Double  
Dim moyenne2 As Double  
Dim moyenne1() As Double  
ReDim moyenne1(1 To N)  
Dim moyenne2() As Double  
ReDim moyenne2(1 To N)  
Dim tab1(1 To 100) As Double  
Dim tab2(1 To 100) As Double  
Dim var1, var2, v1, v2, var3, var4 As Double  
Dim i As Integer  
Dim ligne As String  
 
N = Cint(Text1.Text)  
'Ouverture Fichier Source et Destination  
On Error GoTo Suite  
 
Open "C:Fichier.txt" For Input As #1  
Open "C:toto.txt" For Output As #2  
 
'Copie des 100 premiers lignes  
ndata = 1  
 
Do While ((Not EOF(1)) And (ndata <= 101))  
 
If (ndata = 1) Then  
'Line Input #1, v1  
Input #1, v1  
Write #2, v1  
ndata = ndata + 1  
 
Else  
 
Input #1, v1, v2  
Tab1(ndata) = v1  
Tab2(ndata) = v2  
Write #2, tab1(ndata), tab2(ndata)  
 
ndata = ndata + 1  
End If  
 
Loop  
 
nligne = Cint(Text1.Text)  
cp = ndata  
 
'Copie par groupe de N valeurs  
' Puis calcul moyenne  
Do While (Not EOF(1))  
 
 
cp = cp + nligne  
i = 1  
Do While ((Not EOF(1)) And (ndata < cp))  
 
Input #1, var1, var2, var3, var4  
Moyenne1(i) = var1  
Moyenne2(i) = var2  
 
ndata = ndata + 1  
i = i + 1  
Loop  
 
 
Moyenne1 = 0  
Moyenne2 = 0  
 
 
For i = 1 To Cint(Text1.Text)  
Moyenne1 = moyenne1+ moyenne1(i)  
Moyenne2 = moyenne2 + moyenne2(i)  
Next i  
 
Moyenne1 = (moyenne1 / Cint(Text1.Text))  
Moyenne2 = (moyenne2 / Cint(Text1.Text))  
 
 
Write #2, moyenne1, moyenne2  
 
Loop  
 
Close #1  
Close #2  
 
Suite:  
End Sub  
 
Private Sub Text1_Change()  
If Text1.Text <> "" Then  
Text1.Text = Cint(Text1.Text)  
End If  
 
End Sub
 
 
 
j'ai plusieurs fichier à ouvrir en méme temps
 
merci beaucoup pour ton aide