Bonjour,
Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer
avec une structure For Each Next
dans le cas suivant:
Chaine est la première lettre d'un fichier dans le répertoire courant
Chain=InputBox(«Entrez lettre début») & «*.xls»
Fs=Dir(Chain)
For Each Chain In Workbooks
MsgBox «Désirez-vous ouvrir» & fs, vbYesNo
If vbYes Then
Workbooks.Open filename:=fs
Else
Exit Sub
End If
Next Chain
D'avance merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LeSteph
Bonjour, fs=dir avant next
lSteph
"imej-clavier" a écrit dans le message de news:415542ee$0$723$
Bonjour, Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer avec une structure For Each Next dans le cas suivant: Chaine est la première lettre d'un fichier dans le répertoire courant Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) For Each Chain In Workbooks MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If vbYes Then Workbooks.Open filename:=fs Else Exit Sub End If Next Chain D'avance merci
Jean-michel
Bonjour,
fs=dir
avant next
lSteph
"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message de
news:415542ee$0$723$8fcfb975@news.wanadoo.fr...
Bonjour,
Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer
avec une structure For Each Next
dans le cas suivant:
Chaine est la première lettre d'un fichier dans le répertoire courant
Chain=InputBox(«Entrez lettre début») & «*.xls»
Fs=Dir(Chain)
For Each Chain In Workbooks
MsgBox «Désirez-vous ouvrir» & fs, vbYesNo
If vbYes Then
Workbooks.Open filename:=fs
Else
Exit Sub
End If
Next Chain
D'avance merci
"imej-clavier" a écrit dans le message de news:415542ee$0$723$
Bonjour, Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer avec une structure For Each Next dans le cas suivant: Chaine est la première lettre d'un fichier dans le répertoire courant Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) For Each Chain In Workbooks MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If vbYes Then Workbooks.Open filename:=fs Else Exit Sub End If Next Chain D'avance merci
oups.s. Tu boucles sur chain pour boucler sur fs... je reviens.. dans l'idée:
Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) do while len(fs)>0 test=MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If test ThenWorkbooks.Open filename:=fs fs=dir loop
"imej-clavier" a écrit dans le message de news:415542ee$0$723$
Bonjour, Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer avec une structure For Each Next dans le cas suivant: Chaine est la première lettre d'un fichier dans le répertoire courant Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) For Each Chain In Workbooks MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If vbYes Then Workbooks.Open filename:=fs Else Exit Sub End If Next Chain D'avance merci
Jean-michel
oups.s.
Tu boucles sur chain
pour boucler sur fs...
je reviens.. dans l'idée:
Chain=InputBox(«Entrez lettre début») & «*.xls»
Fs=Dir(Chain)
do while len(fs)>0
test=MsgBox «Désirez-vous ouvrir» & fs, vbYesNo
If test ThenWorkbooks.Open filename:=fs
fs=dir
loop
"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message de
news:415542ee$0$723$8fcfb975@news.wanadoo.fr...
Bonjour,
Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer
avec une structure For Each Next
dans le cas suivant:
Chaine est la première lettre d'un fichier dans le répertoire courant
Chain=InputBox(«Entrez lettre début») & «*.xls»
Fs=Dir(Chain)
For Each Chain In Workbooks
MsgBox «Désirez-vous ouvrir» & fs, vbYesNo
If vbYes Then
Workbooks.Open filename:=fs
Else
Exit Sub
End If
Next Chain
D'avance merci
oups.s. Tu boucles sur chain pour boucler sur fs... je reviens.. dans l'idée:
Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) do while len(fs)>0 test=MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If test ThenWorkbooks.Open filename:=fs fs=dir loop
"imej-clavier" a écrit dans le message de news:415542ee$0$723$
Bonjour, Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer avec une structure For Each Next dans le cas suivant: Chaine est la première lettre d'un fichier dans le répertoire courant Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) For Each Chain In Workbooks MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If vbYes Then Workbooks.Open filename:=fs Else Exit Sub End If Next Chain D'avance merci
Jean-michel
LeSteph
'Et voili! '******** Sub ouvlettFic() Dim chain As String Dim fs As String chain = InputBox("Entrez lettre début") & "*.xls" fs = Dir(chain) Do While Len(fs) > 0 test = MsgBox("Désirez-vous ouvrir" & fs, 4) If test = 6 Then Workbooks.Open Filename:=fs fs = Dir Loop
End Sub '***** 'lSteph ;-) "imej-clavier" a écrit dans le message de news:415542ee$0$723$
Bonjour, Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer avec une structure For Each Next dans le cas suivant: Chaine est la première lettre d'un fichier dans le répertoire courant Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) For Each Chain In Workbooks MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If vbYes Then Workbooks.Open filename:=fs Else Exit Sub End If Next Chain D'avance merci
Jean-michel
'Et voili!
'********
Sub ouvlettFic()
Dim chain As String
Dim fs As String
chain = InputBox("Entrez lettre début") & "*.xls"
fs = Dir(chain)
Do While Len(fs) > 0
test = MsgBox("Désirez-vous ouvrir" & fs, 4)
If test = 6 Then Workbooks.Open Filename:=fs
fs = Dir
Loop
End Sub
'*****
'lSteph ;-)
"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message de
news:415542ee$0$723$8fcfb975@news.wanadoo.fr...
Bonjour,
Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer
avec une structure For Each Next
dans le cas suivant:
Chaine est la première lettre d'un fichier dans le répertoire courant
Chain=InputBox(«Entrez lettre début») & «*.xls»
Fs=Dir(Chain)
For Each Chain In Workbooks
MsgBox «Désirez-vous ouvrir» & fs, vbYesNo
If vbYes Then
Workbooks.Open filename:=fs
Else
Exit Sub
End If
Next Chain
D'avance merci
'Et voili! '******** Sub ouvlettFic() Dim chain As String Dim fs As String chain = InputBox("Entrez lettre début") & "*.xls" fs = Dir(chain) Do While Len(fs) > 0 test = MsgBox("Désirez-vous ouvrir" & fs, 4) If test = 6 Then Workbooks.Open Filename:=fs fs = Dir Loop
End Sub '***** 'lSteph ;-) "imej-clavier" a écrit dans le message de news:415542ee$0$723$
Bonjour, Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer avec une structure For Each Next dans le cas suivant: Chaine est la première lettre d'un fichier dans le répertoire courant Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) For Each Chain In Workbooks MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If vbYes Then Workbooks.Open filename:=fs Else Exit Sub End If Next Chain D'avance merci
Jean-michel
LeSteph
...et re oupss au cas où tu sois en option explicit au début rajoute aux autres dim: Dim test
"LeSteph" a écrit dans le message de news:
'Et voili! '******** Sub ouvlettFic() Dim chain As String Dim fs As String chain = InputBox("Entrez lettre début") & "*.xls" fs = Dir(chain) Do While Len(fs) > 0 test = MsgBox("Désirez-vous ouvrir" & fs, 4) If test = 6 Then Workbooks.Open Filename:=fs fs = Dir Loop
End Sub '***** 'lSteph ;-) "imej-clavier" a écrit dans le message de news:415542ee$0$723$
Bonjour, Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer
avec une structure For Each Next dans le cas suivant: Chaine est la première lettre d'un fichier dans le répertoire courant Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) For Each Chain In Workbooks MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If vbYes Then Workbooks.Open filename:=fs Else Exit Sub End If Next Chain D'avance merci
Jean-michel
...et re oupss
au cas où tu sois en option explicit
au début rajoute aux autres dim:
Dim test
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:OjXLgvuoEHA.1668@TK2MSFTNGP14.phx.gbl...
'Et voili!
'********
Sub ouvlettFic()
Dim chain As String
Dim fs As String
chain = InputBox("Entrez lettre début") & "*.xls"
fs = Dir(chain)
Do While Len(fs) > 0
test = MsgBox("Désirez-vous ouvrir" & fs, 4)
If test = 6 Then Workbooks.Open Filename:=fs
fs = Dir
Loop
End Sub
'*****
'lSteph ;-)
"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message de
news:415542ee$0$723$8fcfb975@news.wanadoo.fr...
Bonjour,
Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour
itérer
avec une structure For Each Next
dans le cas suivant:
Chaine est la première lettre d'un fichier dans le répertoire courant
Chain=InputBox(«Entrez lettre début») & «*.xls»
Fs=Dir(Chain)
For Each Chain In Workbooks
MsgBox «Désirez-vous ouvrir» & fs, vbYesNo
If vbYes Then
Workbooks.Open filename:=fs
Else
Exit Sub
End If
Next Chain
D'avance merci
...et re oupss au cas où tu sois en option explicit au début rajoute aux autres dim: Dim test
"LeSteph" a écrit dans le message de news:
'Et voili! '******** Sub ouvlettFic() Dim chain As String Dim fs As String chain = InputBox("Entrez lettre début") & "*.xls" fs = Dir(chain) Do While Len(fs) > 0 test = MsgBox("Désirez-vous ouvrir" & fs, 4) If test = 6 Then Workbooks.Open Filename:=fs fs = Dir Loop
End Sub '***** 'lSteph ;-) "imej-clavier" a écrit dans le message de news:415542ee$0$723$
Bonjour, Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer
avec une structure For Each Next dans le cas suivant: Chaine est la première lettre d'un fichier dans le répertoire courant Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) For Each Chain In Workbooks MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If vbYes Then Workbooks.Open filename:=fs Else Exit Sub End If Next Chain D'avance merci
Jean-michel
imej-clavier
Merci beaucoup pour ces indications très précises JM "LeSteph" a écrit dans le message news:
...et re oupss au cas où tu sois en option explicit au début rajoute aux autres dim: Dim test
"LeSteph" a écrit dans le message de news:
'Et voili! '******** Sub ouvlettFic() Dim chain As String Dim fs As String chain = InputBox("Entrez lettre début") & "*.xls" fs = Dir(chain) Do While Len(fs) > 0 test = MsgBox("Désirez-vous ouvrir" & fs, 4) If test = 6 Then Workbooks.Open Filename:=fs fs = Dir Loop
End Sub '***** 'lSteph ;-) "imej-clavier" a écrit dans le message de news:415542ee$0$723$
Bonjour, Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer
avec une structure For Each Next dans le cas suivant: Chaine est la première lettre d'un fichier dans le répertoire courant Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) For Each Chain In Workbooks MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If vbYes Then Workbooks.Open filename:=fs Else Exit Sub End If Next Chain D'avance merci
Jean-michel
Merci beaucoup pour ces indications très précises
JM
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message news:
eBMjLzuoEHA.1608@TK2MSFTNGP15.phx.gbl...
...et re oupss
au cas où tu sois en option explicit
au début rajoute aux autres dim:
Dim test
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:OjXLgvuoEHA.1668@TK2MSFTNGP14.phx.gbl...
'Et voili!
'********
Sub ouvlettFic()
Dim chain As String
Dim fs As String
chain = InputBox("Entrez lettre début") & "*.xls"
fs = Dir(chain)
Do While Len(fs) > 0
test = MsgBox("Désirez-vous ouvrir" & fs, 4)
If test = 6 Then Workbooks.Open Filename:=fs
fs = Dir
Loop
End Sub
'*****
'lSteph ;-)
"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message de
news:415542ee$0$723$8fcfb975@news.wanadoo.fr...
Bonjour,
Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour
itérer
avec une structure For Each Next
dans le cas suivant:
Chaine est la première lettre d'un fichier dans le répertoire courant
Chain=InputBox(«Entrez lettre début») & «*.xls»
Fs=Dir(Chain)
For Each Chain In Workbooks
MsgBox «Désirez-vous ouvrir» & fs, vbYesNo
If vbYes Then
Workbooks.Open filename:=fs
Else
Exit Sub
End If
Next Chain
D'avance merci
Merci beaucoup pour ces indications très précises JM "LeSteph" a écrit dans le message news:
...et re oupss au cas où tu sois en option explicit au début rajoute aux autres dim: Dim test
"LeSteph" a écrit dans le message de news:
'Et voili! '******** Sub ouvlettFic() Dim chain As String Dim fs As String chain = InputBox("Entrez lettre début") & "*.xls" fs = Dir(chain) Do While Len(fs) > 0 test = MsgBox("Désirez-vous ouvrir" & fs, 4) If test = 6 Then Workbooks.Open Filename:=fs fs = Dir Loop
End Sub '***** 'lSteph ;-) "imej-clavier" a écrit dans le message de news:415542ee$0$723$
Bonjour, Quelqu'un peut-il me dire comment et pourquoi (et quoi faire) pour itérer
avec une structure For Each Next dans le cas suivant: Chaine est la première lettre d'un fichier dans le répertoire courant Chain=InputBox(«Entrez lettre début») & «*.xls» Fs=Dir(Chain) For Each Chain In Workbooks MsgBox «Désirez-vous ouvrir» & fs, vbYesNo If vbYes Then Workbooks.Open filename:=fs Else Exit Sub End If Next Chain D'avance merci
