Quelle macro pour enregistrement dans une BD excel?

[karim]

Bonjour,
Je vous saurai gré de bien vouloir me montrer, dans la
mesure du possible, comment créer une procédure (macro) qui
puisse enregistrer automatiquement les entrées de données
saisies à l'aide d'un formulaire vers une base de données.
J'ai créé la base de donnée avec l'aide de "l'assistant
Modèle" de Microsoft et pour chaque saisie, je dois
enregistrer manuellement les données en cliquant sur le
menu "fichier", "enregistrer" suite à quoi apparait une
boite de dialogue pour cocher une des trois option et de
valider par ok.
C'est cette action manuelle que je souhaiterais automatiser
mais malheureusement je n'arrive pas à bien écrire la
procédure, à chaque fois j'ai un message "erreur type".
Microsoft fourni un modèle de facture avec, entre autres,
une macro commande nommée "DatabaseLink" qui enregistre les
entrées sur la base de donnée mais qui est cachée et est
protégée par un mot de passe. C'est pourquoi je n'ai pas pu
m'en inspirer.
Je vous remercie par avance
que l'aide que vous voudriez bien m'apporter.
Cordialement.
Karim.

 

[Thierry]

Salut Karim,

Juste un question...

De quel style Base de Données il s'agit ? Access ? Excel ? autres?

Je ne connais pas la "Databeselink" il s'agit d'un XLT ? (Excel Templates?)
our d'une XLA (Macro Complémentaire?)

Il faudrait un peu plus d'info...

Bonne nuit
@+Thierry

 

[karim]

Bonjour Thierry

Les 2 fichiers "formulaire" et "base de donnée" sont des fichiers Excel.

Mais entre temps j'ai pu régler le problème grâce au concours d'un sympathique spécialiste à qui j'avais posé la question par email.

Cette solution consiste simplement à ce qui suit :

Sheets("Table1").Range("A1").Select
Selection.CurrentRegion.Select
nl = Selection.Rows.Count
Selection.Offset(nl, 0).Resize(1, 1).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
ActiveCell.Offset(0, 7).Resize(1, 1).Select
Windows("Formulaire.xls").Activate
Sheets("Saisie").Range("H18").Select


Bonne journée et encore merci

 

[Thierry]

Salut Karim

De rien !! Heureux que tu aies trouvé ta solution et que tu en fasses partager les gens...

@+Thierry