[Résolu] Mettre à jour des données à partir d'Excel

[ViniAsco]

Bonjour

J'ai créé une table à partir de données contenues dans un fichier Calc, mais je me rends compte que le remplissage fait par un collègue n'était pas des plus optimisé pour simplifier la création de requêtes.
Du coup, j'ai fait un copié/collé des valeurs vers Calc pour embarquer la clef primaire et puis j'ai optimisé ce remplissage.
Je voudrais maintenant actualiser les données de la table et je pensais qu'un copié/collé, en cochant "Ajouter de données" allait suffire, mais en fait la table reste dans son état initial.
Alors je pourrais refaire une table, mais ça impliquerait de reparamétrer tous les champs pour mettre le bon type de format, etc., donc bof.

Comment faire ?
Merci

[Dude]

Salut,

Du coup, j'ai fait un copié/collé des valeurs vers Calc pour embarquer la clef primaire et puis j'ai optimisé ce remplissage.

Ca ne marchera pas car une feuille de classeur (et encore pis si tu utilises un format propriétaire et fermé) n'est pas une vraie table.

[ViniAsco]

En fait ça fonctionne mais sans vraiment être une mise à jour des données.
En supprimant toutes les données de la base avant puis en collant celles venant de Calc ou d'Excel retravaillées, c'est bon.

[micmac]

Bonjour,

macOS 12

Veuillez indiquer la version complète de l'OS 12.6.6 par exemple.

Comment clore un sujet correctement lorsqu'il est résolu

[Dude]

En fait ça fonctionne mais sans vraiment être une mise à jour des données.

Donc ça ne fonctionne pas.

En supprimant toutes les données de la base avant puis en collant celles venant de Calc ou d'Excel retravaillées, c'est bon.

Donc en intégrant les données dans une vraie table, ça fonctionne.

CQFD

[nounours2]

@ ViniAsco

vinum bonum corpus laetificat

voire schémas ci-joint.

Slts

nounours2

[jeanmimi]

Bonjour,
Il y a plusieurs ressources dans le forum, commentant le passage de données depuis Calc vers Base, soit par Exportation depuis Calc, soit par Importation depuis Base.
Par exemple ici :
viewtopic.php?t=41847&hilit=Base+import ... %A9es+Calc

[nounours2]

@ ViniAsco

Le Grand Maître est intervenu à juste titre au sujet des automatismes...

Cependant, la méthode élémentaire illustrée en-dessus est valable aussi pour davantage de données.

Je vous invite donc à un aperçu du fil suivant viewtopic.php?t=67558.

Slts

nounours2

[ViniAsco]

Bonjour
Les captures données par nounours2 montrent comment créer une base depuis un tableur, ce qui ne me cause aucun problème.
Mais cette même méthode pour mettre à jour une base existante ne fonctionne pas chez moi. Ou plutôt si la mise à jour consiste en l'ajout de données, c'est bon, mais s'il s'agit de modifier des valeurs existantes, non.
Pour ce dernier point, je dois effacer la base avant.

Quant aux autres fils indiqués, ils font appel à des macros ou du code trop costauds pour mes compétences. Mais en plus et si je les ai bien compris, ils indiquent comment relier une base à un tableur, mais la méthode "ajout de données" fonctionne très bien une fois qu'on sait comment s'en servir.

[nounours2]

Cher Monsieur ViniAsco,

Fort de votre expérience dans le traitement de texte, où l'on peut substituer le même terme répété plusieurs fois avec un clic, j'ai le regret de vous annoncer q'avec une table de base c'est un peu comme chercher midi à quatorze heures...

Néanmoins, vu que vous connaissez si bien votre tableur, vous devriez donc savoir que vous pouvez y coller les données de l'ancienne table, et préparer la feuille pour un transfert de données dans une nouvelle table en suivant le schéma susmentionné.

Slts

nounours2

[Dolev]

Bonjour

Mais cette même méthode pour mettre à jour une base existante ne fonctionne pas chez moi.

N'ayant pas compris ce que vous cherchez à faire veuillez fournir un document visant à reproduire le problème

[Jurassic Pork]

Hello,

En fait ça fonctionne mais sans vraiment être une mise à jour des données.
En supprimant toutes les données de la base avant puis en collant celles venant de Calc ou d'Excel retravaillées, c'est bon.

En supprimant seulement les enregistrements qui doivent être mis à jour cela devrait fonctionner si les données collées contiennent l'ensemble des données des enregistrements.
Pour faire quelque chose de plus précis il faudrait faire une requête SQL Update qui permettrait de faire une "vraie" mise à jour et sans inclure obligatoirement toutes les données des enregistrements.
Ami calmant, J.P

[ViniAsco]

Merci de vos réponses.
Mes connaissances en SQL sont trop limitées pour la manipulation de bases.
Et finalement, et pour mon usage, ce que j'ai décrit plus haut ne prend guère de temps et me permet d'obtenir ce que je souhaite.
Bonne fin de semaine.

[micmac]

Veuillez indiquer la version complète de l'OS 12.6.6 par exemple.

Comment clore un sujet correctement lorsqu'il est résolu

[Jurassic Pork]

Hello,

Mes connaissances en SQL sont trop limitées pour la manipulation de bases.

voici un exemple de code Basic ( ce n'est pas le bon forum ici mais le code peut servir et contient du SQL ) qui met à jour un enregistrement d'une base de données à partir d'une feuille Calc. Sur cette feuille il y a une plage nommée Data . La première ligne de cette plage est constituée des noms des champs de la base, les lignes suivantes représentent les valeurs. La première colonne (0) est la clé primaire de la base.

Code : Tout sélectionner

Sub UpdateDatabase()
    Dim Context As Object, Db As Object, oHandler As Object, Conn As Object, Stmt As Object
    Dim DbName As String,  TableName As String, oResult As Object, StrSQL As String
    Context = CreateUnoService("com.sun.star.sdb.DatabaseContext")
    DbName = "GestionDéfunts"
    TableName = "TableDéfunts"
    Db = Context.getByName(DbName)
    oHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
    Conn = Db.ConnectWithCompletion(oHandler)
    'Conn = Db.getConnection("","") 'username & password pair - HSQL default blank
    Stmt = Conn.createStatement()       
     strSQL =  CreateUpdateQuery(TableName)
    Stmt.execute(strSQL)
    Conn.getParent().flush
    Conn.close()
End Sub

Function CreateUpdateQuery(TableName) As String
    Dim maFeuille As Object, Query As String
    Dim Champs, Data, col, row, cols, rows, cols2update
    cols2Update = Array(3,4,5,6) ' colonnes à mettre à jour
    maFeuille = ThisComponent.getCurrentController.getActiveSheet
    Champs =  maFeuille.getCellRangebyName("Data").getDataArray()
    cols = champs(0) ' 1ère ligne avec le nom des champs
    rows = champs(1) 'xème ligne avec les valeurs
    Query =  "UPDATE """ + TableName + """ SET "
    For each col in cols2Update
       if isnumeric(rows(col) ) then
             Query = Query +  """" + cols(col) + """ = "  + rows(col) + " , "
       else 
             Query = Query +  """" + cols(col) + """ = '"  + rows(col) + "' , "
       end if
    Next col
    Query = Left(Query,Len(Query) - 2)
    Query =  Query + " WHERE """ + cols(0) + """ = " + rows(0)
    CreateUpdateQuery = Query
End Function

Ami calmant, J.P

[ViniAsco]

Merci Jurassik Pork.
Je ne saurais même pas où copier/coller ce code . Je vais fouiner dans l'aide.
Bonne journée

[Oukcha]

Bonjour,

Comme le rappelle Jurassic Pork, cette section n'est pas consacrée aux macros (voir le bandeau rouge en haut de la page). Si vous avez à poursuivre dans cette voie, merci de poster dans la section Macros et API. Ceci dans un but de recherche efficace de l'information dans ce forum.

Cordialement