Discussion :

[Berda]

Bonjour,

J'importe un fichier Excel dans ma base de données Access avec un code VBA :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub ImportExcel( _
  ByVal strChemin As String, _
  ByVal varFeuilles As Variant, _
  ByVal blnNoms As Boolean, _
  ByVal strTable As String _
  )
 
  ' Déclaration des variables
  Dim strFeuille As Variant
 
  ' Est-ce que le classeur Excel existe ?
  If Dir(strChemin) = "" Then
    MsgBox "Le classeur ['" & strChemin & "] est introuvable.", vbExclamation
    Exit Sub
  End If
 
  ' Vidage de la table si nécessaire
  On Error GoTo ImportExcelErr
  If MsgBox("Souhaitez-vous vider la table [" & strTable & "] avant l'importation ?", _
    vbQuestion + vbYesNo) = vbYes Then
    CurrentDb.Execute "DELETE * FROM [" & strTable & "];"
  End If
  ' Procédure d'importation
  For Each strFeuille In varFeuilles
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
      strTable, strChemin, blnNoms, strFeuille & "!"
  Next
 
  ' Un p'tit message pour terminer :-)
  MsgBox "Opération terminée !", vbInformation
  Exit Sub
 
ImportExcelErr:
  MsgBox "Erreur d'importation : " & Err.Description, vbExclamation
  Exit Sub
End Sub
 
Sub import()
 Dim varFeuilles As Variant
 
  ' Liste des feuilles Excel à importer
  varFeuilles = Array("stocks")
 
  ' Importation proprement dite
  ImportExcel "C:\\D\Desktop\NAE_stocks.xlsx", _
    varFeuilles, True, "stocks"
 
End Sub

Je souhaiterai modifier en VBA un des champs du fichier qui est de type texte sur excel en Integer dans ma base de donnée.

Avez vous des pistes ? Je n'ai jamais codé en VBA. Merci de votre aide.

[marot_r]

Bonjour.

Est-ce que cela te pose un problème ? D'après moi Access devrait faire la conversion sans souci.

Sinon, il faut passer par une table intermédiaire qui à la même structure que le fichier Excel puis faire une requête de conversion.
On ne peut pas changer le type des données lues dans Excel à la volée avec le TransferSpreadSheet.

Une autre solution est de "linker" le fichier Excel comme une table puis de faire une requête d'ajout.
Ce n'est pas toujours possible car cela dépend de la structure de ton Excel.

A+