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

[docjo]

Je rappele l'objet de ma demande:
- la feuille GDS contient des données
- je les transpose dans une autre feuille (T_GDS) avec liaison et forcémment il y a des cellules avec des formules mais sans données qui affichent un zéro
-Le code que j'ai affiché me permet de ne sélectionner que les cellules n'affichant pas le zéro
-je dois exporter les données vers une table access (T_GDS) contenant déjà des données
-puis je vide la feuille GDS
Je ne suis pas trés fort en VBA. Je suis arrivé au stade où je copie les données dans le presse papier. Je suis désolé d'insister mais je cherche à coller les données du presse papier dans la table ! Mais peut-être n'est-ce pas possible.
Si j'utilise le code de la FAQ celà m'importe les plages contenant des formules mais pas forcémment les valeurs que je souhaite.
Merci pour vos conseils

[docjo]

Bonne année à tous

J'ai récupéré un bout de code qui m'intéresse:

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
Sub Export_Donnée()
 
'permet de controler la ligne où le fichier s'arrete
Range("A1").Select
Selection.End(xlDown).Select
Ligne = Selection.Row
 
'Défini ma base access et mon fichier excel
Dim MaBase As Object
Dim Fichier As String
Set MaBase = GetObject("Chemin complet de ma base access")
Fichier = ActiveWorkbook.FullName
 
On Error GoTo Error_Export:
MaBase.DoCmd.TransferSpreadsheet acImport, 8, "T_GDS", Fichier, True, "A1:X" & Ligne & ""'dans mon cas j'exporte de la cellule A1 à la Cellule X_Ligne
 
MsgBox "Exportation des données est effectuée correctement.", vbInformation, "Exportation": Exit Sub
 
'MaBase = Nothing
 
Error_Export:
MsgBox "Attention, un problème est survenu pendant l'exportation, merci de vérifier les données.", vbExclamation, "ERREUR Exportation": Exit Sub
 
End Sub

Peut-on changer changer cette expression "A1:X" & Ligne & "" pour ne sélectionner que les cellules contenant une formule et dont la valeur est différente de zéro ?