Complément macro copie

laurent56380 Messages postés 21 Date d'inscription vendredi 18 janvier 2008 Statut Membre Dernière intervention 27 janvier 2008 - 27 janv. 2008 à 15:54
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 27 janv. 2008 à 19:04
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

2 réponses

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
27 janv. 2008 à 17:32
VB6 vers VBA !!!
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
27 janv. 2008 à 19:04
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!
0
Rejoignez-nous