Renommer des colonnes excel Résolu

Question

Bonjour tout le monde, 

J'ai un tableur Excel qui est éditer en automatique par un logiciel de pointage. 

Je dois ensuite importer ce tableur sur une base de données Access qui me permet d'exploiter ces données. 

Le souci est que le nom donné à mes colonnes Excel n'est pas satisfaisant et ils ne correspondent pas à ceux que j'ai donnée sous Access. 

J'aimerais grâce à une maccro remplacer les colonnes : 

"date_effet" par "DatePointage"
"C_Charge" par "RefC_Charge"
"Employé" par "RefEmploye"
"Exé_réel" par "TpsReel"

J'aimerai automatiser cette étape pour faciliter l'importation des données sur la base de données Access car je dois réaliser cette importation très souvent. 

Merci d'avance. 

PS : Je me débrouille en Access/Excel mais c'est mes débuts en VBA.

g · Answer

Bonjour,

Depuis l'Editeur VBA, en supposant que les titres de colonnes sont en A1, B1, C1, D1,
Code VBA à copier dans un module standard:

Sub ChangNomColonnes()
Range("A1") = "DatePointage"
Range("B1") = "RefC_Charge"
Range("C1") = "RefEmploye"
Range("D1") = "TpsReel"
End Sub

La macro est alors commandée depuis Outils > Macros > Macros...  > ChangNomColonnes

Et si tu veux lier la macro à une cellule pour faciliter sa commande tu copies le code suivant  dans le module de feuille:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$F$1" Then
ChangNomColonnes
End If
End Sub

pour la cellule F1 à cliquer.

Cordialement.

maxime 25 · Answer

Merci beaucoup Monsieur g, ca marche parfaitement. 

Etant donné la rapidité de votre réponse et la qualité de la réponse, je me permet d'en poser une seconde. 

Est-il possible de lancer mes maccro Excel depuis Access et ensuite d'importer mon fichier Excel sur access grâce à une maccro. 

Les 2 macro Excel à réaliser sont : 

- La suppression de colonnes inutiles sur mon fichier Excel 
- Renommer les colonnes

Ces 2 macro marche, je voudrai juste savoir si c'est possible de lancer les macro et d'importer le fichier sur Access grâce à une commande sur Access. 

Merci d'avance.

g · Answer

C'est sans aucun doute possible mais mes connaissances en ACCESS sont trop limitées pour donner suite à ta demande.
Par contre je te conseille de poser ta question sur le forum Bureautique / Access.

Cordialement.

lermite222 · Answer

Bonjour,
Un début de piste
A+

maxime 25 · Answer

Bonjour, 

Merci pour le début de piste mais je ne parviend pas à le comprendre :/

lermite222 · Answer

Re,
Ajouter un module VBA dans Access.
Ajouter la référence comme indiquer dans la démo.
Ton code devrait être plus ou moins comme..
 Sub AjouterExcel()
    Set EX = CreateObject("Excel.application")
    EX.Visible = True
    Set Book = EX.Workbooks.Open("C:\Repertoire\NomClasseur.xls")
    'Toutes les fonctions Application sont disponibles avec BooK
    Set Feuille = Book.Sheets("NomDeLaFeuille")
    'Exemple:
   
    With Feuille
        'ICI tu met les codes pour actualiser les colonnes
        'Et le code pour importer les données.
    End With
    'Toutes les fonctions excel sont disponibles avec Feuille.
End SubA+

maxime 25 · Answer

Bonjour merci pour la réponse j'en ai bien pris note mais un problème m'oblige à travailler sur un autres sujet je testerai prochainement et je vous tiens au courant !

Merci

Renommer des colonnes excel

7 réponses

Discussions similaires

Newsletters