Creer Bouton : Importer donnée dans une feuille excel Fermé

Question

Bonjour a tous!

Je construit actuellement un fichier excel qui va devenir un outil de travail je cherche donc a simplifier son interface au maximum voila la problématique:

Mon utilisateur doit importer une feuille excel existante (qui n'est jamais la meme) dans le fichier "outil", j'aimerai que cette opération ce fasse par le biais d'un bouton qui ouvrirait directement la boite de dialogue d'importation de données.

(j'ai essayé l'enregistreur de maccro mais il n'enregistre pas l'action si elle n'est pas terminer)

En esperant avoir été clair 
Merci d'avance pour vos reponses
clemclemlapatate

eljojo_e · Answer

Bonjour,

Dim a, b As Variant, Nom, Nom2 As StringNom = ActiveWorkbook.Name 'fichier excel déja ouvertChDrive "C:"    ' Choix du lecteurChDir "C:\"    'Choix du répertoirea = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _, "Sélection de vos fichiers excel", , True)Select Case TypeName(a)Case Is = "Boolean"Exit SubCase ElseFor b = LBound(a) To UBound(a)Workbooks.Open a(b)   'ouverture du fichier choisiNextEnd SelectNom2 = ActiveWorkbook.Name 'fichier excel que tu viens d'ouvrir 
 
Une fois ce code effectué tu peux te déplacer sur les 2 fichier excel en faisant : Windows(Nom).activate ou Windows(Nom2).activate

J'espère que c'est pas trop compliqué...

Creer Bouton : Importer donnée dans une feuille excel

1 réponse

Discussions similaires