Bonjours a tous,
Je dois réaliser un programme en vba sous excel, et comme je débute, j'ai beaucoup de mal !
J ai mis en pj deux fichiers; cartonette en xlsm et test1 en mdb (la version du vrai fichier est plus vieille).
Je dois réaliser un programme de tel sorte que
- j ouvre le template cartonette sur un poste dans un domaine
- je renseigne les cellules de A9 à A17
- quand je rentre un chiffre en A9 (puis A10, A11,..) le programme doit aller ouvrir le fichier test1 sur le réseau
- retrouver le chiffre saisi en A9 dans la premiere colonne de test1
- puis recopier la valeur de la colonne 3 (de test1 sur la ligne trouvée) en F5 de cartonette
- recopier les valeurs dans les colonnes 4 et 5 toujours dans F5 a la suite (séparer par un espace)
- recopier la valeur de la colonne 6 en A2 ....
Voila J 'ai vraiment bcp de mal avec VBA, toutes aides seront les bienvenues !
J 'avais commencé par :
Sans succes ....
Merci a tous par avance !
Je dois réaliser un programme en vba sous excel, et comme je débute, j'ai beaucoup de mal !
J ai mis en pj deux fichiers; cartonette en xlsm et test1 en mdb (la version du vrai fichier est plus vieille).
Je dois réaliser un programme de tel sorte que
- j ouvre le template cartonette sur un poste dans un domaine
- je renseigne les cellules de A9 à A17
- quand je rentre un chiffre en A9 (puis A10, A11,..) le programme doit aller ouvrir le fichier test1 sur le réseau
- retrouver le chiffre saisi en A9 dans la premiere colonne de test1
- puis recopier la valeur de la colonne 3 (de test1 sur la ligne trouvée) en F5 de cartonette
- recopier les valeurs dans les colonnes 4 et 5 toujours dans F5 a la suite (séparer par un espace)
- recopier la valeur de la colonne 6 en A2 ....
Voila J 'ai vraiment bcp de mal avec VBA, toutes aides seront les bienvenues !
J 'avais commencé par :
Code:
Dim cmd As Integer
Dim numéro As Integer
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
Dim name As String
Sub Ouvrir_mbd()
numéro = Workbooks("Cartonette").Sheets("Feuil1").Cells(9, 1).Value
Ouvrir_mbd Macro
Workbooks.OpenDatabase Filename:="C:\Users\Portable\Desktop\EW_3003.MDB", _
CommandText:=Array("EW_3003"), CommandType:=xlCmdTable, ImportDataAs:= _
xlTable
Set celluletrouvee = Range("A:A").Find(numéro, lookat:=xlWhole)'
If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If
name = Range(ligne, 3).Value
Workbooks("Cartonette").Sheets("Feuil1").Range(5, 6).Activate
Workbooks("Cartonette").Sheets("Feuil1").Range(5, 6) = name
End Sub
Sans succes ....
Merci a tous par avance !
Pièces jointes
Dernière édition: