ARCHIVAGE ET HISTORIQUE

[Sweety]

Bonjour à tous !
Voila, j'aimerais solliciter votre aide concernant l'archivage.
En effet, ce que je voudrais, c'est que ma feuille qui s'appelle "BON DE MANDATE" s'archive dans un fichier appelé HISTORIQUE grâce à un bouton de commande (vb ou excel).
Le plus important serait d'incrémenter le nom du fichier afin que cela fasse une sorte d'historique justement.
Enfin, si cela était possible, j'aimerais qu'à partir du moment où le BON DE MANDATE soit enregistrer, il reste actif dans mon classeur (je ne pense pas qu'il faille faire une grande manipulation .

Un GRAND MERCI à la personne qui réussira à m'aider.

 

[Amélie]

Hello mon petit (ou ma petite) va savoir

C'est assez court, mais ça suffit :

Sub Historique()
Dim LastLigne As Integer

LastLigne = Sheets("Historique.").Range("A65536").End(xlUp).Row + 1

With Sheets("Historique.")
.Range("c" & LastLigne) = Sheets("Bon de Mandate").Range("c25")
.Range("B" & LastLigne) = Sheets("Bon de Mandate").Range("E10")
.Range("d" & LastLigne) = Sheets("Bon de Mandate").Range("b62")
.Range("f" & LastLigne) = Sheets("Bon de Mandate").Range("e7")
.Range("h" & LastLigne) = Sheets("Bon de Mandate").Range("d17")
.Range("g" & LastLigne) = Sheets("Bon de Mandate").Range("b35")
.Range("i" & LastLigne) = Sheets("Bon de Mandate").Range("c37")
.Range("a" & LastLigne) = Sheets("Bon de Mandate").Range("E5")
.Range("e" & LastLigne) = Sheets("Commande").Range("E9")
.Range("Z" & LastLigne) = Application.UserName
End With
End Sub


C'est une réponse que j'ai moi-même eue et qui fonctionne pourvu qu'on l'adapte à son fichier. Pense à nommer tes deux onglets, et surtout historique étant un nom réservé à excel, rajoute un point.
Les cellules en bout de ligne par exemple, remplace les par A1, B1 etc et après fais le test.

 

[JulienMorgendorfer]

Ma chère Amélie,
Je te remercie pour la vitesse à laquelle tu m'as répondu.
Néanmoins, et ce n'est en rien un reproche, loin de là, je voudrais que l'historique soit un dossier de Mes Documents par exemple.
Je m'excuse de ne pas avoir été assez clair.
En attente de ta réponse,
Julien le mec