excel et vba

[NIAZI]

Salut!

je voudrais, à partir du fichier de base 230803, automatiquement, c'est a dire avoir una application qui le ferait pour d'autres fichiers que celui-ci, insérer ds colonnes(conso-sept, ecart....), les colonnes conso proviennent d'un autre fichier par une recherche verticale et les colonnes écart s'obtiennent par une formule.


Merci...a bientot j'espère!

 

[Zon]

Salut,

Option explicit, nous ne sommes pas devins (du moins moi) un fichier exemple peut être...

A+++

 

[Zon]

Re,

Niazi m'a répondu:
"Salut, au fait, je voudrais à partir d'Acces, copier deux colonnes d'un fichier excel(fichier1) et les coller dans 2 colonnes d'un autre fichier excel 2 avec du vba"

Un peu tordu comme truc...

Dans cet exemple je copie la colonne 1 de la 1ere feuille du fichier1 dans la 1 ere cellule vide de la 1 ere feuille du fichier 2.

Option Compare Database
Option Explicit
Const Chemin As String = "C:\Tonrepertoire\" 'à adpater
Const Nomfich1 As String = "Fichier1.xls"'à adpater
Const Nomfich2 As String = "Fichier2.xls"'à adpater

Sub Test()
Dim XL As New Excel.Application
Dim C1 As Excel.Workbook, C2 As Excel.Workbook
Dim F1 As Excel.Worksheet
Dim Plage As Excel.Range
With XL
.Visible = True 'à mettre pendant les tests
Set C1 = .Workbooks.Open(Chemin & Nomfich1)
Set C2 = .Workbooks.Open(Chemin & Nomfich2)
Set Plage = C1.Worksheets(1).Range("A1:A" & [A65536].End(xlUp).Row)
C2.Worksheets(1).Range("A" & [A65536].End(xlUp).Row).Resize(Plage.Rows.Count, Plage.Columns.Count) = Plage.Value
C1.Close
C2.Save
.Quit
End With
End Sub

A+++