Modification d'un compteur

Bonjour,

J'ai dans l'idée de modifier un compteur, au lieu de lui donner une valeur d'incrémentation fixe. Je voudrai lui mettre une variable.

Cette variable serait issu d'un résultat de ma macro dattediff.

Compteur:

Sub Lancer_X_Fois()

Dim wbk_actuel As Workbook
Dim wbk_distant As Workbook
Dim y As Integer

Set wbk_actuel = ActiveWorkbook
Set wbk_distant = Application.Workbooks.Open("C:\Users\thomas\Desktop\test supervision\supervision light test.xlsx")

Dim Compteur As Long
For Compteur = 1 To 2
'pour l'instant 2 fois...
Test
Next Compteur
End Sub

Différence de date:

Sub différencedate()
date1 = [A1]
date2 = [L2]
'différence de date

answer = DateDiff("d", date1, date2)

End Sub

Le truc c'est que je sais pas comment faire, soit appeler la macro différence de date ou carrément intégrer datediff dans mon compteur comme valeur X. Comment faire?

Petite précision, je suis un débutant.

Merki,

bonjour,

Une possibilité :

Sub Lancer_X_Fois()
Dim wbk_actuel As Workbook
Dim wbk_distant As Workbook
Dim Compteur As Long
Dim i As Integer
i = DateDiff("d", [A1], [A2])

Set wbk_actuel = ActiveWorkbook
Set wbk_distant = Application.Workbooks.Open("C:\Users\thomas\Desktop\test supervision\supervision light test.xlsx")

For Compteur = 1 To i
Test
Next Compteur
End Sub

A+

Merci, je vais tester ceci d'ici peu.

Cela marche nickel mais pas sur la bonne feuille.

Pour la partie qui appelle ma macro test sur le petit code que tu m'a écrit. Il y a un problème, c'est que ma macro test s’exécute sur la mauvaise feuille!!!WTF?

Je suppose (car très très débutant en VBA) qu'il faut que je rajoute un petit code, soit dans la macro "Lancer X fois" ou "Test" disant que la macro s’exécute seulement sur le classeur "test" et non "supervision". Comment coder ceci?

Ma macro test (ultra simple mais peut-être trop simple)

Sub Test()

Range("M2") = Date

Range("H4:L5").Value = Range("I4:M5").Value
Range("M4:M5").ClearContents
Range("H7:L8").Value = Range("I7:M8").Value
Range("M7:M8").ClearContents

Range("H10:L12").Value = Range("I10:M12").Value
Range("M10:M12").ClearContents
Range("H14:L15").Value = Range("I14:M15").Value
Range("M14:M15").ClearContents

Range("H17:L18").Value = Range("I17:M18").Value
Range("M17:M18").ClearContents
Range("H20:L21").Value = Range("I20:M21").Value
Range("M20:M21").ClearContents

Merci pour l'aide.

Bonjour

dans ce code --> Range("H7:L8").Value = Range("I7:M8").Value

Il faut savoir où se trouve Range("H7:L8") et où se trouve Range("I7:M8"). donc nom Fichier et nom de feuille

Crdlt

J'ai trouvé mon erreur, une ligne de code en trop.

Merci à vous deux.