Importer des données bouton de commande
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")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 reliées à ce numéro dans le fichier 2, une fois que le numéro est importé.
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
Bonjour Martin123
Dis comme ça, pour moi c'est plutôt flou
Ne pourrais-tu pas nous joindre un exemple de tes 2 fichiers avec ce que tu as et ce que tu souhaiterais
A+
Bonjour,
Voici mon fichier, il faut seulement considérer que la feuille ''Nouveau'' est un fichier séparé de ''registre''. Ils seront cependant enregistré dans le meme dossier dans mon ordinateur.
Merci
Re,
Tu trouveras ci-joint un exemple de ce qui peut être fait
Le répertoire doit être identique pour les 2 fichiers
mais est paramétrable dans le code avec la variable "sPathRegistre"
A+
Exactememnt ce que je cherchais !
Merci beaucoup !
Martin123
Comment faire pour paramétrer le dossier d'ouverture ?
Set WbkR = GetObject(sPathRegistre & "\" & sFicRegistre)Re,
Martin123 a écrit :Comment faire pour paramétrer le dossier d'ouverture ?
Set WbkR = GetObject(sPathRegistre & "\" & sFicRegistre)
Il suffit de lire
' Définir les variables
sFicRegistre = "Registre.xls"
sPathRegistre = ThisWorkbook.PathCe n'est pas assez explicite !?
sPathRegistre = "C:\Toto"A+