Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: Importation fichier Excell dans Access

20/08/14 07:35
Merci pour la rapidite de ta reponse !

En fait la methode que j'utilise pour l'extractio excell en VBA est la suivante :

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 extraction()
Dim varFeuilles As Variant
Dim ajoute_colonne As String
Dim ChaineSQL, ajoute_numero_auto,

' Liste des feuilles Excel à importer
varFeuilles = Array("RTIMSN1")

' Importation proprement dite
ImportExcel "C:\Users\TSB7PE\Documents\RTI Übersicht.xls", _
varFeuilles, True, "Table1"

ajoute_numero_auto = "ALTER TABLE TempTable ADD COLUMN ID COUNTER"
DoCmd.RunSQL ajoute_numero_auto


Le fichier excell comporte plusieurs feuilles et un tableau excell comporte 114 lignes et 6 colonnes.( Ici je n'ai fait l importation que pour une seulle feuille MSN1) .Je voudrais creer un Numero auto pour ensuite incremnenter un champs( de la forme MSN001TB004). Le probleme est que le numero auto dans ma table Access ne s'arrete pas a la la ligne 114 comme je voudrais mais 160 lorsque je compile . Du coup je ne peux pas incremnenter la derniere valeur de mon champs.
SujetAuteurEnvoyé le

Importation fichier Excell dans Access

Gringo19/08/14 12:05

Re: Importation fichier Excell dans Access

Hervé Inisan19/08/14 17:07

Re: Importation fichier Excell dans Access

Gringo20/08/14 07:35

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter