Discussion :

[frihat mohamed]

bonsoir forum
j'ai deux classeurs classeur 1nommé "book1 "
et classeur 2 nommé "book2" , je voudrais utiliser le classeur 1( colonne C feuille3) comme classeur source pour remplir des cellules de colonne A de feuille 1 dU classeur 2 , tout simplement je voudrais transférer les données entre deux classeur fermés par un code vba de classeur 1 vers classeur 2
merci

[PeyePo]

Bonjour

Je sais qu'il y a aussi un tutoriel sur ce site qui m'a été utile : http://silkyroad.developpez.com/VBA/ClasseursFermes/

[frihat mohamed]

j'ai déjà lit ce fichier mais j' ai peut pas adapter aucun code a mon cas.

j'ai trouvé ce code mais lors de l 'exécution j'ai trouvé l'erreur TYPE NOM DÉFINIE POUR le3 premiers variables

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
31
32
33
34
35
36
37
38
39
 
Sub extractionValeurCelluleClasseurFerme()
    Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Fichier As String, Cellule As String, Feuille As String
 
    'Adresse de la cellule contenant la donnée à récupérer
    Cellule = "B4:B4"
      'Pour une plage de cellules, utilisez:
      'Cellule = "A4:C10"
 
    Feuille = "Feuil1$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = "C:\Base.xls"
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set ADOCommand = New ADODB.Command
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
 
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
 
    Range("A2").CopyFromRecordset Rst
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Sub