Recherche V dans plusieurs BDD Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
F
Filou78
Membre habitué
Membre habitué
Messages : 125
Inscrit le : 25 juin 2014
Version d'Excel : 2003

Message par Filou78 » 2 décembre 2014, 08:46

Bonjour,
J'ai créé une macro permettant d'extraire tous les jours des informations qui vont s'incrémenter sur un onglet différent pour chaque jour. Donc dans mon fichier excel se trouve l'onglet Semaine 49 et un onglet pour chaque jour de la semaine. Chaque onglet de chaque jour de la semaine est remplie avec les données du jour. Jusque là tout va bien....
Ensuite dans l'onglet Semaine 49 des colonnes représent chaque jour de la semaine et dans ces colonnes une recherchev doit s'appliquer mais la recherche doit s'effectuer sur la "BDD" correspondante à chaque jour. Mais ça plante car il ne reconnait pas le nom de ma "BDD journalière", ci-dessous les lignes de codes.
'Détermination de la plage de données
BDD = "Basededonnées" & JOUR_DEBUT ' JOUR_DEBUT étant le jour ou j'ai extrait les données
Range("A1").CurrentRegion.Select
ActiveWorkbook.Names.Add Name:=BDD, RefersToR1C1:=Selection
Donc avec ces lignes de codes chaque onglet à sa BDD se nommant Basededonnées28.11.2014 pour le 28.11.2014 Basededonnées29.11.2014 ect etc
Et ci-dessuous les lignes de codes de la recherchev :
Nbr_Ligne = 9
While Cells(Nbr_Ligne, 3) <> "Fin"
'
If Cells(Nbr_Ligne, 1) = "R" Then
'
Cells(Nbr_Ligne, Num_Col).Select
ActiveCell.FormulaR1C1 = "=IF(VLOOKUP(RC3,BDD,5,FALSE)=""Terminé"",""Ok"",""Ko"")"
Cells(Nbr_Ligne, Num_Col + 1).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC3,BDD,5,FALSE)"
Nbr_Ligne = Nbr_Ligne + 1
Else
'
Nbr_Ligne = Nbr_Ligne + 1
End If
Et donc il ne reconnait pas le nom de BDD qui pourtant est bien défini.

Une idée ?

Merci d'avance

Edit Amadéus: Il existe une balise Code
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message