Bonjour,
j'ai la formule suivante (sur Excel) :
='03-10'!J7+'04-10'!J7+'05-10'!J7+.........+'28-10'!J7+'31-10'!J7
que je veux reproduire en VBA tout en sachant que les Feuilles du classeur représentent les jours ouvrables du mois qui changent d'un mois a l'autre.
je veux concaténer cette formule pas à pas dans une boucle (i allant du début du mois jusqu'à la fin)
j'ai essayé avec deux variables, une pour recevoir le résultat de la concaténation et une pour recevoir le bout de formule suivant. je sais que c'est un peu tiré par les cheveux car je suis totalement novice en VBA mais je voudrais comme même faire quelque chose pour alléger mes tâches mensuelles au travail.
(je n'arrive même pas a charger la variable sans lui montrer tout le chemin)
voici la boucle :
If Weekday(Premier, vbMonday) = 6 Then
i = Premier + 2
ElseIf Weekday(Premier, vbMonday) = 7 Then
i = Premier + 1
Else
i = Premier
End If
For i = i To m
If Weekday(i, vbMonday) = 6 Then
i = i + 2
ElseIf Weekday(i, vbMonday) = 7 Then
i = i + 1
End If
var1 = "='Z:\STATISTIQUES MANUELLES\" & CetteAnnee & "\[HDT " & MAJ & ".xlsx]" & Format(i, "dd-mm") & "'!C" & k
i = i + 1
If Weekday(i, vbMonday) = 6 Then
i = i + 2
ElseIf Weekday(i, vbMonday) = 7 Then
i = i + 1
End If
var2 = "=CONCATENATE(var2, var1)"
i = i + 1
Next
Merci
j'ai la formule suivante (sur Excel) :
='03-10'!J7+'04-10'!J7+'05-10'!J7+.........+'28-10'!J7+'31-10'!J7
que je veux reproduire en VBA tout en sachant que les Feuilles du classeur représentent les jours ouvrables du mois qui changent d'un mois a l'autre.
je veux concaténer cette formule pas à pas dans une boucle (i allant du début du mois jusqu'à la fin)
j'ai essayé avec deux variables, une pour recevoir le résultat de la concaténation et une pour recevoir le bout de formule suivant. je sais que c'est un peu tiré par les cheveux car je suis totalement novice en VBA mais je voudrais comme même faire quelque chose pour alléger mes tâches mensuelles au travail.
(je n'arrive même pas a charger la variable sans lui montrer tout le chemin)
voici la boucle :
If Weekday(Premier, vbMonday) = 6 Then
i = Premier + 2
ElseIf Weekday(Premier, vbMonday) = 7 Then
i = Premier + 1
Else
i = Premier
End If
For i = i To m
If Weekday(i, vbMonday) = 6 Then
i = i + 2
ElseIf Weekday(i, vbMonday) = 7 Then
i = i + 1
End If
var1 = "='Z:\STATISTIQUES MANUELLES\" & CetteAnnee & "\[HDT " & MAJ & ".xlsx]" & Format(i, "dd-mm") & "'!C" & k
i = i + 1
If Weekday(i, vbMonday) = 6 Then
i = i + 2
ElseIf Weekday(i, vbMonday) = 7 Then
i = i + 1
End If
var2 = "=CONCATENATE(var2, var1)"
i = i + 1
Next
Merci