Macro export excel vers excel

Version imprimable

22/02/2010, 11h54
Julien59

Macro export excel vers excel

Bonjour à tous,

Je voudrais savoir s'il était possible d'exporter des données d'un fichier excel vers un autre via une macro.

Je m'explique :
Je suis dans mon fichier (que je veux envoyer dans l'autre fichier sans l'ouvrir)
Je voudrais créer une macro qui fait la chose suivante :
Admettons que j'ai 1 ligne dans mon fichier1 que je veux exporter n fois dans mon fichier2. Je veux que les lignes dans le fichier 2 soient toutes présentes.
envoi 1 : ligne 1
envoi 2 : ligne 2 ... etc

Je ne veux pas ouvrir le fichier2 lors de l'envoi.

Pouvez vous m'aider ? :)

Merci :roll:

Julien
22/02/2010, 13h55
rvtoulon

Slt,
As-tu pensé à regarder la FAQ : http://excel.developpez.com/faq/?pag...lasseursFermes

Si tu fais une recherche sur ce forum tu trouveras aussi de nombreux sujets qui s'apparentent à ta question ;)

@+

Merci :)

J'avais déjà fait une recherche mais les mots clés devaient être mauvais...

Par contre je rencontre une erreur :
Erreur d'exécution '9' : "L'indice n'appartient pas à la sélection"

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
Sub exportDonneeDansCelluleClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Cd As ADODB.Command
    Dim Rst As ADODB.Recordset
    Dim Fichier As String
 
    Fichier = "C:\Documents and Settings\jlizzul\Bureau\doc utiles\Fiche_Client_collab VT01.xls"
 
    Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";" & _
        "Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set Cd = New ADODB.Command
    i = 2
        While Sheets("Tableau_collab").Range("A" & i).Value <> ""
    i = i + 1
        Wend
    Cd.ActiveConnection = Cn
    Cd.CommandText = "SELECT * FROM [Sheets('Tableau_collab').Range ('A' & i)]"
    Set Rst = New ADODB.Recordset
    Rst.Open Cd, , adOpenKeyset, adLockOptimistic
    Rst(0).Value = "Feuil1$B1"
    Rst.Update
 
    Cn.Close
    Set Cn = Nothing
    Set Cd = Nothing
    Set Rst = Nothing
End Sub

Je tiens à préciser que je débute complètement en macro excel :aie:

23/02/2010, 18h05
rvtoulon

Slt,
Peux-tu nous dire sur quel ligne ce situe l'erreur stp. Pour cela, dans l'éditeur vba appuie sur F8 autant de fois de suite jusqu'a ce que l'erreur se produise.
merci, j'suis pas sur de pouvoir t'aider mais on ne sait jamais :mrgreen:
24/02/2010, 10h06
Julien59

J'ai changé de méthode donc c'est pas grave si on ne trouve pas la solution à mon problème, mais pour la culture personnelle ca peut toujours être sympa :)

l'erreur se situe ici :

Code:

While Sheets("Tableau_collab").Range("A" & i).Value <> ""

Pour info, j'ai testé Cells(i,1) à la place de Range("A" & i).

Merci de ta réponse :ccool:

Bonjour à tous,

Ce genre d'erreur signifie que la feuille que tu indique n'est pas trouvée, sans doute une erreur dans l'orthographe de la feuille "Tableau_collab".

Pour vérifier tu peux faire :
Code:

1 2 3 4 5 6 7 8 Dim Fl as worksheet For Each Fl In Sheets Debug.print "Nom : " F1.Name If Mydel Then ' tu recupère le nom dans la fenetre Execution CTRL + G Next ' ' ou plus simple encore : msgbox worksheets("Tableau_collab").range("A1")

24/02/2010, 15h30
Julien59

Merci :)

J'ai un autre problème maintenant :

Code:

Cd.CommandText = "SELECT * FROM [Sheets("Tableau_collab").Range ('A' & i)]"

Il y a un problème avec les guillemets je suppose... J'ai essayé de mettre des doubles guillemets, mais ca n'a pas marché mieux.
01/03/2010, 13h42
aalex_38

Bonjour,

Peut être ce lien pourra-t-il t'aider ?