Récupérer la valeur d'une variable

Bonjour,

Je suis entrain d'écrire une macro qui ouvre des fichiers Excel dans un dossier. Je copie les données et ensuite je vais dans un fichier de récapitulation.

C'est ici que je n'arrive pas à récupérer la valeur de la dernière cellule vide pour me positionner à la bonne place et coller les valeurs que j'ai copié auparavant.

Help !

Voici mon code

Sub TraiteFichiers()

Dim Chemin As String, File As String

Dim DerniereLigneFichierACopier As String

Dim DerniereCelluleColonneARecap As String

Chemin = "C:\Temp\VBA"

File = Dir(Chemin & "\*.xls*")

'début du code .....

'Va dans le fichier de RECAP et colle les données

Windows("Programme_Cyto_Intégration.xlsm").Activate 'j'active le fichier dans lequel je veux coller les valeurs

Sheets("CollageCato").Select 'je sélectionne l'onglet où je veux coller les valeurs

DerniereCelluleColonneARecap = Range("A" & Rows.Count).End(xlUp).Row + 1 'je définis la 1ère cellule vide colonne A

'Ici mon problème je n'arrive pas à me positionner sur la valeur de la variable "DerniereCelluleColonneARecap" avant coller

ActiveSheet.Paste

'suite du code...

End Sub

Merci de votre aide

BDel

bonjour et bienvenue sur le forum

Essaie en remplaçant :

DerniereCelluleColonneARecap = Range("A" & Rows.Count).End(xlUp).Row + 1 'je définis la 1ère cellule vide colonne A
'Ici mon problème je n'arrive pas à me positionner sur la valeur de la variable "DerniereCelluleColonneARecap" avant coller
ActiveSheet.Paste

par :

ActiveSheet.Range("A" & Rows.Count).End(xlUp)(2).PasteSpecial xlPasteAll

Bye !

Bonsoir,

Un peu de retard dans ma réponse...

Merci beaucoup "gmb" pour la réponse

ça fonctionne super

BDel