IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Modification fichier excel avant import


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Homme Profil pro
    Apprentit
    Inscrit en
    Septembre 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 26
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Apprentit
    Secteur : Alimentation

    Informations forums :
    Inscription : Septembre 2017
    Messages : 4
    Par défaut Modification fichier excel avant import
    Bonjour à tous !

    Etant nouveau dans l'apprentissage d'Access, j'ai trouvé judicieux d'aller chercher de l'aide auprès de gens qui pourrait surrement m'éclairer.
    Je vous prie donc de m'excusez si je n'utilise pas les bons termes.

    Je viens vers vous pour savoir si quelqu'un pourrait m'aider à modifier un fichier excel avant un import sur Access.
    Je m'explique.
    J'utilise une base sur Access avec laquelle par le biais d'un bouton, j'importe un fichier excel.
    J'utilise cette commande :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    oCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "NOMDELATABLE", "racineduficheraimporter+nom.xlsx", True.
    Les champs de la table sur Access et sur le fichier excel sont donc obligatoirement les mêmes (Sinon l'import ne fonctionnerai pas je pense...).

    Cependant, j'aimerai aujourd'hui continuer a importer ce fichier mais a cause d'une mise à jour du lieu où je telecharge le fichier excel; celui-ci a était modifier.
    Exemple : Un champ sur le fichier excel qui s'appelait "Date et heure" s'appel maintenant "Date/Heure".

    Il est possible de modifier sur access les champs de la table pour a nouveau importer; certe, mais ce n'est pas ce que je souhaites faire.
    Certains liens qui étaient utiles auparavant ne fonctionne plus du fait que les valeurs de certains champs on était modifier etc.. La base Access est a reverifier et à corriger si je ne truve pas de solution.

    J'ai donc pensé, par le biais du bouton d'import sur Access, a modifier le fichier excel par le biais d'une commande.
    Je voudrais transformer le xlsx recent en celui d'avant. Ce qui me permetterai de ne pas toucher aux liens dans ma base et de continuer comme avant son utilisation sans souci.

    J'espère avoir était clair...

    Je vous remercie d'avance et attend votre aide avec impatience !!

    A bientot !!

    Cordialement,
    FLAKK.

  2. #2
    Membre chevronné
    Inscrit en
    Février 2011
    Messages
    469
    Détails du profil
    Informations forums :
    Inscription : Février 2011
    Messages : 469
    Par défaut
    Bonjour,

    Je vois que en Utilisant MS Access, tu veux modifier un fichier Excel. C'est ton choix mais sache que il est plus facile de rester au sein d'une seule plateforme. Il est plus facile d'importer ton fichier Excel dans Access, éventuellement dans une table temporaire, d'utiliser MS Access pour modifier les données. Tu fais tout cela dans MS Access assez facilement.

    Maintenant si tu veux modifier ton fichier Excel depuis Access, c'est aussi possible. Il y a de nombreux tutoriels à ce sujet. Voici quelques lignes qui te donnent un exemple rudimentaire :
    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
    Function Modif_Excel()
    'Requires to define in Tools menu the reference to Microsoft Excel Object Library
    'Beware : this object library may be different from PC to PC : version 11 or 12 or..
    Dim objXL As Excel.Application
    Dim objWkbk As Workbook
    Dim objSht As Worksheet
     
    Dim R As Integer        'R = Row nbr in Excel sheet (I should not have to deal with more than 32000 rows !)
     
     
    Set objXL = CreateObject("Excel.Application")
     
    Set objWkbk = objXL.Workbooks.Open("C:/Temp/Test.xlsx")
     
    'The first sheet with data is the sheet called 'Musees'
    Set objSht = objWkbk.Worksheets("Feuille1")
     
    objXL.Visible = True
     
    If objSht.Cells(1, 5).Value = "Date/heure" Then
        objSht.Cells(1, 5).Value = "Date et heure"
    End If
     
     
     
    objWkbk.Save
    objWkbk.Close
    objXL.Quit
     
    Set objWkbk = Nothing
    Set objSht = Nothing
    Set objXL = Nothing
    End Function

Discussions similaires

  1. [Python 2.X] Compter des chiffres contenu dans un fichier CSV avant import Excel
    Par Invité dans le forum Général Python
    Réponses: 2
    Dernier message: 01/11/2014, 08h21
  2. alerte modification fichier Excel
    Par kong985 dans le forum Excel
    Réponses: 11
    Dernier message: 02/02/2009, 07h53
  3. Réponses: 8
    Dernier message: 09/10/2008, 16h28
  4. [VBA-E] modifier un fichier texte avant import
    Par hka75 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 04/04/2007, 21h13
  5. modif fichier Excel
    Par pimter dans le forum Balisage (X)HTML et validation W3C
    Réponses: 2
    Dernier message: 22/06/2006, 16h06

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo