Creer Bouton : Importer donnée dans une feuille excel

Fermé
clemclemlapatate - 21 mai 2014 à 09:35
 clemclemlapatate - 21 mai 2014 à 16:15
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
A voir également:

1 réponse

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152
21 mai 2014 à 12:01
Bonjour,


Dim a, b As Variant, Nom, Nom2 As String
Nom = ActiveWorkbook.Name 'fichier excel déja ouvert

ChDrive "C:" ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire

a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)

Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b) 'ouverture du fichier choisi
Next
End Select
Nom2 = 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é...


0
clemclemlapatate
21 mai 2014 à 14:46
Merci pour cette réponse,

Non ton explication est clair malheureusement, je ne suis pas sure que se soit ce que je voulais faire que je voulais faire :
Je vais essayé d'etre plus clair quand a mon but:

J''ai un classeur 1 ouvert :
Je souhaite faire l'équivalent en un click de:
Données->Données externe->Importer des données
Là une boite de dialogue s'ouvre et demande quel fichier importer.
0
eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152
21 mai 2014 à 15:51
tu ne peux pas importer des données excel dans excel ? (du moins je ne vois pas le bouton, j'ai importer "depuis access")
0
clemclemlapatate
21 mai 2014 à 16:15
je suis sur 2003 et sa fonctionne bien mais je n'arrive pas a simplifier cette manip.

Merci de ton aide quand meme :)
0