petithomme
XLDnaute Occasionnel
Salut tout le monde,
c'est re-moi ^^
voila j'ai un ptit bout de code qui bug . . . j'ai le droit a une msgbox qui me dit : Argument non falcutatif
Je n'arrive pas à trouver d'où provient l'erreur, un ptit coup de pouce svp ?
Ce code permet en cliquant sur un bouton de parcourrir une plage de cellule, de lire les contenus et d'ouvrir les fichiers xls puis les fermer.
Buton() est associée à un bouton cliquable
Dans la cellule de Paramètres!B1 --> Non d'une feuille
Dans la cellule de Paramètres!D1 --> Non d'une plage
Merci encore ^^
c'est re-moi ^^
voila j'ai un ptit bout de code qui bug . . . j'ai le droit a une msgbox qui me dit : Argument non falcutatif
Je n'arrive pas à trouver d'où provient l'erreur, un ptit coup de pouce svp ?
Ce code permet en cliquant sur un bouton de parcourrir une plage de cellule, de lire les contenus et d'ouvrir les fichiers xls puis les fermer.
Buton() est associée à un bouton cliquable
Dans la cellule de Paramètres!B1 --> Non d'une feuille
Dans la cellule de Paramètres!D1 --> Non d'une plage
Sub bouton()
Dim ws As Worksheets
Dim cel As Range
Set ws = Workbooks(Worksheets("Paramètres").Range("B1").Value)
Set cel = Range(Worksheets("Paramètres").Range("D1").Value)
ouvrirfermer ws, cel
End Sub
Public Sub ouvrirfermer(ws As Worksheets, cel As Range)
Dim cel2 As Range
Dim i As Integer
Dim nb As Integer
i = 1
Set cel2 = ws.cel(i)
nb = Workbooks.Count
While cel2.Value <> "FIN"
Workbooks.Open cel2.Value
Workbooks(nb + 1).Close
i = i + 1
Set cel2 = ws.cel(i)
Wend
End Sub
Merci encore ^^
Dernière édition: