[VBA-EXCEL] PROB
romain
-
hich24 Messages postés 1686 Statut Membre -
hich24 Messages postés 1686 Statut Membre -
Bonjour,
Merci de venir m'aider
Je souhaite récuperer des données par ex dans un autre fichier et le coller sur la 1ere colonne vide d'un autre fichier.
Où l'on reviens au code précédent, je veux toujours coller cela à droite de la derniere colonne non-vide !!
ex : je recupere d'un fichier les données 1234
ABC
000
000
000
000
de la je souhaite faire un copier coller dans la 1ere colonne vide ,
soit
ABCD
0001
0002
0003
0004
et si je relance ma macro sa donnera
ABCDE
00011
00022
00033
00044
Merci d'avance
Merci de venir m'aider
Je souhaite récuperer des données par ex dans un autre fichier et le coller sur la 1ere colonne vide d'un autre fichier.
Où l'on reviens au code précédent, je veux toujours coller cela à droite de la derniere colonne non-vide !!
ex : je recupere d'un fichier les données 1234
ABC
000
000
000
000
de la je souhaite faire un copier coller dans la 1ere colonne vide ,
soit
ABCD
0001
0002
0003
0004
et si je relance ma macro sa donnera
ABCDE
00011
00022
00033
00044
Merci d'avance
A voir également:
- [VBA-EXCEL] PROB
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Déplacer colonne excel - Guide
1 réponse
1- pour ouvrire le premier classeur selectioner la premiere colonne > copier , ensuite ouvrire le deuxieme classeur et colle sur la premiere colonne ( il suffit de changer les chemin des fichier et les colonne )
Workbooks.Open Filename:= _
"C:\.......\Classeur1.xls"
Columns("A:A").Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\........\Classeur2.xls"
Sheets("......").Range("iv1").End(xlToLeft).Select
ActiveSheet.Paste
2-
Workbooks.Open Filename:= _
"C:\.......\Classeur1.xls"
Columns("A:A").Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\........\Classeur2.xls"
Sheets("......").Range("iv1").End(xlToLeft).Select
ActiveSheet.Paste
2-
