Import de données avec bouton commande

Résolu/Fermé
Martin - 12 mars 2012 à 21:53
 Martin - 13 mars 2012 à 16:00
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

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
0
Par exemple :

http://cjoint.com/?BCno15tlP5y

Merci encore :)
0
Est-ce possible ?
0