Base de données à partir de plusieurs feuilles

Bonsoir,

Je cherche un moyen pour alimenter une base de données à partir de plusieurs feuilles au format identique. Faut-il que ces feuilles soit regroupées dans un même répertoire si l'on songe à une macro légère contenu dans une feuille matrice. Merci d'avance pour vos bonnes idées.

++++++

Bonsoir,

Joins-nous un fichier exemple de ce que tu veux faire

avec explications

Amicalement

Claude

Désolé pour l'envoi tardif, ça doit être l'effet dimanche. Ci-joint un zip de 2 feuilles. Merci

cdlt

Bonsoir,

Si j'ai bien compris,

la feuille "saisie" n'est qu'un formulaire de saisie,

il n'y a rien d'autre dedans, que ces 4 lignes ?

si oui, pourquoi parler de plusieurs feuilles

précise ce point

Amicalement

Claude

Claude,

Merci pour ta constance, non il n'y a pas que ces 4 lignes, je n'ai pas conservé les autres lignes pour ne pas perturber la compréhension. Les données en zone orangée sont celles qui doivent être reprises. Il y a plusieurs feuilles de saisie qui correspondent chacune à un projet distinct. Il peut y avoir un projet jour. La problématique est que la saisie est redondante et les sources de données disparates. Je voudrais les conserver par semestre dans un fichier de base de données, et utiliser le fichier pour des enregistrements et de la gestion. Voila, j'espère avoir été clair.

Bien à toi

Bonsoir,

à tester

Sub NouvSaisie() '--- bouton dans feuilles "saisie" ---
'macro valable pour toute les feuilles (fichier "base.xls" ouvert)
Dim Lg%, Wbk$
    Wbk = "base.xls"
    With Workbooks(Wbk).Sheets("base")
        Lg = .Range("a65536").End(xlUp)(2).Row
        .Cells(Lg, "a") = Range("c1") 'société
        .Cells(Lg, "b") = Range("c2") 'Opération ou liaison ?
        .Cells(Lg, "c") = Range("c3") 'quantité
        .Cells(Lg, "d") = Range("c4") 'libellé 1
        .Cells(Lg, "e") = Range("h1") 'compte
        .Cells(Lg, "f") = Range("f1") 'famille
        .Cells(Lg, "g") = Range("e4") 'Sec.ana
        .Cells(Lg, "h") = Range("h4") 'date acq
        .Cells(Lg, "i") = Range("j4") 'montant
        .Activate
    End With
End Sub

Amicalement

Claude

Bonjour Claude,

J'ignore pourquoi mon Excel 2010 m'indique que le fichier est corrompu, sans doute un conflit de version ? J'ai repris le code et ai créé un bouton, ça marche super ! Je n'ai pas encore examiné le code mais je tiens à te remercier vivement. Merci encore

Bien à toi

Bonjour,

Prends le bon réflexe,

sachant que tu peux activer ou désactiver le "résolu"