Insérer ligne dans un fichier EXCEL à partir d'ACCESS
Splitfire
-
Splitfire -
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
Merci
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
Merci
1 réponse
-
J'ai une commande qui importe les données d'un fichier EXCEL vers ma table Access.
Mon code :
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
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.
