Discussion :

[ouezon]

Hello,
je suis encore novice en VBA mais j'aimerai savoir comment codifier une macro de facon à ce qu'elle effectue les taches suivantes:
1/ Ouverture d'un fichier source sur un autre disque réseau
2/Sélection de l'intégralité des données d'une feuille bien précise
3/ Copier ces données dans un autre fichier situé sur un autre disque réseau en supprimant les données comprises dans les plages de A1: A100
4/par la suite il faudrait que la macro ouvre un troisièmre fichier "X" qui lui exécuterait une requête etc...(pour cette partie, le ,problème est réglé)
Mais je ne sais comment résoudre les 3 premières phases.
Merci d'avance.

[ouskel'n'or]

Hello,

Ta demande comporte une anomalie :

2/Sélection de l'intégralité des données d'une feuille bien précise 3/ Copier ces données dans un autre fichier situé sur un autre disque réseau en supprimant les données comprises dans les plages de A1: A100

Si tu copies l'intégralité des données d'une feuille, étant donnée qu'on en ignore la plage, dans la feuille du second fichier il est possible que les données des autres colonnes soient remplacées.
Précise la plage copiée et la plage où tu colles.

Sinon, pour ouvrir un ou x classeurs, sur réseau ou non, et sélectionner une feuille, puis sélectionner la plage A1:A100, la copier, la coller sur la feuille d'un autre fichier, la syntaxe est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Rep1 = "L:\Rep1\"
NomFich = "MonFich1.xls"
Workbook.open RepF1 & NomFich1
Worksheets("NomDuneFeuille").select
Range("A1:A100").select
Selection.copy
Rep2 = "K:\Rep1\"
NomFich2 = "MonFich2.xls"
Workbook.open RepF2 & NomFich2
Worksheets("NomFeuilFich2").select
Range("A1").select
Selection.paste

Rien ne t'interdit de simplifier en ouvrant directement ton fichier en associant Répertoire, et nom de fichier.

Pour sélectionner toutes les cellules d'une feuille : "Cells.select"

Enfin, regarde dans l'aide à Copy et à Paste, tu trouveras des exemples

A+