Bonjour à tous et à toutes,
Afin d'extraire et de synthétiser des données hebdomadaires, j'utilise la macro ci-dessous. Des fichiers sources Litté S21, Litté S22, Litté S23 (etc...) alimentent un fichier de synthèse (voir pièce-jointe) grâce aux "VLOOKUP" de la macro. Une fois les colonnes ventes et stocks remplies, des onglets d'analyse se mettent à jours automatiquement.
Cela marche parfaitement sur mon poste mais la macro plante sur les ordinateurs de mes collègues. Les données n’apparaissent pas et microsoft visual basic nous renvoie à la ligne en rouge ci-dessous. Pourtant les autres postes disposent exactement du même répertoire, les chemins des fichiers source sont donc corrects.
Quelqu'un aurait-il une idée d’où l'erreur peut-elle provenir ?
Merci d'avance pour vos réponses,
Dim f$, h&, c As Range, fich$
f = "Ventes et Stocks Magasins"
h = Application.Match("TOTAL", [C:C], 0) - 7 'la hauteur du tableau peut varier
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si des fichiers n'existent pas
For Each c In Range("E6", Cells(6, Columns.Count).End(xlToLeft))
If c = "Vtes" Then
fich = "H:\DC_01\Data Sharing\Semaines étudiées\[Litté S" & Val(Replace(c(0, 0), "Semaine", "")) & ".xlsx]"
c(2).Resize(h) = "=IFERROR(VLOOKUP(RC1,'" & fich & f & "'!R4C1:R20000C22,21,0),0)"
c(2, 2).Resize(h) = "=IFERROR(VLOOKUP(RC1,'" & fich & f & "'!R4C1:R20000C22,22,0),0)"
End If
Next
Pino 12
Afin d'extraire et de synthétiser des données hebdomadaires, j'utilise la macro ci-dessous. Des fichiers sources Litté S21, Litté S22, Litté S23 (etc...) alimentent un fichier de synthèse (voir pièce-jointe) grâce aux "VLOOKUP" de la macro. Une fois les colonnes ventes et stocks remplies, des onglets d'analyse se mettent à jours automatiquement.
Cela marche parfaitement sur mon poste mais la macro plante sur les ordinateurs de mes collègues. Les données n’apparaissent pas et microsoft visual basic nous renvoie à la ligne en rouge ci-dessous. Pourtant les autres postes disposent exactement du même répertoire, les chemins des fichiers source sont donc corrects.
Quelqu'un aurait-il une idée d’où l'erreur peut-elle provenir ?
Merci d'avance pour vos réponses,
Dim f$, h&, c As Range, fich$
f = "Ventes et Stocks Magasins"
h = Application.Match("TOTAL", [C:C], 0) - 7 'la hauteur du tableau peut varier
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si des fichiers n'existent pas
For Each c In Range("E6", Cells(6, Columns.Count).End(xlToLeft))
If c = "Vtes" Then
fich = "H:\DC_01\Data Sharing\Semaines étudiées\[Litté S" & Val(Replace(c(0, 0), "Semaine", "")) & ".xlsx]"
c(2).Resize(h) = "=IFERROR(VLOOKUP(RC1,'" & fich & f & "'!R4C1:R20000C22,21,0),0)"
c(2, 2).Resize(h) = "=IFERROR(VLOOKUP(RC1,'" & fich & f & "'!R4C1:R20000C22,22,0),0)"
End If
Next
Pino 12
