Copie de données avec VBA

Bonjour tout le monde et un petit bonjour particulier à Claude!

Mon fichier marche parfaitement bien!!

Tous les tests que j'effectue sont ok.

J'ai juste un petit souci claude :

J'ai vu que dans l'onglet "rapport quotidien", tu avais mis une formule AUJOURDHUI() pour que la date change automatiquement. Je trouvais ça très bien mais apparament, il faut revenir à la saisie manuelle de la date... Ce fichier n'est pas rempli au jour le jour (les vilains!!!)...

J'ai supprimé la formule mais en testant la date du 12/08/08, je me rend compte que la date qui s'incrit dans les onglets prestataires est toujours celle du 11/08/08.

Je pense que tu as du programmé ça dans ta magnifique macro.

Je ne préfère pas toucher!!!

Peux tu me dire quelles modif' dois-je faire??? (je t'aurais bien renvoyé le fichier mais avec tout ce que je rajoute depuis ce matin, il est trop lourd!)

Merci beaucoup d'avance!!!!

PS: j'insiste, ta macro est d'une incroyable clarté, c'est le top!!!

Bonjour Marion et à tous,

tu remplace cette ligne (au milieu de la macro)

.[A65536].End(xlUp)(2) = Date

par :

.[A65536].End(xlUp)(2) = [Rapport quotidien!!b3]

si ta date est en B3

amicalement

Claude.

Re,

Je viens de remplacer les données dans la macro comme tu m'as dis.(la date est bien en B3)

J'ai fait un test mais j'ai un message d'erreur au niveau des onglets prestataires :

#VALEUR! dans la cellule du "jour"...

re,

pour éviter les erreurs, voici la macro complète.

Sub Enregistre()
Dim Retour As Integer
    Sheets("Rapport quotidien").Activate
    Dt = [b3]
    Retour = MsgBox("Avez-vous imprimer le rapport ?" & Chr(10) & "celui-ci va être effacé !" & Chr(10) & _
            "Continuez ?", vbYesNo + vbCritical + vbDefaultButton2, "Impression ")
    If Retour = vbYes Then
                [a10].Select

            Do While ActiveCell <> ""
                Sch = ActiveCell 'nom feuille
                    Application.ScreenUpdating = False
                        ActiveSheet.Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 14)).Copy
                    With Sheets(Sch)
                        .Range("c65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
                        .[A65536].End(xlUp)(2) = Dt
                            If Sch = "Autres" Then
                                Application.ScreenUpdating = True
                                .[b65536].End(xlUp)(2) = InputBox("Tapez le nom du prestataire")
                            End If
                    End With
                Application.CutCopyMode = False
                ActiveCell.Offset(1, 0).Select
            Loop

                [a10:o50].ClearContents
                [a1].Activate
        Else: Exit Sub
    End If
End Sub

amicalement

Claude.

Ca y est, ça marche!!!

Merci vraiment beaucoup!!!

Je pense que mon problème est totalement résolu!

Grâce à toi Claude!

A très bientôt pour une future question...!

re,

N'oublie pas de mettre le petit "résolu" en bas à gauche !

(il faut être connecté)

à+....Claude.