Discussion :

[Julien59]

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

Julien

[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

@+

[Julien59]

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 :

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
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

[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

[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 :

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

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

[aalex_38]

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 :

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

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")