Se placer sur une cellule avant l'execution d'une macro

Version imprimable

Bonjour

J'ai besoin de l'aide de personnes plus compétente que moi pour ma macro.
Celle-ci doit me permettre de sélectionner un fichier Excel, de copier sont contenu et de la coller dans un autre fichier Excel.

Alors j'arrive bien à faire le copier coller d'un fichier à un autre.
Mais là ou je bloque, c'est que après la première exécution de ma macro, si j'ai d'autre fichiers dont je veux copier le contenu à la suite, je suis obligée avant de ré-executer la macro une deuxième fois de chercher la première cellule vide de la première ligne vide.

Voila mon problème je n'arrive pas à me placer dans la première cellule vide de la première ligne vide.

Je précise que dans mon tableau il ne peut pas y avoir de ligne vide. Donc la première ligne vide est forcement celle juste après mon tableau

Voila mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Sub OuvrirCopierColler() Dim wb As Workbook Dim ws As Worksheet Dim cdiscount As Workbook Dim FichCdiscount As Worksheet Dim Fichier As Variant Dim LigFin As Long Fichier = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx") 'permet d'ouvrir une boite de dialogue pour la selection du fichier Set wb = Workbooks.Open(Fichier) Set ws = wb.Worksheets(1) Set cdiscount = Workbooks("cdiscount.xlsm") Set FichCdiscount = cdiscount.Worksheets(1) 'se placer sur la première ligne vide de la feuille Cells(FichCdiscount.Cells(1, 1).End(xlDown).Row + 1, 1).Select 'copier la sélection du fichier donneur dans le fichier receveur ws.UsedRange.Copy 'copie dans le classeur donneur FichCdiscount.Paste 'colle dans le classeur receveur wb.Close 'ferme le classeur donneur End Sub
Je sais que pour le moment ce code n'est pas trés opti, et que par la suite je devrais le couper en plusieurs fonctions pour pouvoir l'utiliser avec tous type de situations. Mais pour le moment je bloque sur cette sélection de première ligne vide.

Qui peut m'aider svp?

Elwy

08/01/2016, 12h01
Dragern

Bonjour

Voila le code pour déterminer la dernière cellule non vide de la colonne A. le +1 te positionne donc à la première cellule vide

Code:

Range("A65536").End(xlUp).Row + 1

et sinon met ta variable fichier en String sa prendra moins de place en mémoire.

alors est ce que j'ai mal fait ou pas, mais le +1 moi il ne veut pas.
ça m’enlève le +

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub OuvrirCopierColler()
 
Dim wb As Workbook
Dim ws As Worksheet
Dim cdiscount As Workbook
Dim FichCdiscount As Worksheet
Dim Fichier As Variant
Dim LigFin As Long
 
Fichier = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx") 'permet d'ouvrir une boite de dialogue pour la selection du fichier
 
Set wb = Workbooks.Open(Fichier)
Set ws = wb.Worksheets(1)
Set cdiscount = Workbooks("cdiscount.xlsm")
Set FichCdiscount = cdiscount.Worksheets(1)
 
'se placer sur la première ligne vide de la feuille 'Range.("A65536").End((xlUp).Row+1
FichCdiscount.Range("A65536").End(xlUp).Row 1
 
 
'copier la sélection du fichier donneur dans le fichier receveur
ws.UsedRange.Copy 'copie dans le classeur donneur
FichCdiscount.Paste 'colle dans le classeur receveur
wb.Close 'ferme le classeur donneur
 
 
End Sub

j'ai beau le remettre, des que je valide il disparait.

et du coup j'ai une erreur de compilation

bon je viens de voir que ma ligne

Code:

FichCdiscount.Range("A65536").End(xlUp).Row 1

pose problème dans le sens ou elle est pas complète.

Elle me retourne le num de la première ligne vide, ça ok.

Mais moi je voudrais me placer dans la cellule A de cette ligne

Donc j'ai trouvé ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
 
Sub OuvrirCopierColler()
 
Dim wb As Workbook
Dim ws As Worksheet
Dim cdiscount As Workbook
Dim FichCdiscount As Worksheet
Dim Fichier As Variant
Dim LigFin As Long
Dim DerLig As Integer
 
Fichier = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx") 'permet d'ouvrir une boite de dialogue pour la selection du fichier
 
Set wb = Workbooks.Open(Fichier)
Set ws = wb.Worksheets(1)
Set cdiscount = Workbooks("cdiscount.xlsm")
Set FichCdiscount = cdiscount.Worksheets(1)
 
'se placer sur la première ligne vide de la feuille 'Range.("A65536").End((xlUp).Row+1
'FichCdiscount.Range("A65536").End(xlUp).Row 1
DerLig = FichCdiscount.Range("A65536").End(xlUp).Row + 1
Range("A" & DerLig).Select
 
'copier la sélection du fichier donneur dans le fichier receveur
ws.UsedRange.Copy 'copie dans le classeur donneur
FichCdiscount.Paste 'colle dans le classeur receveur
wb.Close 'ferme le classeur donneur
 
 
End Sub

Seulement là ou je suis perdu, c'est que je vois partout d’écrit sur le fofo que le .Select est à éviter.

Comment faire alors?

08/01/2016, 14h20
Dragern

Désolé je ne peut pas t'aider plus que sa j'utilise la méthode select aussi ^^ essaie de voir si la fonction Match marche après je n'en suis pas trop sur.
08/01/2016, 18h58
Marc-L

Bonjour, bonjour !

Ligne de code n°23 : la sélection est réalisée sur la feuille active du fichier qui vient d'être ouvert !
Il suffit de juste activer la bonne feuille de calculs au préalable …

Et puis rien qu'en lisant l'aide de la méthode Range.Copy en indiquant la Destination,
en une seule ligne de code sans sélection …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …