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.