Exporer des valeurs dans une fichier fermé.

**guigui1976** · 09/02/2011, 17h30

Bonjour, aprés avoir lu et relu http://silkyroad.developpez.com/VBA/...sFermes/#LIV-B, je n'arrive pas à ecrire une plage de cellule à la premiere cellule vide de la colonne B.
Est-il possible de faire ceci dans un fichier destination qui est nativement en lecture seul.
Je vous remercie de m'avoir lu et je vous souhaite une bonne journée.
Cordialement
Guillaume

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
Sub exportDonneeDansCelluleClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Cd As ADODB.Command
    Dim Rst As ADODB.Recordset
    Dim Fichier As String
    
    Fichier = "C:\Users\Moi\Desktop\1.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
    Cd.ActiveConnection = Cn
    Cd.CommandText = Range("A65536").End(xlUp).Row    
    Set Rst = New ADODB.Recordset
    Rst.Open Cd, , adOpenKeyset, adLockOptimistic
    Rst(0).Value = "Donnée test"
    Rst.Update
    
    Cn.Close
    Set Cn = Nothing
    Set Cd = Nothing
    Set Rst = Nothing
End Sub

**Theze** · 09/02/2011, 20h48

Bonsoir,

En ôtant la propriété "Lecture seule" avant l'inscription de la valeur et en la remettant une fois ceci fait. La recherche de la dernière ligne non vide est fait avec "ExecuteExcel4Macro" (c'est pas jeune mais ça marche encore pour Excel 2007, à voir pour ultérieur). Il y a sûrement une possibilité en ADO, je planche dessus. La connexion du classeur est faite dans une proc séparée pour plus de clarté mais adapte à tes besoins :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
Private Sub ConnectCLasseur(ConnectCL As Object, _
                            Fichier As String, _
                            Optional Rs)
 
    Set ConnectCL = CreateObject("ADODB.Connection")
 
    If Not IsMissing(Rs) Then
        Set Rs = CreateObject("ADODB.Recordset")
    End If
 
    ConnectCL.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & Fichier & ";" & _
              "Extended Properties=""Excel 8.0;HDR=NO;IMEX= 2;"""
 
End Sub
 
Sub Valeur()
 
    Dim ConnectCL As Object
    Dim Rs As Object
    Dim Classeur As String
    Dim NomFeuille As String
    Dim Plage As String
    Dim Valeur
    Dim DerCel As Integer
    Dim Dossier As String
 
    'chemin du classeur cible
    Classeur = "C:\Users\Moi\Desktop\1.xls"
    Dossier = Left(Classeur, InStrRev(Classeur, "\"))
 
 
    'nom de la feuille où se trouve la cellule
    NomFeuille = "Feuil1"
 
    'défini la ligne vide sous la dernière cellule non vide de la colonne A
    DerCel = ExecuteExcel4Macro("COUNTA('" & Dossier & _
                                "[" & Dir(Classeur) & "]" & _
                                NomFeuille & "'!R1C1:R65536C1)") + 1
 
    'cellule à mettre à jour
    'doit être définie comme "Ax:Ax"
    Plage = "A" & DerCel & ":A" & DerCel
 
    'valeur à inscrire
    Valeur = "Donnée test"
 
    'mets le classeur à "Normal" (ôte la lecture seule)
    SetAttr Classeur, 0
 
    'connecxion
    ConnectCLasseur ConnectCL, Classeur, Rs
 
    With Rs
 
        .CursorType = 1
        .LockType = 3
        .Open "SELECT * FROM `" & NomFeuille & "$" & _
        Plage & "` ", ConnectCL
        .Fields(0).Value = Valeur
        .Update
    End With
 
    ConnectCL.Close
 
    'remet le classeur à "Lecture seule"
    SetAttr Classeur, 1
 
    Set Rs = Nothing
    Set ConnectCL = Nothing
 
End Sub

Hervé.

**Theze** · 09/02/2011, 21h54

Re,

Avec une requête :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Sub Valeur()
 
    Dim ConnectCL As Object
    Dim Rs As Object
    Dim Classeur As String
    Dim NomFeuille As String
    Dim Plage As String
    Dim Valeur
    Dim DerCel As Integer
 
    'chemin du classeur cible
    Classeur = "C:\Users\Moi\Desktop\1.xls"
 
    'nom de la feuille où se trouve la cellule
    NomFeuille = "Feuil1"
 
    'défini la plage sur la colonne A pour la recherche du nombre
    'de cellules non vides
    Plage = "A1:A65536" 'adapter l'adresse
 
    'ouvre une première connecxion pour la recherche
    ConnectCLasseur ConnectCL, Classeur, Rs
 
    'défini la ligne vide sous la dernière cellule non vide de la colonne A
    Set Rs = ConnectCL.Execute("SELECT COUNT(*) FROM `" & NomFeuille & "$" & Plage & "` ")
    DerCel = Rs.Fields(0).Value + 1
 
    'cellule à mettre à jour, doit être définie comme "Ax:Ax"
    Plage = "A" & DerCel & ":A" & DerCel
 
    'valeur à inscrire
    Valeur = "Donnée test"
 
    'mets le classeur à "Normal" (ôte la lecture seule)
    SetAttr Classeur, 0
 
    'ferme le Recordset
    Rs.Close
 
    'puis le réouvre pour inscrire la valeur
    With Rs
 
        .CursorType = 1
        .LockType = 3
        .Open "SELECT * FROM `" & NomFeuille & "$" & Plage & "` ", ConnectCL
        .Fields(0).Value = Valeur
        .Update
 
    End With
 
    ConnectCL.Close
 
    'remet le classeur à "Lecture seule"
    SetAttr Classeur, 1
 
    Set Rs = Nothing
    Set ConnectCL = Nothing
 
End Sub

Hervé.

**guigui1976** · 10/02/2011, 15h52

Merci Hervé de m'avoir aidé hier soir .

Je n'ai pu me pencher sur ta solution que cette A.M., j'étais au travail cette nuit.

Je dois être un gros nigo, car je n'arrive pas du tout à faire fonctionné ton modèle.

J'ai les deux fichiers (la source & la destination) en pièces jointes.

Si tu avais la gentillesse de bien vouloir-y regarder
Pour la valeur à copie peut-on indiquer une plage de valeur ex. A1:g3
Merci
Guillaume

**guigui1976** · 10/02/2011, 15h58

Hier soir, un des administrateurs m'a fait remarquer que je ne me comportais pas correctement sur le forum.

Je tiens à m'excuser publiquement, Vous n'êtes pas des serviteurs, mais des âmes charitables qui, donne de leur temps de repos pour aider des gens comme moi.

Je tiens à vous remercier.

Veuillez SVP ne pas m'en tenir rigueur.

Guillaume

**guigui1976** · 11/02/2011, 19h12

Que signifi l'erreur " la table n'est pas dans le format attendu"?
Sur le code

Code :

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

1
2
3
 ConnectCL.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & Fichier & ";" & _
              "Extended Properties=""Excel 8.0;HDR=NO;IMEX= 2;"""

**Theze** · 11/02/2011, 19h45

Bonsoir,

Il te faut l"enregistrer en ".xls" (Excel 97 à 2003)

Comme j'ai mal lu ton message initial (valeur en colonne B) il te faut adapter :

Code :

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

1
2
3
4
 
Plage = "A1:A65536" en Plage = "B1:B65536"
et
Plage = "A" & DerCel & ":A" & DerCel en Plage = "B" & DerCel & ":B" & DerCel

Hervé.

**guigui1976** · 12/02/2011, 08h31

Merci Hervé pour ton aide mais j'ai vraiment besoin d'être sous excel 2010.
Effectivement en 2003 cela fonctionne trés bien.
Comment puis-je faire si je veux exporté une plage de donnée de type "a1:g13"ou la selection , cette macro ne sera pas dans le fichier initial mais dans un autre projet.
Cordialement
Guillaume

Exporer des valeurs dans une fichier fermé.

Macros et VBA Excel

Discussions similaires

Partager

Partager