complément macro copie

Question

Bonjour, voici le code que l'on m'a créé et qui fonctionne très bien.
Mais aujourd'hui j'ai un nouveau travail a faire.
Je dois toujours copier les plages de cellules désignées dans la macro et en plus je dois retourner sur le classeur ouvert pour en reprendre d'autres pour les copier sur la "feuil2" en ligne 4.
Merci du coup de main
a+ 

Sub copie1()
Dim Fich As String, Ligne As Long
Const Chemin = "G:\ABC\Archives complètes\Essai macro"
Ligne = 4
Fich = Dir(Chemin & "\*.xl*")
Do While Fich <> ""
Workbooks.Open Filename:=Chemin & Fich
Sheets("98%").Select
Range("D188:L190,D197:L199,D349:L351,D418:L420,D429:L431,D440:L442").Copy 'T1,T2,T19,T44,T45,T46
    


ThisWorkbook.Sheets("Feuil1").Cells(Ligne, 1).PasteSpecial _
xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=True


Ligne = Ligne + 9
Application.DisplayAlerts = False
Workbooks(Fich).Close False
Application.DisplayAlerts = True
Fich = Dir
Loop
End Sub

PCPT · Answer

VB6 vers VBA !!!

PCPT · Answer

ce topic est toujours dans les threads de la page d'accueil, pas la peine de poster et reposter, çà fait déjà 4 doublons que je supprime !!!



merci!

Complément macro copie

2 réponses

Votre réponse

Discussions similaires