Quelle macro pour enregistrement dans une BD excel?

  • Initiateur de la discussion Initiateur de la discussion karim
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

K

karim

Guest
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.
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Réponses
5
Affichages
165
Retour