Creer Bouton : Importer donnée dans une feuille excel
clemclemlapatate
-
clemclemlapatate -
clemclemlapatate -
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
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:
- Creer Bouton : Importer donnée dans une feuille excel
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte gmail - Guide
- Créer un compte instagram sur google - Guide
1 réponse
Bonjour,
Une fois ce code effectué tu peux te déplacer sur les 2 fichier excel en faisant :
J'espère que c'est pas trop compliqué...
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é...
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.
Merci de ton aide quand meme :)