Copier contenue excel vers un autre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Copier contenue excel vers un autre

z8444

Bonjour,

Je suis entrain d'essayer de faire un script qui permettra de prendre plusieurs fichier excel pour les rassembler vers un fichier unique fichier excel. je voudrais savoir si quelqu'un a une idée de comment faire ?

Merci

Publicité

Cello

- Quelques idées ici pour accéder à tous les fichiers d'un répertoire
https://stackoverflow.com/questions [...] -using-vba

- Quelques idées pour accéder à toutes les pages d'un classeur
https://www.developpez.net/forums/d [...] ch-sheets/

- Les instructions de bases à adapter
Windows("Classeur1" ).Activate
Sheets("Feuil1" ).Select
Sheets("Feuil1" ).Copy After:=Workbooks("Classeur2" ).Sheets(1)

---------------
Audio-Video: Pioneer: PDP-LX6090 + SC-LX78 + BDP-LX88 + S3ex + S81c +S71B et EAA PA1000 + Onkyo P388F

patrice33740

Avec la réponse, c'est facile.

Bonjour,

Un exemple à adapter:

Code :

Option Explicit
Option Private Module
Public Sub Synthèse_Classeurs_AE()
Dim wbk As Workbook 'Classeur
Dim Système As Object 'Système de fichiers
Dim Dossier As Object 'Répertoire
Dim Fichiers As Object 'Collection de fichiers du répertoire Dossier
Dim Fichier As Object 'Fichier (élément de la collection Fichiers)
Dim Nom_Fichier As String 'Nom du fichier
Dim Nom_Dossier As String 'Nom du dossier
'Répertoire des fichiers AE
Nom_Dossier = ThisWorkbook.Path & "/AE"
'Lecture du répertoire
Set Système = CreateObject("Scripting.FileSystemObject" )
Set Dossier = Système.GetFolder(Nom_Dossier)
Set Fichiers = Dossier.Files
'- Contrôle de chaque le fichier du répertoire
For Each Fichier In Fichiers
'- Vérifier s'il s'agit d'un fichier Excel...
If StrComp(Système.GetExtensionName(Fichier.Name), "xls", vbTextCompare) = 0 Then
'... dans l'affirmative, ouvrir le fichier et mettre à jour les liaisons
Nom_Fichier = Nom_Dossier & "\" & Fichier.Name
Set wbk = Workbooks.Open(Filename:=Nom_Fichier, UpdateLinks:=xlUpdateLinksNever)
Call Ajouter_Données_AE(wbk)
wbk.Close SaveChanges:=False
End If
Next Fichier
End Sub
Public Sub Ajouter_Données_AE(wbk As Workbook)
Dim celOrg As Range
Dim celDst As Range
'Première info de AE
Set celOrg = wbk.Worksheets(1).Range("A20" )
'Dernière cellule utilisée de la première colonne du fichier retour
With ThisWorkbook.Worksheets(1)
Set celDst = .Cells(.Rows.Count, 1).End(xlUp)
End With
'Copie des données
Do While celOrg.Formula <> ""
Set celDst = celDst.Offset(1)
celDst.Value = celOrg.Value
celDst.Offset(, 1).Value = celOrg.Offset(, 1).Value
celDst.Offset(, 2).Value = celOrg.Offset(, 5).Value
'suivant
Set celOrg = celOrg.Offset(1)
Loop
End Sub

---------------
Cordialement, Patrice

rufo

Pas me confondre avec Lycos!

Tu peux regarder aussi du côté du langage AutoIt qui te permettra de faire un .exe. Via l'interface COM, il est capable de "piloter" Excel. Tu peux même faire une petite IHM pour sélectionner les fichiers à concaténer.

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

z8444

d'accord merci a vous je vais regarder ça

Message édité par z8444 le 30-07-2018 à 15:15:07

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Copier contenue excel vers un autre

Sujets relatifs
incrémentation auto vba excel en fonction de plusieurs cellules	Langage Excel
Apache redirection d'un URL vers un autre	Suppression de ligne Excel
PB sur EXCEL	Copier coller valeur sur deux feuille avec conditions
Excel 2016 - Inscription données saisie par formulaire	Comparer 4 colonnes entre 2 feuilles Excel
Conserver la mise en forme Excel après un export dans word	script vérification + redirection vers autre page
Plus de sujets relatifs à : Copier contenue excel vers un autre

Page générée en 0.056 secondes