Discussion :

[lmylvc]

Bonjour les amis

Je souhaite créer une macro qui permet de copier des données dans fichier X
exemple cell A1: B5 et les coller dans un fichier Y à l'endroit ou j'aurai cliqué au préalable.

Quelqu'un sait-il comment faire

J'ai essayé avec ce code, mais un message d'erreur de compilation apparait il indique utilisation incorrecte de la propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro79()
'
' Macro79 Macro
'
 
Dim dl
    Range("Q42:T51").Select
    Selection.ClearContents
    Windows("INJA01_SG_EN_COURS.xls").Activate
    'Range("B5:D9").Select remplacé par la ligne ci-dessous pour sélectionner les
    'cellules non vides du fichier d'exportation des données inj etc
    ActiveSheet.UsedRange.Select
    Selection.Copy
    Windows("Raccourci vers tabl marche smed.xls.lnk.xls").Activate
    'Range("Q43").Select
 
    dl = Range("A65000").End(xlUp).Row
    Range ("Q" & dl)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("T43").Select
End Sub

Merci d'avance

Vincent

[chris09300]

bonsoir
peux tu mettre des balises pour mieux voir ton code svp
cris

[lmylvc]

Voici, en espérant que tu comprendra mieux

Description du projet :

1) dans le fichier INJA01_SG_EN_COURS.xls").Activate
-->sélectionner les cellules non vides et les copier
2) dans le fichier ("Raccourci vers tabl marche smed.xls.lnk.xls").Activate
Coller les cellules sélectionnées dans la feuille nomée annuel_2011, dans la colonne "Q"
à l'endroitde la première cellule non vide en remontant la colonne A
(ce critère sert à déterminer la ligne)

Voilà, merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro79()
	Dim dl&
	Range("Q42:T51").ClearContents
	Windows("INJA01_SG_EN_COURS.xls").Activate
	ActiveSheet.UsedRange.Copy
	Windows("Raccourci vers tabl marche smed.xls.lnk.xls").Activate
'la feuille de destination devrait être spécifiée !!!
	dl = ActiveSheet.Range("A65000").End(xlUp).Row
	Range("Q" & dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
        SkipBlanks:=False, Transpose:=False
	Range("T43").Select
End Sub

[helas]

Bonjour
et avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim dl As Long
Range("Q" & CStr(dl)).PasteSpecial ...

sinon le reste me semble correct

[Theze]

Bonjour,

Il te faut adapter le nom de la feuille où tu copie les valeurs, dans mon exemple, c'est "Feuil1" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub Macro79()
 
    'c'est de quel classeur ?
    Range("Q42:T51").ClearContents
 
    'adapter le nom de la feuille, remplacer "Feuil1" par le nom de la feuille où sont copiées les valeurs
    Workbooks("INJA01_SG_EN_COURS.xls").Worksheets("Feuil1").UsedRange.Copy _
    Workbooks("Raccourci vers tabl marche smed.xls.lnk.xls").Worksheets("annuel_2011").Range("Q" & Rows.Count).End(xlUp)(2)
 
End Sub

Hervé.

[lmylvc]

Hello Helas & Theze

Merci pour votre aide.
Helas, j'ai appliqué le code suggéré et la ligne suivant a été surlignée en jaune
ligne concernée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("Q" & CStr(dl)).Paste

Theze le classeur concerné est "INJA01_SG_EN_COURS.xls"

Toujours dans le même esprit je vous joints le code,
je l'ai un peu simplifié pour ce qui est des détail copy and cut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim dl As Long
 
    'Ce fichier est celui dans lequel je copie les données
    	Windows("INJA01_SG_EN_COURS.xls").Activate
    'Cette feuille est la feuille qui contient les données à copier
    	Sheets("Feuil1").Select
    'Zone de sélection dans "INJA01_SG_EN_COURS.xls"
	Range("B5:D9").Select
    	Selection.Copys
    'Ce fichier est celui dans lequel je colle les données
    	Windows("Test_tabl marchesmed.xls").Activate
    	Sheets("annuel_2011").Select
    	dl = ActiveSheet.Range("A65000").End(xlUp).Row
    	Range("Q" & CStr(dl)).Paste
End Sub

Merci d'avance pour vos réponses