BONJOUR
je suis bloque pour l' archivage a l'ouverture
j’arrive pas a combine deux code celle pour ouvrir juste la page demandé et celle pour l'archivage auto
j’ai travail mon fichier
quelqu'un peut m’aidè
le but étant quand on inscrit et "traité" dans la ligne "Etat de traitement de la demande" sur la page CDM il se met en archiver a la mise a jour.
je joint le fichier
Identifient CDM
mot passe 123
il me donne comme message d'erreur
j’inscris le code suivant
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Workbook_Open()
'Je boucle deux fois car une ne suffit pas pour tout archiver
Call boucle
End Sub
Sub boucle()
Dim i As Integer
Dim j As Integer
i = 2
'On boucle sur toutes les lignes
While Sheets("Demandes d'échantillons").Range("A" + CStr(i)).Value <> ""
'On regarde si le dossier a été traité
If Sheets("Demandes d'échantillons").Range("M" + CStr(i)).Value = "Traitée" Then
'On copie la ligne
Sheets("Demandes d'échantillons").Range("A" + CStr(i), "M" + CStr(i)).Copy
'On boucle dans le dossier d'archivage
For j = 4 To 2000
If Sheets("RDC").Range("A" + CStr(j)).Value = "" Then
Sheets("RDC").Select
Sheets("RDC").Activate
'On colle les données
Sheets("RDC").Range("A" + CStr(j), "M" + CStr(j)).Select
ActiveSheet.Paste
Exit For
End If
Next
Sheets("Demandes d'échantillons").Select
Sheets("Demandes d'échantillons").Activate
'On supprime la ligne dans demandes d'échantillons si besoin
Sheets("Demandes d'échantillons").Range("A" + CStr(i), "M" + CStr(i)).EntireRow.Delete
i = i - 1
End If
i = i + 1
Wend
End Sub