Mois - 1

[VEVE]

Bonjour le Forum

J'extraie des données d'un dossier pour les transférer dans différents endroits d'un autre.
Mon problème se situe au niveau des mois.
Je dois lui dire de me ramener que les données du mois en cours – 1 (Donc mois de Main – 1 le mois d'Avril)

J'ai essayé plusieurs codes en vain

Voici en morceau de mon code le fichier étant trop lourd pour le zipper.


intIndiceLigne1 = 1
intIndiceLigne2 = 2

' Faire tant que le classeur n'est pas vide
Do While (Workbooks("source.xls").Sheets("Feuil1").Cells(intIndiceLigne1, 1) <> Empty)
' Vérification du service
If (Trim(Workbooks("source.xls").Sheets("Feuil1").Cells(intIndiceLigne1, 1)) = Trim(Workbooks("Formation.xls").Sheets("Donnees").Cells(intIndiceLigne2, 1))) Then
intIndiceLigneTemp = intIndiceLigne2
' Vérification de la lettre

<< là je coince il faudrait faire un traitement du mois en cours - 1 >>

While j = Month(Now)
j = j - 1
If j = 0 Then
j = 12
End If
Wend


Do While (Trim(Workbooks("source.xls").Sheets("Feuil1").Cells(intIndiceLigne1, 2)) <> Trim(Workbooks("Formation.xls").Sheets("Donnees").Cells(intIndiceLigneTemp, 2)))
intIndiceLigneTemp = intIndiceLigneTemp + 1
Loop



Merci pour vos conseils et votre aide

Salutation

 

[Pascal liberty]

bonjour

A la place de While j = Month(Now)
entre
While j = Month(Now)-1

pascal liberty

 

[VEVE]

Merci Pascal liberty

Mais cela ne fonctionne toujours pas quand je fais le traitement il me ramène les données de juin et juillet ?

Si un d'entre vous à une autre suggestion je suis preneur

Salutations

VEVE

 

[Pascal liberty]

Bonjour
Pour moi le code que tu as ici est trop vague. il manque des lignes afin de comprendre ta démarche.
Avec un fichier exemple ceci serai plus facile.
Amicalement
Pascal Liberty