Bonjour à tous, ayant fais quelques recherche sur le net, mais ayant peu de connaissance en VBA, je me permet de soliciter votre aide pour une petite problématique.
 
Je vous explique
 
En partant des hypothèses suivantes :
 
2 classeurs nommé « caisse » et « saisie »
 
Le classeur nommé « caisse » possède :
- 12 onglets portant la mention des mois (janvier, février, mars, etc…)
- La colonne « A » correspond aux dates (A1 à A31)
- La colonne « B » correspond à des montants.
 
Le classeur nommé « saisie » possède dans un onglet:
- une cellule « date »  disons « D1 »
- une cellule « montant »  disons « M1 »
- un bouton nommé disons « commandButton1»
 
 
Ce que je voudrais faire :
 
Du classeur  « saisie » et ce depuis le bouton, lancer une macro qui me permettrai de:
 
- copier la valeur de la cellule « M1 » (le montant)
- ouvrir le classeur « caisse »
- rechercher la ligne dans l’onglet respectif à la date faisant référence à la cellule « D1 »)(la date)
- coller la valeur de la cellule « M1 » dans  le cellule de la colonnes B
- enregistrer et fermer  le classeur « caisse »
 
Je connais un peu Excel avec les fonctions comme rechercheV, mais là je crois que n’ai pas le choix, je suis obligé de passer par de la macro.
 
 
 
Sub Macro1()
'
' Macro1 Macro
    Workbooks.Open Filename:= _
        "C: \caisse.xlsx"
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub
 
 
il manque quelques lignes là  
 
 
En remerciant d’avance les âmes charitables qui se donneront la peine de me répondre, cordialement.

Moi je veux bien te filer un coup de main, mais avec un message au compteur si c'est pour faire tout le boulot et ne jamais avoir de réponse...
 
Pour transformer une date en mois (donc savoir sur quel onglet aller) utilises Format()
Pour transformer une date en jour (donc savoir sur quelle ligne aller) utilises Day()
Pour coller M1 de Saisie.xls vers la cellule trouvee avec l'aide plus haut :
Workbooks("Caisse.xls" ).Sheets(LeNomDeLongletTrouvé).cells(LaLigneTrouvee,2) = Workbooks("Saisie.xls" ).ActiveSheets.cells(1,13)