VBA - Consolidation fichier Excel

Signaler
-
f894009
Messages postés
14892
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 décembre 2019
-
Bonjour,
J'ai une erreur 1004, pouvez vous m'aider svp ?

Option Explicit
'Déclaration variable
Dim NomClasseur As String
Dim LigneTotal As Integer
Dim DerLigne As Integer


' consolidation de plusieurs fichiers Excel


Sub consolider()

'Etape 1 : création des entêtes.

Range("A5").Value = "Société"
Range("B5").Value = "Siret"
Range("C5").Value = "Début de validité"
Range("D5").Value = "Fin de validité"
Range("E5").Value = "Code Organisme"
Range("F5").Value = "Code Délégataire"
Range("G5").Value = "Référence contrat"
Range("H5").Value = "Code Population"
Range("I5").Value = "Code Option"
Range("J5").Value = "Périodicité de paiement des cotisations"
Range("K5").Value = "Assiette"
Range("L5").Value = "Condition tarifaire"
Range("M5").Value = "Taux et Montant"
Range("N5").Value = "Description"

'Etape 2 : parcourir les fichiers

ChDir "X:\FP\SECURITAS\V2"
'on cherche le premier classeur danns le dossier
NomClasseur = Dir("X:\FP\SECURITAS\V2\*.xlsx")
'on boucle pour chercher tous les classeurs Excel
While Len(NomClasseur) > 0
Workbooks.Open NomClasseur 'Ouverture du classeur
LigneTotal = ActiveSheet.UsedRange.Rows.Count 'On récupère le nb de ligne totale
Range("A7:N" & LigneTotal).Copy 'On copie les données de la feuille
Workbooks("Test.xlsm").Activate
DerLigne = ActiveSheet.UsedRange.Rows.Count + 1 'On recherche la dernière ligne vide de la feuiulle
Range("A" & DerLigne).Select 'on se positionne sur la dernière ligne vide de la feuille
ActiveSheet.Paste 'Je colle les données
Workbooks(NomClasseur).Close
NomClasseur = Dir 'On passe au prochain classeur
Wend
Messages postés
14892
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 décembre 2019
1197
Bonjour,

Avec votre code sans modif (sauf le chemin fichier), pas d'erreur!!!!!!
Messages postés
14040
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 décembre 2019
424
Bonjour
Voici l’adresse d’un petit tuto sur la bonne utilisation des balises de code
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
En corrigeant ton message, tu augmenteras tes chances d’obtenir une réponse