Discussion :

[mauriceguillier]

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

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

Je vous en remercie par avance,
Cordialement,
Maurice

[Godzestla]

Bonjour,

je te conseille d'utiliser End(Xlup) pour treouver la dernière cellule utilisée et puis de prendre la suivante.

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 = "B" & MettreAJourFacturation("Feuil1").Range("B65535").End(xlUp).row + 1
    PreCellLibreMontant = "C" & MettreAJourFacturation("Feuil1").Range("C65535").End(xlUp).row + 1
    MettreAJourFacturation.Sheets("Feuil1").Range(PreCellLibreNomFichier).Value = Mid(ThisWorkbook.Name, 1, NomduFichier)
    MettreAJourFacturation.Sheets("Feuil1").Range(PreCellLibreMontant).Value = Montant
    Windows("RécapitulatifFacturation.xlsx").Visible = True
    Workbooks("RécapitulatifFacturation.xlsx").Save
    MettreAJourFacturation.Close

[mauriceguillier]

Bonjour et merci,

Cependant, je me retrouve encore - c'est ce qui me tombait sur la tête - avec une erreur d'exécution '438' soit Propriété ou méthode non gérée par cet objet.

Je ne sais qu'en penser !

Merci pour l'aide supplémentaire pour que j'en sorte.

Cordialement,
Maurice

[Godzestla]

Cependant, je me retrouve encore - c'est ce qui me tombait sur la tête - avec une erreur d'exécution '438' soit Propriété ou méthode non gérée par cet objet.

Du reste cependant, le père Noël ne m'ayant point encore gratifié d'une boule de cristal, il faudrait peut-être envisager d'être foncièrement plus explicite quant-au code tel que dans son état actuel il se présente ainsi que la ligne sur laquelle l'erreur qui n'aurait pas du avoir lieu l'a quand même.

Une 438 sur la tête, est-ce douloureux ?