Discussion :

[docjo]

RE-bonjour le forum

J'ai fait un essai qui me permet de copier une plage d'une feuille T_GDS pour la coller comme nouvel enregistrement dans une table access du même nom et avec les même champs.
Puis-je faire la même chose avec un bout de code depuis excel ?
Merci d'avance

[SilkyRoad]

bonjour


Comment ajouter un enregistrement dans une table Access?


bonne journée
michel

[docjo]

Merci pour la réponse que j'avais déjà parcouru, mais il ne s'agit pas d'ajouter un enregistrement mais bien de faire copier/ coller dans un table access. La méthode qui suit le lien me sélectionne toutes les valeurs de la feuille. Moi je ne veux copier / coller que les valeurs sélectionnées par le code suivant:

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
 Dim c, firstAddress As Variant
Dim mescellules As String
 
 
With Worksheets("T_GDS").Range("a2:Q180")
    Set c = .Find("*", LookIn:=xlValues, Lookat:=xlWhole) '
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            If c.Value <> 0 Then
                If mescellules = "" Then
                mescellules = c.Address(0, 0)
                Else
                mescellules = mescellules & "," & c.Address(0, 0)
                End If
            End If
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Range(mescellules).Select
 
        Selection.Copy

Ce code me permet de ne sélectionner que les cellules contenant des formules mais dont le résultat est différent de 0.
Merci encore

[SilkyRoad]

rebonjour

J'ai fait un essai qui me permet de copier une plage d'une feuille T_GDS pour la coller comme nouvel enregistrement dans une table access du même nom et avec les même champs.
Puis-je faire la même chose avec un bout de code depuis excel ?

il ne s'agit pas d'ajouter un enregistrement mais bien de faire copier/ coller dans un table access.

Tu peux repréciser ?


michel

[docjo]

La méthode décrite dans la FAQ exporte une feuille excel complète. Pour ce que je veux faire, je sélectionne une plage excel selon un contenu précis que je voudrai coller tel quel dans une table access. Je l'ai fait "manuellement" et ça marche (mon code sélectionne la plage voulue de cellules excel et la copie puis j'ouvre la table dans access et CTRL + V)
J'imagine qu'il existe une fonction paste et une syntaxe qui précise la table et l'ajout en nouvel enregistrement mais je ne suis pas assez doué pour la connaitre.

[SilkyRoad]

La méthode décrite dans la FAQ exporte une feuille excel complète.

Tu n'as pas lu la bonne question dans la FAQ ...


bon après midi
michel