Bonjour à tous,
J'ai deux données d'un fichier "A" que je veux transmettre à un fichier "B" "ouvert" avec GetOpenFilename.
Ma difficulté est que je ne connais pas l'adresse des cellules où je dois copier. En effet, je dois les inscrire dans la première cellule vide de chacune des colonnes concernées.
J'ai tenté d'écrire un bout de code mais je bloque dans l'affectation de la valeur de la cellule à compléter à partir de la connaissance des dernières cellules occupées.
Auriez-vous des conseils à me donner pour écrire le code nécéssaire ?
A tout hasard, je vous soumets le code que j'ai déjà écrit
Je vous en remercie par avance,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Dim Montant As Currency Dim MettreAJourFacturation As Workbook Dim NomduFichier As Long Dim PreCellLibreMontant As String Dim PreCellLibreNomFichier As String NomduFichier = Len(ThisWorkbook.Name) - 5 Montant = Worksheets("Livraison").Range("C34").Value Set MettreAJourFacturation = GetObject("C:\Users\Maurice GUILLIER\Documents\RécapitulatifFacturation.xlsx") PreCellLibreNomFichier = MettreAJourFacturation("Feuil1").Range("B1").End(xlDown).Address PreCellLibreMontant = MettreAJourFacturation("Feuil1").Range("C1").End(xlDown).Address MettreAJourFacturation.Sheets("Feuil1").Range.PreCellLibreNomFichier.Address.Value = Mid(ThisWorkbook.Name, 1, NomduFichier) MettreAJourFacturation.Sheets("Feuil1").Range.PreCellLibreMontant.Address.Value = Montant Windows("RécapitulatifFacturation.xlsx").Visible = True Workbooks("RécapitulatifFacturation.xlsx").Save MettreAJourFacturation.Close
Cordialement,
Maurice
Partager