Macro pour Sauvegarder des infos d'un document renouvelable (RESOLU)

[Bambi35]

Bonjour à tous
Gros problème pour moi mais je pense petit pour vous.
Voici le problème
J'aimerai mettre une macro sur un bouton ou le bouton dédié (Création PDF) me permettant d’enregistrer les 3 (en vert) de mon document sur une autre feuille (Feuille Chrono) .Car le petit pb est que lorsque je change de N° de facture les infos de la Facture précédente disparaissent (Nom / Enfant / Activité)
Merci de votre aide
Ci-joint le fichier plus explicite

 

[Hervé]

Re : Macro pour Sauvegarder des infos d'un document renouvelable

salut

je m'autorise à intervenir car il est 02:09 du matin, je rentre de concert et je vois que personne t'as aidé, c'est pas bien ca

remarque, vu ton explication, ça m’étonnes guère

aide nous à t'aider, tu veux incrémenter la feuille chrono dès que tu appuis sur le bouton "creation PDF", puis créer un pdf qui irais sur le bureau ? c'est ca ?

a plus

 

[Staple1600]

Re : Macro pour Sauvegarder des infos d'un document renouvelable

Bonjour à tous


Voici une possibilité pour ton bouton Archive
PRE-REQUIS: Il faut d'abord supprimer (une fois pour toutes), les formules dans ta feuilles CHRONO.
(Sinon cela fausse la détermination de dLig ->
qui correspond à la dernière cellule non vide de la colonne B de la feuille Chrono)

Sub Archive()
Dim CellArch, vArr(3), i As Byte, dLig&
CellArch = Array("I9", "E24", "E28")
For i = LBound(CellArch) To UBound(CellArch)
vArr(i) = Range(CellArch(i)).Value
Next i
dLig = Sheets("Chrono").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Chrono").Cells(dLig+1, "B").Resize(, 3).Value = vArr
End Sub

PS: Test OK sur ta pièce jointe. Donc cela doit fonctionner sur ton PC.

 

[Bambi35]

Re : Macro pour Sauvegarder des infos d'un document renouvelable

Bonjour

Staple1600
Super la macro fonction sans problème
Je vais la combiner avec celle pour créer un Pdf

Hervé merci d'avoir regarder mon problème

Merci encore
@++++++
B@mbi35

 

[Staple1600]

Re : Macro pour Sauvegarder des infos d'un document renouvelable (RESOLU)

Re, Bonjour Bambi35


Une variante plus simple

Sub ArchiveII()
Dim f As Worksheet, dLig&: Set f = Sheets("Facture")
dLig = Sheets("Chrono").Cells(Rows.Count, "B").End(xlUp).Row
    With Sheets("Chrono").Cells(dLig + 1, "B")
        .Value = f.[I9]: .Offset(, 1) = f.[E24]: .Offset(, 2) = f.[E28]
    End With
End Sub

 

[Bambi35]

Re : Macro pour Sauvegarder des infos d'un document renouvelable (RESOLU)

Re, Bonjour Staple1600
J'ai modifier la macro avec cette nouvelle variante et aucun problème.
Comme je te l'ai dit ce matin j'ai mis les 2 macro sur le même bouton et nickel.
Mais aurais-tu une macro pour vider les 3 cellules (I9 / E24 / E28 ) après avoir archive le document

Merci encore pour ton aide

@++++
Bambi35

Cordialement

 

[Staple1600]

Re : Macro pour Sauvegarder des infos d'un document renouvelable (RESOLU)

Bonsoir à tous

Mais aurais-tu une macro pour vider les 3 cellules (I9 / E24 / E28 ) après avoir archive le document

Bambi35
Je te laisse tester

Sub ArchiveIII()
Dim f As Worksheet, dLig&: Set f = Sheets("Facture")
dLig = Sheets("Chrono").Cells(Rows.Count, "B").End(xlUp).Row
    With Sheets("Chrono").Cells(dLig + 1, "B")
        .Value = f.[I9]: .Offset(, 1) = f.[E24]: .Offset(, 2) = f.[E28]
    End With
f.[I9]=Empty :f.[E24]=Empty : f.[E28]=Empty
End Sub

PS: Pour un moi, un fil n'est jamais résolu.
Enfin il est toujours possible de le résoudre autrement

 

[Bambi35]

Re : Macro pour Sauvegarder des infos d'un document renouvelable (RESOLU)

Re Staple1600

Merci aucun problème avec ce code
Mon fichier est ok comme je le voulais
Merci à toi encore

@++ sur Excel-download