Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel copie avec une macro

copie avec une macro

7 réponses
Avatar
Daniel
Bonsoir é tous
Question comment simplifier la macros ?
J'ai plusieur fichiers que je veut copier plusieur champs (les Valeur) d'un
fichier a l'autres ce que j'ai fait avec l'enrégistreur.
pour copier la première page cela prend environ 25 ligne
Mais la macros est trops longue pour l'exécuter. ( X 400pages )
les champ B3 , E3:H3 , L3:N3 , D4 , F4 , C9:N23 , C25:N27 .
les champ E43:H43 , J43:K43 , D44 , f45:H45 , C49:N63 , C65:N67
les champ E83:H83 , J3:K83 , D84 , f85:H85 , C9:N103 , C105:N107
ect.......... sur 400 page de 40 ligne par page !!!

qui sont dans fichier "Insp.xls" (onglet "aiguile") sur Joliette.xls
(onglet "aiguile)"

Range("B3").Select
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("Insp.joliette.xls:1").Activate
Range("E3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("Insp.joliette.xls:1").Activate
Range("L3:N3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("L3:N3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("Insp.joliette.xls:1").Activate
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("Insp.joliette.xls:1").Activate
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Windows("Insp.joliette.xls:1").Activate

ect..................................
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour Daniel
Le plus simple serait de définir un nom pour l'ensemble des plages que tu
dois copier, puis d'utiliser ensuite une macro comme celle que tu trouveras
ci-dessous qui ne contient plus que 6 lignes.
Attention, il faut préciser :
1°) que tes deux classeurs doivent être ouverts,
2°) qu'il faut éventuellement changer le nom du classeur et ou de la feuille
de destination si ce ne sont pas les bons
3°) que si le nombre de caractères du nom de ta feuille change, il faudra
adapter la ligne LaRef 3°) que la macro copie l'ensemble des noms existants dans ton classeur (donc
si d'autres noms font référence à des cellules situées dans d'autres
feuilles de ton classeur "Insp.xls", elles seront également copiées dans la
feuille "aiguile" du classeur "Joliette.xls", écrasant éventuellement les
plages précedement copiées) - on peut éventuellement rajouter un contrôle
pour cela -
4°) que la macro doit être placée dans un module du classeur "Insp.xls"
'==== La macro ==== Sub CopieSurJoliette()
Dim N As Name
Dim LaRef
For Each N In ThisWorkbook.Names
LaRef = Mid(N.RefersTo, 10, Len(N.RefersTo) - 9)
Range(N).Copy
Destination:=Workbooks("Joliette.xls").Sheets("Aiguile").Range(LaRef)
Next N
End Sub
'=============== Cordialement
Pascal

"Daniel" a écrit dans le message de
news:4Tljb.3677$
Bonsoir é tous
Question comment simplifier la macros ?
J'ai plusieur fichiers que je veut copier plusieur champs (les Valeur)
d'un

fichier a l'autres ce que j'ai fait avec l'enrégistreur.
pour copier la première page cela prend environ 25 ligne
Mais la macros est trops longue pour l'exécuter. ( X 400pages )
les champ B3 , E3:H3 , L3:N3 , D4 , F4 , C9:N23 , C25:N27 .
les champ E43:H43 , J43:K43 , D44 , f45:H45 , C49:N63 , C65:N67
les champ E83:H83 , J3:K83 , D84 , f85:H85 , C9:N103 , C105:N107
ect.......... sur 400 page de 40 ligne par page !!!

qui sont dans fichier "Insp.xls" (onglet "aiguile") sur Joliette.xls
(onglet "aiguile)"

Range("B3").Select
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("E3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("L3:N3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("L3:N3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate

ect..................................




Avatar
André
salut

dans range.select tu dois pouvoir selectionner plusieurs
plages en même temps et les copier-coller spécial en une
seule passe..
essai l'enregistreur avec Maj F8 pour selectionner
plusieurs plages...

cordialement

André
-----Message d'origine-----
Bonsoir é tous
Question comment simplifier la macros ?
J'ai plusieur fichiers que je veut copier plusieur
champs (les Valeur) d'un

fichier a l'autres ce que j'ai fait avec l'enrégistreur.
pour copier la première page cela prend environ 25 ligne
Mais la macros est trops longue pour l'exécuter. ( X
400pages )

les champ B3 , E3:H3 , L3:N3 , D4 , F4 , C9:N23 ,
C25:N27 .

les champ E43:H43 , J43:K43 , D44 , f45:H45 ,
C49:N63 , C65:N67

les champ E83:H83 , J3:K83 , D84 , f85:H85 ,
C9:N103 , C105:N107

ect.......... sur 400 page de 40 ligne par page !!!

qui sont dans fichier "Insp.xls" (onglet "aiguile") sur
Joliette.xls

(onglet "aiguile)"

Range("B3").Select
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("E3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("L3:N3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("L3:N3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate

ect..................................


.



Avatar
Emcy
Salut,

Selectionnes toutes tes cellules à copier et nomme cette
plage de cellule "MesCellules".

Ensuites, essayes cette macro :
application.screenupdatingúlse 'enlève le
rafraichissement de l'écran

For Each cellule In Range("MesCellules")

CelluleAdress = cellule.Address
cellule.Copy
Windows("Insp_RDP.xls:1").Sheets("aiguile").Range
(CelluleAdress).PasteSpecial Paste:=xlPasteValues

Next

application.screenupdating=true 'remet le
rafraichissement de l'écran

ça te va ?

-----Message d'origine-----
Bonsoir é tous
Question comment simplifier la macros ?
J'ai plusieur fichiers que je veut copier plusieur
champs (les Valeur) d'un

fichier a l'autres ce que j'ai fait avec l'enrégistreur.
pour copier la première page cela prend environ 25 ligne
Mais la macros est trops longue pour l'exécuter. ( X
400pages )

les champ B3 , E3:H3 , L3:N3 , D4 , F4 , C9:N23 ,
C25:N27 .

les champ E43:H43 , J43:K43 , D44 , f45:H45 ,
C49:N63 , C65:N67

les champ E83:H83 , J3:K83 , D84 , f85:H85 ,
C9:N103 , C105:N107

ect.......... sur 400 page de 40 ligne par page !!!

qui sont dans fichier "Insp.xls" (onglet "aiguile") sur
Joliette.xls

(onglet "aiguile)"

Range("B3").Select
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("E3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("L3:N3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("L3:N3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate

ect..................................


.



Avatar
Emcy
Salut,

Voila un exemple pour copier les cellule d'une feuille (
à toi d'adapter selon tes besoins):

Avant de lancer la macro, tu doit cellectionner les
cellules que tu veux copier et les nommer dans la
plage "MaSelection"

Sub Main()

Dim Cellule As Range
Dim CelluleAdresse As String

Application.ScreenUpdating = False 'bloque le
rafraichissement de l'écran

For Each Cellule In Windows("Insp_RDP.xls:1").Sheets
("aiguile").Range("MaSelection")

CelluleAdresse = Cellule.Address
Cellule.Copy
Windows("Insp.joliette.xls:1").Sheets("aiguile").Range
(CelluleAdresse).PasteSpecial Paste:=xlPasteValues

Next

Application.ScreenUpdating = True 'Débloque le
rafraichissement de l'écran

End Sub

ça te va ?

-----Message d'origine-----
Bonsoir é tous
Question comment simplifier la macros ?
J'ai plusieur fichiers que je veut copier plusieur
champs (les Valeur) d'un

fichier a l'autres ce que j'ai fait avec l'enrégistreur.
pour copier la première page cela prend environ 25 ligne
Mais la macros est trops longue pour l'exécuter. ( X
400pages )

les champ B3 , E3:H3 , L3:N3 , D4 , F4 , C9:N23 ,
C25:N27 .

les champ E43:H43 , J43:K43 , D44 , f45:H45 ,
C49:N63 , C65:N67

les champ E83:H83 , J3:K83 , D84 , f85:H85 ,
C9:N103 , C105:N107

ect.......... sur 400 page de 40 ligne par page !!!

qui sont dans fichier "Insp.xls" (onglet "aiguile") sur
Joliette.xls

(onglet "aiguile)"

Range("B3").Select
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("E3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("L3:N3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("L3:N3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate

ect..................................


.



Avatar
Emcy
y a cette solution qui est plus rapide :

Sub Main2()

Dim Cellule As Range
Dim CelluleAdresse As String

Application.ScreenUpdating = False 'bloque le
rafraichissement de l'écran

For Each Cellule In Windows("Insp.joliette.xls:1").Sheets
("aiguile").Range("MaSelection")

CelluleAdresse = Cellule.Address
Windows("Insp_RDP.xls:1").Sheets("aiguile").Range
(CelluleAdresse) = Cellule

Next

Application.ScreenUpdating = True 'Débloque le
rafraichissement de l'écran

End Sub


remarque : tu peux aussi essayer de copier les pages (au
lieu des cellules) mais je ne sais pas si ça peut
s'appliquer à ta situation.

-----Message d'origine-----
Bonsoir é tous
Question comment simplifier la macros ?
J'ai plusieur fichiers que je veut copier plusieur
champs (les Valeur) d'un

fichier a l'autres ce que j'ai fait avec l'enrégistreur.
pour copier la première page cela prend environ 25 ligne
Mais la macros est trops longue pour l'exécuter. ( X
400pages )

les champ B3 , E3:H3 , L3:N3 , D4 , F4 , C9:N23 ,
C25:N27 .

les champ E43:H43 , J43:K43 , D44 , f45:H45 ,
C49:N63 , C65:N67

les champ E83:H83 , J3:K83 , D84 , f85:H85 ,
C9:N103 , C105:N107

ect.......... sur 400 page de 40 ligne par page !!!

qui sont dans fichier "Insp.xls" (onglet "aiguile") sur
Joliette.xls

(onglet "aiguile)"

Range("B3").Select
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("E3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("L3:N3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("L3:N3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate

ect..................................


.



Avatar
Daniel
Merci
Mais je doit recopier mes champ de chaque page sur chaque page de l'autre
fichier.
( la page a2:n41 qui sont dans fichier "Insp.xls" onglet "aiguile" sur la
page a2:n41 Joliette.xls onglet "aiguile")
il y a pas une macro qui copie (Valeur) du champ selectionner dans la page
de l'autre fichier et dessendre d'une page
(dans les deux fichier)
et se répète pour les 400 pages puis je recommence avec un autre champs
ainsi de suite pour les 21 champs.

"Emcy" a écrit dans le message de
news:0eaa01c393c7$8c22ed20$
Salut,

Voila un exemple pour copier les cellule d'une feuille (
à toi d'adapter selon tes besoins):

Avant de lancer la macro, tu doit cellectionner les
cellules que tu veux copier et les nommer dans la
plage "MaSelection"

Sub Main()

Dim Cellule As Range
Dim CelluleAdresse As String

Application.ScreenUpdating = False 'bloque le
rafraichissement de l'écran

For Each Cellule In Windows("Insp_RDP.xls:1").Sheets
("aiguile").Range("MaSelection")

CelluleAdresse = Cellule.Address
Cellule.Copy
Windows("Insp.joliette.xls:1").Sheets("aiguile").Range
(CelluleAdresse).PasteSpecial Paste:=xlPasteValues

Next

Application.ScreenUpdating = True 'Débloque le
rafraichissement de l'écran

End Sub

ça te va ?

-----Message d'origine-----
Bonsoir é tous
Question comment simplifier la macros ?
J'ai plusieur fichiers que je veut copier plusieur
champs (les Valeur) d'un

fichier a l'autres ce que j'ai fait avec l'enrégistreur.
pour copier la première page cela prend environ 25 ligne
Mais la macros est trops longue pour l'exécuter. ( X
400pages )

les champ B3 , E3:H3 , L3:N3 , D4 , F4 , C9:N23 ,
C25:N27 .

les champ E43:H43 , J43:K43 , D44 , f45:H45 ,
C49:N63 , C65:N67

les champ E83:H83 , J3:K83 , D84 , f85:H85 ,
C9:N103 , C105:N107

ect.......... sur 400 page de 40 ligne par page !!!

qui sont dans fichier "Insp.xls" (onglet "aiguile") sur
Joliette.xls

(onglet "aiguile)"

Range("B3").Select
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("E3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("L3:N3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("L3:N3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate

ect..................................


.



Avatar
Michel
Bonjour,

Suggestion :

Désactiver la mise à jour de l'écran pendant
l'exécution de la macro !

sub ...
Application.ScreenUpdating = False
...'exécution du code'
Application.ScreenUpdating = True
end sub

Amicalement
Michel
-----Message d'origine-----
Bonsoir é tous
Question comment simplifier la macros ?
J'ai plusieur fichiers que je veut copier plusieur
champs (les Valeur) d'un

fichier a l'autres ce que j'ai fait avec l'enrégistreur.
pour copier la première page cela prend environ 25 ligne
Mais la macros est trops longue pour l'exécuter. ( X
400pages )

les champ B3 , E3:H3 , L3:N3 , D4 , F4 , C9:N23 ,
C25:N27 .

les champ E43:H43 , J43:K43 , D44 , f45:H45 ,
C49:N63 , C65:N67

les champ E83:H83 , J3:K83 , D84 , f85:H85 ,
C9:N103 , C105:N107

ect.......... sur 400 page de 40 ligne par page !!!

qui sont dans fichier "Insp.xls" (onglet "aiguile") sur
Joliette.xls

(onglet "aiguile)"

Range("B3").Select
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("E3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("L3:N3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("L3:N3").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Insp_RDP.xls:1").Activate
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,

SkipBlanks _
:úlse, Transpose:úlse
Windows("Insp.joliette.xls:1").Activate

ect..................................


.