Insérer dans un fichier excel des données de n'importe quelle table/requête access

Description

Slt,

Voici deux fichier excel: un modèle et un xls à enregistrer en macro complémentaire.
Modifier les coordonnées de la macro complémentaire dans le fichier modèle.

(un bouton s'ajoute à la barre d'outils standard au démarrage)

Et vous obtiendrez un fichier à partir duquel il vous est possible d'accéder à n'importe quel fichier access,
de choisir la table ou la requête voulue, et cerise sur le gateau, les champs que vous désirez ...
Une fois votre sélection faite, les données sont importées dans la feuille active !

Amusez-vous bien...

Source / Exemple :


'A modifier:

Private Sub Workbook_Open()
Set tools = Application.CommandBars("Standard")
    With tools.Controls.Add(, , , , True)
        .BeginGroup = True 'si l'on veut une séparation avant le bouton de commande
        .Caption = "Lien Access"
        ' Vous devez changer l'emplacement du fichier .... (Ne pas oublier !)
        .OnAction = "N:\Modeles\Macros Complémentaires\Excel_&_Access.xla!Ouvre_fichier_MDB"
        .FaceId = 173
        .DescriptionText = "Importer des données d'une table/requête Access..."
    End With
End Sub

Conclusion :


Il peut sans doute rester qq bugs !
Je n'ai pas encore fini des tous vérifier, merci de votre indulgence...

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.