Discussion :

[kernkraft]

Bonjour et joyeux Noel (un peu en retard).

J'aimerais recopier dans ma feuille active, une feuille provenant d'un fichier fermé, mais en ne prenant pas en compte les 4 premières lignes.
Je dois chaque jour effectuer cette opération et je souhaiterais automatiser cette opération avec un petit bouton qui automatiserait cette opération.
Je suis un novice en macro excel et je souhaiterais avoir un peu d'aide pour alléger ma tache au bureau.
J'ai joint 3 fichier pour que vous compreniez mes attentes.

Merci d'avance!

[Invité]

Bonsoir,

Vous pouvez déjà regarder ici :
http://silkyroad.developpez.com/VBA/ClasseursFermes/

Vous pourrez ensuite en cas de besoin, poser de nouvelles questions spécifiques.

[kernkraft]

J'arrive bien à copier une feuille d'un fichier fermé, à Ajouter un enregistrement (prédéfini). Je voudrais ajouter des enregistrements se trouvant dans un classeur fermé.

En effet pour ajouter en manuel, j'utilise la méthode

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
 
Sub ajoutEnregistrement()
    Dim Cn As ADODB.Connection
    Dim Fichier As String, Feuille As String, strSQL As String
    Dim LaDate As Date
    Dim PrixUnit As Integer
    Dim leNom As String, lePrenom As String
 
    Fichier = "C:\Base.xls"
    Feuille = "Feuil1"
 
    'Les données à insérer:
    LaDate = CDate("26/05/2006")
    leNom = "NomTest"
    lePrenom = "PrenomTest"
    PrixUnit = 40
 
    Set Cn = New ADODB.Connection
 
    With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With
 
    'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
    strSQL = "INSERT INTO [" & Feuille & "$] " _
        & "VALUES (#" & LaDate & "#, " & _
        "'" & leNom & "', " & _
        "'" & lePrenom & "', " & _
        PrixUnit & ")"
 
    Cn.Execute strSQL
 
    Cn.Close
    Set Cn = Nothing
End Sub

Il faudrait arriver à la transformer les valeurs à insérer en une connection à un classeur fermé et en un ajout des données lues.

Je comprends certains mécanisme depuis ma lecture sur les classeurs fermés, mais je ne suis pas encore assez bon pour pouvoir modifier le code correctement.