Modifer le nom d'un champ

[jmde]

Bonjour,

J’intègre dans une table Access par « DoCmd.TransferSpreadsheet acImport »
des données d’une table Excel, mais certain nom de champ d’Excel sont long
et je voudrais les modifier lors de l’intégration des données.

Y à-t’il une solution en vba ? Si oui comment ?

Merci pour votre aide.

Salutations

 

[juju_69]

Re : Modifer le nom d'un champ

Bonjour,

Tes champs sont sur la 1ere ligne j'imagine ?

Tu peux faire :

Sub Raccourcir()
Dim i as integer
For i = 1 To Range("IV1").End(xlToLeft).Column
If Len(Cells(1, i).Value) > 25 Then Cells(1, i).Value = Left(Cells(1, i), 25)
Next
End Sub

ou 25 est la longueur max

@ +

Juju

 

[jmde]

Re : Modifer le nom d'un champ

Bonjour juju_69,

Merci pour ta réponse, mais mes connaissances en Excel sont limitées,
et je ne pourrai pas exploiter tout seul ton code.

Mon problème est de pouvoir renommer le contenu de ces colonnes R1, AC1, AD1, AE1, AF1, qui servent de titres par un autre nom, avant de transférer les données dans la table Access.

Début du code :

'--- Préparer la boîte de dialogue Ouvrir
     Set fd = Application.FileDialog(msoFileDialogFilePicker)
     fd.Title = "Choisissez un classeur"
     fd.InitialFileName = "*.xls"
     fd.AllowMultiSelect = True
     
'--- Personnaliser la liste déroulante Type de fichier
     fd.Filters.Clear
     fd.Filters.Add "Fichiers Excel", "*.xls"
     fd.Filters.Add "Tous les fichiers", "*.*"
     fd.FilterIndex = 1

'--- Ouvrir la boîte de dialogue
     If fd.Show = 0 Then
     
'--- L'action a été annulée
     Set fd = Nothing
     Exit Sub
End If

'--- Ouverture de l'application
     Set xlApp = CreateObject("Excel.Application")
     xlApp.Visible = False
     
  Set xlw = xlApp.ActiveWorkbook      '--- Récupération du classeur par défaut
     
'--- Ouvrir chaque document sélectionné et le traiter
     For Each varFichier In fd.SelectedItems
     xlApp.Workbooks.Open (varFichier)

[COLOR="Red"]Traitement pour modifier les titres R1, AC1, AD1, AE1, AF1 [/COLOR]

'--- Passer à la partie Importation Feuille
     DoCmd.TransferSpreadsheet acImport, _
         acSpreadsheetTypeExcel9, "tbl Adhérents", varFichier, True, strFeuille & "!A1:AD20000"

Merci pour votre aide.

Salutations

 

[juju_69]

Re : Modifer le nom d'un champ

Euh là je vois pas trop... dsl je passe la main

 

[jmde]

Re : Modifer le nom d'un champ

Bonjour,

Je continu mes recherches sans succès.

J’ai essayé ce code rudimentaire, en débogage pas à pas je passe sur toutes les lignes
Mais aucunes modifications ne se fait sur ma feuille. Pour quelle raisons ?

With ActiveWorkbook.Sheets("Liste")
  
  .Range("R1").ClearContents
  .Range("R1").Value = "Nouveau nom"
   
  .Range("AC1").ClearContents
  .Range("AC1").Value = "Nouveau nom"
  
  .Range("AD1").ClearContents
  .Range("AD1").Value = "Nouveau nom"

  .Range("AE1").ClearContents
  .Range("AE1").Value = "Nouveau nom"
  
  .Range("AF1").ClearContents
  .Range("AF1").Value = "Nouveau nom"

End With

Salutations

 

[juju_69]

Re : Modifer le nom d'un champ

Hello,

Et çà en plus simple :

Sheets("Liste").Select
[R1] = "Nouveau nom1"
[AC1] = "Nouveau nom2"
[AD1] = "Nouveau nom3"
[AE1] = "Nouveau nom4"
[AF1] = "Nouveau nom5"

 

[jmde]

Re : Modifer le nom d'un champ

Bonjour juju_69,

ça donne erreur 2465 imposible de trouver le champ.

Salutations.

 

[juju_69]

Re : Modifer le nom d'un champ

Question bête mais tu as bien une feuille nommée "Liste" dans ton classeur ?

Tu es bien positionné sur ton classeur quand tu lances la macro ?

Je viens de retester, ok chez moi

 

[jmde]

Re : Modifer le nom d'un champ

Bonjour juju_69,

Je lance le code à partir d'un contrôle d'un formulaire Access
qui se trouve dans ma base de donné.

Salutations

 

[juju_69]

Re : Modifer le nom d'un champ

çà veut dire que tu as d'ouvert le fichier access et le fichier excel ?

Si oui il faut que tu actives ton classeur au préalable, puis tu sélectionnes ta feuille

 

[jmde]

Re : Modifer le nom d'un champ

Bonsoir,

Oui bien sur ,d'ailleur j'ai mis mon code sur le post 3
mais je ne sais pas s'il est correct pour faire la modif des champs.

Par contre je suis sur qu'il marche car lorsque je fais la modif des champs manuellement et que je lance le code le "DoCmd.TransferSpreadsheet acImport" fonctionne bien.

Salutations

 

[juju_69]

Re : Modifer le nom d'un champ

çà doit être lié au fait d'appeler la macro via access et là je t'avoue que j'y connais rien^^

 

[jmde]

Re : Modifer le nom d'un champ

Bonjour juju_69

Merci de t’être occupé de mon problème j’espère que les spécialistes Excel/Access vont me réponse car je suis vraiment coincé par ce problème.

Salutations.

 

[skoobi]

Re : Modifer le nom d'un champ

Bonjour juju 69, jmde,

Si j'ai bien suivi, essaye ceci:

'--- Ouvrir chaque document sélectionné et le traiter
     For Each varFichier In fd.SelectedItems
     xlApp.Workbooks.Open (varFichier)
[B]With xlApp.Workbooks(varFichier).Sheets("liste")[/B]  
  .Range("R1").ClearContents
  .Range("R1").Value = "Nouveau nom"
   
  .Range("AC1").ClearContents
  .Range("AC1").Value = "Nouveau nom"
  
  .Range("AD1").ClearContents
.....
.........
...

 

[jmde]

Re : Modifer le nom d'un champ

Bonjour skoobi,

Merci pour ta réponse, je vais essayer ce code.

Salutations.