Import de données avec bouton commande Résolu

Question

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

Martin · Answer

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

Martin · Answer

Par exemple :

http://cjoint.com/?BCno15tlP5y

Merci encore :)

Martin · Answer

Est-ce possible ?

Import de données avec bouton commande

3 réponses

Discussions similaires

Newsletters