Discussion :

[Splitfire]

Bonjour,
j'aurais besoin de votre aide. J'aimerais créer un bouton dans Access qui permet d'insérer à la ligne 1 une ligne vierge dans un fichier Excel et par la suite donner comme valeur à la cellule A1 : fiche B1 : nom C1 : prenom. J'aimerais que se soit invisible pour l'utilisateur. Est-ce que vous pouvez m'aider? J'ai fouillé un peu partout sur les forums et je ne trouve pas...
Fichier : C:\fichier.xls
Feuille : Sheet1

l_WorkSheet.Rows(1).Insert

Merci

[Splitfire]

J'ai une commande qui importe les données d'un fichier EXCEL vers ma table Access.

Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Importer_Click()
 
 
Dim varFeuilles As Variant
 
' Liste des feuilles Excel à importer
varFeuilles = Array("Sheet1")
' Importation proprement dite
ImportExcel pathfichier, varFeuilles, True, "T_INSCRIPTION"
 
 
End Sub

Et la fonction :

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
 
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
 
  DoCmd.SetWarnings False
  DoCmd.TransferSpreadsheet acImport, 8, "T_INSCRIPTION", strChemin, True, "A1:C2000"
  DoCmd.SetWarnings True
  MsgBox "Opération terminée !", vbInformation
  Exit Sub
 
ImportExcelErr:
  MsgBox "Erreur d'importation : " & Err.Description, vbExclamation
  Exit Sub
End Sub

Avec ce code, mon entête de colonne doit correspondre avec le nom de mon champ dans ma table T_INSCRIPTION. J'aimerais enregistrer A1:A2000 vers champ fiche, B1:2000 vers nom et C1:C2000 vers prenom.

[PipoWIL]

Bonjour,
Pour répondre à ton premier post : oui, c'est possible de modifier le fichier Excel avant de l'importer. Néanmoins, puis-je te proposer une solution plus simple ?

1. Tu importes ton fichier Excel dans une table temporaire dans MS Access.
2. Tu peux faire toutes les vérifications que tu veux sur cette table temporaire (format de date, valeur par défaut, ...)
3. Tu ajoutes (requête INSERT INTO) cette table à ta table de production qui elle aura les noms de colonnes appropriés.
4. tu détruis la table temporaire.

Tout ceci peut se faire facilement avec des requêtes.