Import de données avec bouton commande
Résolu
Martin
-
Martin -
Martin -
Bonjour,
J'aimerais importer des données avec un bouton de commande dans une feuille excel.
J'ai un fichier avec des numéros en A, des dates en B et des montants en C. J'aimerais les importer dans une cellule d'un autre fichier. J'aimerais qu'en clickant sur mon bouton il prenne le dernier numéro de libre (rempli en A seulement) du fichier 1 et importe ce numéro dans ma cellule du fichier 2.
J'ai un début de formule VBA, mais je ne sais pas comment le compléter ...
Private Sub CommandButton1_Click()
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
If objFolder Is Nothing Then
MsgBox "Abandon opérateur", vbCritical, "Annulation"
Else
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "\"
fichier = Dir(Chemin & "*.xls")
Application.ScreenUpdating = False
With Wbk.Sheets("Nouveau")
.[A1] = fichier
End With
If fichier <> ThisWorkbook.Name Then
Workbooks.Open Chemin & fichier
J'aimerais importer des données avec un bouton de commande dans une feuille excel.
J'ai un fichier avec des numéros en A, des dates en B et des montants en C. J'aimerais les importer dans une cellule d'un autre fichier. J'aimerais qu'en clickant sur mon bouton il prenne le dernier numéro de libre (rempli en A seulement) du fichier 1 et importe ce numéro dans ma cellule du fichier 2.
J'ai un début de formule VBA, mais je ne sais pas comment le compléter ...
Private Sub CommandButton1_Click()
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
If objFolder Is Nothing Then
MsgBox "Abandon opérateur", vbCritical, "Annulation"
Else
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "\"
fichier = Dir(Chemin & "*.xls")
Application.ScreenUpdating = False
With Wbk.Sheets("Nouveau")
.[A1] = fichier
End With
If fichier <> ThisWorkbook.Name Then
Workbooks.Open Chemin & fichier
A voir également:
- Import de données avec bouton commande
- Fuite données maif - Guide
- Invite de commande - Guide
- Votre appareil ne dispose pas des correctifs de qualité et de sécurité importants - Guide
- Commande terminal mac - Guide
- Supprimer les données de navigation - Guide
3 réponses
Bonjour à tous,
je n'ai toujours pas réussi a résoudre mon problème et je viens de m'apercevoir que je devais non seulement importer les numéros du fichier 2 au fichier 1, mais que je devais aussi sauvegarder les informations de ce numéro dans le fichier 2.
Le fichier 1 est un registre tadis que le fichier 2 est un formulaire d'ouverture d'un bon de commande...
Merci à tous ceux qui partagent leurs connaissances et leurs temps :)
Martin
je n'ai toujours pas réussi a résoudre mon problème et je viens de m'apercevoir que je devais non seulement importer les numéros du fichier 2 au fichier 1, mais que je devais aussi sauvegarder les informations de ce numéro dans le fichier 2.
Le fichier 1 est un registre tadis que le fichier 2 est un formulaire d'ouverture d'un bon de commande...
Merci à tous ceux qui partagent leurs connaissances et leurs temps :)
Martin