Problème de copier coller macro VBA

Version imprimable

Bonjour à tous,

J'ai un petit problème sur une macro. en fait je veux récupérer les données d'un fichier pour les coller dans un autre.

Je fais cela sur plusieurs fichiers donc à chaque fois que je colle de nouvelles données, je me décale d'une colonne.

Le problème me semble assez simple mais je galère depuis tout à l'heure pour réussir à faire ce que je veux.

J'arrive à ouvrir mon fichier où se trouve mes données, à les copier...mais je n'arrive pas à sélectionner la zone où je souhaite les coller. dès que j'arrive sur ma ligne de déclaration de la zone, j'ai le message d'erreur suivant:
"Erreur '1004'
Erreur définie par l'application ou par l'objet"

Voici le début de mon code. Le message apparaît sur la dernière ligne.
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 Public Sub CommandButton1_Click() 'L'utilisateur déclare le nombre de fichier de résultats qu'il souhaite rappatrier Set nb_file_Range = Worksheets("Lancement").Range("d6") fichier_courant = ActiveWorkbook.Name nb_file = nb_file_Range.Cells(1) ligne = 18 For i = 1 To nb_file colonne = i Nom_Fichier = Application.GetOpenFilename(, , "Sélectionnez la sensibilité à extraire") Workbooks.Open Filename:=Nom_Fichier 'Sélection du fichier de données 'Workbooks(Nom_Fichier).Activate Sheets("DONNEES").Select 'Sélection et copie des valeurs Range("b18:b3000").Select Selection.Copy 'Colle les valeurs de temps dans la feuille "Results" du classeur courant Workbooks(fichier_courant).Activate Sheets("results").Range(Cells(ligne, colonne), Cells(ligne + 2982, colonne)).Paste
Quelqu'un voit l'erreur que je fais dans ma déclaration par hasard ?

Par la même occasion j'en profite aussi pour demander si quelqu'un sait s'il est possible de copier des valeurs dans un fichier Excel sans l'ouvrir ? En effet, le fichier où je vais récupérer mes données est assez lourd et met du temps à s'ouvrir. Comme la macro peut demander de rapatrier les données de 20 fichiers différents, je pense que je pourrais gagner pas mal de temps de calcul si je n'ai pas besoin d'ouvrir les fichiers à chaque fois

Merci d'avance

Pierre

Bonjour le forum, :D

Essaie ça au cas où
Code:

1 2 Workbooks(fichier_courant).Activate Sheets("results").Cells(ligne + 2982, colonne).Paste

13/11/2009, 16h59
Piernod

Merci Marc pour ta réponse, mais ça ne fonctionne pas non plus. Si je mets ça, j'ai désormais le message suivant:

"Erreur d'exécution '438' :
Propriété ou méthode non gérée par cet objet"

:cry:

Je ne comprends pas absolument pas pourquoi ça bloque. En fait, si je déclare mon range avec la syntaxe classique Range("A1") par exemple ça fonctionne. Mais vu que je dois incrémenter ma colonne de collage, il me faut pouvoir l'écrire en indexé qui pour moi est :

Code:

Range(Cells(ligne_dbt , colonne_dbt) , Cells(ligne_fin , colonne_fin))

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
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer, nb_file As Integer, ligne As Integer, colonne As Integer
Dim awbk As Workbook, wbk As Workbook
Dim Nom_Fichier As Variant
 
Application.ScreenUpdating = False
Set awbk = ActiveWorkbook
    nb_file = awbk.Sheets("Lancement").Range("D6").Value
    If nb_file > 0 Then
        ligne = 18
        For i = 1 To nb_file
            colonne = i
            Nom_Fichier = Application.GetOpenFilename(, , "Sélectionnez la sensibilité à extraire")
            If Nom_Fichier <> False Then
                Set wbk = Workbooks.Open(Nom_Fichier)
                    wbk.Sheets("DONNEES").Range("B18:B300").Copy awbk.Sheets("results").Cells(ligne, colonne)  'Ici était une coquille
                    wbk.Close
                Set wbk = Nothing
            End If
        Next i
    End If
Set awbk = Nothing
Application.ScreenUpdating = True
End Sub

13/11/2009, 17h42
Piernod

Mercatog,

Le code que tu m'as envoyé ne fonctionne pas non plus. J'ai toujours l'erreur 1004 lorsqu'il s'agit de coller mes cellules...:cry:
13/11/2009, 17h50
mercatog

Regarde les noms que tu as donné aux feuilles de tes fichiers!
je n'ai pas passé par un copier/coller
16/11/2009, 08h32
Piernod

Les noms de mes feuilles sont les bonnes. Je ne vois vraiment pas ce qui peut clocher
16/11/2009, 09h03
Piernod

Merci pour votre aide. J'ai compris ce qui n'allait pas dans ton code mercadog. C'est en fait sur cette ligne :

Code:

wbk.Sheets("DONNEES").Range("B18:B300").Copy awbk.Sheets("results").Range(ligne, colonne)

Il faut en fait remplacer Range par Cells. Voici la syntaxe qui a l'air de fonctionner :

Code:

wbk.Sheets("DONNEES").Range("B18:B300").Copy awbk.Sheets("results").Cells(ligne, colonne)

Merci beaucoup
16/11/2009, 18h56
mercatog

Quelle coquille j'ai laissé filer!!! Mille excuses.