Discussion :

[pat17]

Bonjour le forum,

J'espère être au bon endroit.

Je voudrais importer automatiquement à partir d'un fichier excel qui a toujours la même structure (5 colonnes) les données et les intégrer dans une table.

J'ai lu sur le forum une solution qui est de vider la table et ensuite d'importer les données dans la table vide.

Je n'ai pas trouvé de tuto la dessus. Je pensais faire un delete de la table en cliquant sur un bouton mais je ne connais pas la syntaxe pour faire l'import de données dans cette même table.

A moins qu'il existe une autre solution !!!

Merci de votre aide et bonne journée à tous

[tee_grandbois]

Bonsoir,
la solution est simple et peut être exécutée effectivement sur clic d'un bouton. Voici, brut de fonderie comment faire :

Code :

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

1
2
3
4
 
Docm.RunSql "DELETE * FROM TableaAlimenter"
 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "TableaAlimenter", "FichierExcelAvecCheminComplet", True

acSpreadsheetTypeExcel9 : paramètre indiquant la version d'Excel du classeur.
True : si la première ligne contient les noms des colonnes, sinon False.

[pat17]

Bonjour le forum et merci tee_grandbois pour ton aide.

J'ai essayé le code que tu m'as donné mais j'ai une "erreur d'execution 424 objet requis".

C'est peut être un problème avec la version d'excel

Code :

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

acSpreadsheetTypeExcel9

Moi, c'est excel 2002. Comment faut il le libeller dans le code?

Bonne journée

[pat17]

Re,

J'ai trouvé la solution

Code :

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

1
2
3
4
5
6
Private Sub Commande1_Click()
 
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM [Table agents]", 0
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table agents", "D:\modifs.xls", True
End Sub

Par contre, comment afficher un message d'alerte avant la mise à jour du genre "Attention vous allez mettre à jour la table"

Merci de votre aide et bonne journée

[Bernard67]

Voila:

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
Private Sub Commande1_Click()
 
Select Case MsgBox("Nous sommes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "Voulez vous recharger la table agents ?", vbOKCancel

Case vbOK

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM [Table agents]", 0
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table agents", "D:\modifs.xls", True

DoCmd.SetWarnings True

MsgBox "La mise à jour dela table agents est terminée"

Case vbCancel
End Select

End Sub

[Bernard67]

Il manque une ) à la fin de la ligne 2 après vbokcancel

[pat17]

Bonjour Bernard67 et merci de ton aide.

C'est exactement ce que je voulais

Par contre, j'ai vu que tu mettais aussi la date.

Comment puis je faire pour récupérer la date de la mise à jour afin de l'afficher à côté de mon bouton.

Je pensais mettre une zone de texte qui serait mise à jour lors de l'import.

Mais j'ai aucune idée de la syntaxe ou de la façon de procéder.

Bonne journée

[Bernard67]

Re :
Dans les fichiers que j'importe, il y a une colonne avec les dates. Tu peux peut etre proceder ainsi en ajoutant une colonne.
La date du jour figure dans le message.
Tu peux aussi faire une requete Mise à Jour pour la date.
Il y a certainement d'autres solutions