VBA - Ajouter un copier coller

Bonjour à tous,

Je vais essayé d'être le plus clair possible dans mon explication. Je tiens à préciser que je débute en macro.

J'ai actuellement un dossier, qui regroupe plusieurs classeurs identiques, et je dois récolter les informations de chacun d'eux dans un classeur récapitulatif.

J'ai réussis à récolté le nom de chacun des classeurs, qui sont à la suite dans ma colonne A.

A copier la case J2 de chacun de mes classeurs, et qui s'affichent très bien en colonne B.

Et voici les problèmes, je dois aussi copier :

La case C11 en colonne C

La case K54 en colonne D

Mais je ne vois comment ajouter tout cela.

Voici l'état actuel de ma Macro :

Sub Récupération()

' Initialisation

Cells.Delete

'Ligne de titre

Range("A1") = "N° de NC"

Range("B1") = "Client"

Range("C1") = "Affaire"

Range("D1") = "Coût"

' Parcours de tous les fichiers

ChDir "M:\Qualité\Fiche de non conformité 17-18"

ClasseurRecap = Dir("M:\Qualité\Fiche de non conformité 17-18\*.xlsx")

While Len(ClasseurRecap) > 0

Workbooks.Open ClasseurRecap

AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count - 1

Range("J2").Copy

Workbooks("000-Recap.xlsm").Activate

DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1

Range("B" & ActiveSheet.UsedRange.Rows.Count + 1).Select

ActiveSheet.PasteVBA

Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = ClasseurRecap

Workbooks(ClasseurRecap).Close

ClasseurRecap = Dir

Wend

'Suppression des extensions XLSX

Columns("A:A").Replace ".xlsx", ""

'Ajuster colonnes

Cells.EntireColumn.AutoFit

Range("A1").Select

End Sub

Merci d'avance de vos réponses.

Bonjour

Il serait plus facile de travailler sur ton fichier.

Joins le et au besoin, rends le anonyme...

Bye !

Voilà le fichier joint, si cela peut aider à trouver la solution, je le partage sans problème.

Et je viens de m’apercevoir en le ré-ouvrant, qu'il m'annonce une erreur sur la ligne " Workbooks.Open ClasseurRecap "

Pourtant cela fonctionnait très bien !

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Après un premier essai, cela me parait plutôt efficace. Même si je n'arrive pas comprendre toute la macro.

J'ai même réussi à ajouter d'autres colonnes, assez simplement.

Je vais peut-être abuser de tes compétences, mais est-il possible de faire un lien hypertexte à cette macro, comme le fichier joint?

Merci d'avance de la réponse, et surtout pour le fichier GMB.

Bonjour

Nouvelle version

4nouveau-dossier.zip (125.68 Ko)

C'est parfait !

Un grand merci à toi GMB, pour le fichier et surtout ta réactivité.

Bonne journée.

Rechercher des sujets similaires à "vba ajouter copier coller"