Bonjour à tous,
Je cherche une solution pour stocker différent classeurs dans array.
Le but de mon fichier est simple, je dois vérifier la présence de fichier, les ouvrir et si possible les attriuber à une variable au passage.
Sub File_verificator()
Dim source, folderpath As String
Dim wbmacro, wbclient, wbarticle, wbfournisseur, wbfacture, wbdevis, wbpaiement, wbdepense As Workbook
Dim fichier, wb As Variant
Dim i As Integer
Set wbmacro = ThisWorkbook
folderpath = Application.ActiveWorkbook.Path
fichier = Array("Achat", "Article", "Client", "Devis", "Facture", "Fournisseur", "Recette")
wb = Array(wbdepense, wbarticle, wbclient, wbdevis, wbfacture, wbfournisseur, wbpaiement)
For i = 0 To 6
MsgBox (i & fichier(i))
source = Dir(folderpath & "\" & "*" & fichier(i) & ".*")
If source <> "" Then
MsgBox ("in the if " & i & source)
Workbooks.Open (folderpath & "\" & source), Local:=True
Set wb(i) = Workbooks(source)
End If
Next
If wbclient Is Nothing Then
Else
MsgBox ("wbpaiement")
End If
End Sub
Donc j'ai juste fait un petit contrôle à la fin pour avoir une box à la fin pour contrôler que ma ligne "Set wb(i) = Workbooks(source)" a bien fait le job.
Et c'est là ou je m'aperçois que ça ne marche pas. La première valeur de mon array wbdepense est toujours égale = nothing. Que le fichier soit présent ou non. Puis pour toutes les autres variables de mon array sont égales à vide.
Une idée?
Merci d'avance