probleme de copie

Version imprimable

21/11/2007, 11h44
darkspoilt

probleme de copie

bonjour,

Je pense que c'est débile
mais ma ligne de code ne passe pas

Code:

feuille.Range("C" & x & ":C" & y & ",F" & x & ":F" & y & ",Q" & x & ":Q" & y & ",J" & x & ":J" & y & ",I" & x & ":I" & y & ",H" & x & ":H" & y & ",O" & x & ":O" & y & ",M" & x & ":M" & y).copy

alors que

Code:

Range("C" & x & ":C" & y & ",F" & x & ":F" & y & ",Q" & x & ":Q" & y & ",J" & x & ":J" & y & ",I" & x & ":I" & y & ",H" & x & ":H" & y & ",O" & x & ":O" & y & ",M" & x & ":M" & y).copy

fonctionne avec un code contenant des actives

si quelqu'un peut m'expliquer merci d'avance
21/11/2007, 11h52
ouskel'n'or

Pour faire ça, utilise Application.Union. Je donne un exemple ici
A+
21/11/2007, 12h03
darkspoilt

ca me fait la meme erreur que auparavant
21/11/2007, 13h00
ouskel'n'or

Montre ton code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim wbfile As Workbook
 Dim wbfile2 As Workbook
 Dim feuille As Worksheet
 
NomFichierAlertes = Application.GetOpenFilename("Fichier xls, *.xls", , "ouvrir le fichier d'alertes (macro v35)")
 
 
If NomFichierAlertes = False Then
   Exit Sub
 
Else
 
 
'Ouverture du fichier .csv
Set wbfile = Application.Workbooks.Open(NomFichierAlertes)
Set feuille = wbfile.Sheets("feuil2")
 
 feuille.Activate
 adres = Application.Union(Range("C" & x), Range("C" & y), _
                Range("F" & x), Range("F" & y), Range("Q" & x), Range("Q" & y), _
                Range("J" & x), Range("J" & y), Range("I" & x), Range("I" & y)).Address
                Debug.Print adres
feuille.Range(adres).Select

ca plante a la derniere ligne

21/11/2007, 17h53
scully2501

jette un oeil ici

http://www.developpez.net/forums/sho...ighlight=range
21/11/2007, 18h15
ouskel'n'or
Hello scully2501 , ça n'a rien à voir avec l'url que tu as indiquée où il n'y a pas de sélection ;)
Pour sélectionner une cellule, une plage dans une autre feuille, il faut séparer la sélection de la feuille et de la plage
'Debug.Print adres 'inutile, uniquement pour montrer la plage dans la fenêtre Exécution en débuggage
Code:

1 2 feuille.activate Range(adres).Select
Tu dis si ça va mieux ;)

NB - Je ne sais pas ce que tu veux faire mais il est très rare d'avoir à sélectionner un feuille, une cellule ou une plage. Par soft, c'est, à une exception près, complètement inutile

Je veux faire de l'automatisation et maintenant ca a l'air de fonctionner mais avant je tapais des code qui fonctionnais une fois sur deux

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Set wbfile = Application.Workbooks.Open(NomFichierAlertes)
 
Range("A1").Select
i = 2
Do While ActiveCell.Value <> "0"
    i = i + 1
    x = i
    Range("A1").Select
    Range("A1").Offset(i, 0).Select
Loop
 
 
'a ce moment on a donc la premiere ligne vide qui est la ligne x
 
ActiveWorkbook.ActiveSheet.Rows((i + 1) & ":20000").Delete Shift:=xlUp
 
  Range("A2", Range("Y2").End(xlDown)).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
i = 1
Range("A1").Offset(i, 0).Select
Do While ActiveCell.Value
 
       wbfile.Activate
 
 
       Range("A1").Select
       Range("A1").Offset(i, 0).Select
 
 
       Banq = ActiveCell.Value
 
   Count = 0
   x = i + 1
   y = i
 
     Do While ActiveCell.Value Like Banq
             y = y + 1
             Count = Count + 1
             Range("A1").Offset(y, 0).Select
     Loop
 
 Range("C" & x & ":C" & y & ",G" & x & ":G" & y & ",Q" & x & ":Q" & y & ",J" & x & ":J" & y & ",I" & x & ":I" & y & ",H" & x & ":H" & y & ",O" & x & ":O" & y & ",M" & x & ":M" & y).Select
 Selection.Copy
 
         'On ouvre le fichier à envoyer
        Workbooks.Open ("D:\Test2.xls")
 
        Range("A1").Offset(2, 0).Select
        ActiveSheet.Paste
 
        wbfile.Activate

Je pense que ca pourait etre plus clean

Bien sûr, je n'aurais jamais écrit ça comme ça mais l'essentiel est que tu comprennes ton code et que ça fonctionne ;)
Pour améliorer, tu peux déjà inverser certaines lignes et écrire ça autrement
Je prends ces lignes comme exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Range("C" & x & ":C" & y & ",G" & x & ":G" & y & ",Q" & x & ":Q" & _ y & ",J" & x & ":J" & y & ",I" & x & ":I" & y & ",H" & x & ":H" & y & ",O" & _ x & ":O" & y & ",M" & x & ":M" & y).Select Selection.Copy 'On ouvre le fichier à envoyer Workbooks.Open ("D:\Test2.xls") Range("A1").Offset(2, 0).Select ActiveSheet.Paste wbfile.Activate
Puisque wbfile est l'instance du classeur NomFichierAlertes, si tu fais
Code:

1 2 3 4 5 6 7 8 9 'On ouvre le fichier à envoyer Workbooks.Open ("D:\Test2.xls") 'le fichier Test2 devient le fichier actif 'tu n'as pas besoin d'être dans NomFichierAlertes pour copier les données '... et tu n'as pas besoin de sélectionner la cellule pour coller les données wbfile.Range("C" & x & ":C" & y & ",G" & x & ":G" & y & ",Q" & x & _ ":Q" & y & ",J" & x & ":J" & y & ",I" & x & ":I" & y & ",H" & x & _ ":H" & y & ",O" & x & ":O" & y & ",M" & x & ":M" & y).Copy _ Range("A1").Offset(2, 0) wbfile.Activate
ça revient au même mais c'est plus rapide et plus simples à relire.
Tu aurais d'ailleurs intérêt à instancier test2 comme tu le fais pour NomFichierAlertes et à instancier la plage dans la première boucle pour la parcourir.
Juste pour que ce soit plus mieux sioux ;)
Bonne journée