Bonjour,
pour ceux qui s'y connaissent j'ai deux problème pour faire un import excel:
1- je suis dans un dossier <DOSSIER1> je veut importer tout les fichiers
excel dont le nom ne commence pas par un symbole précis ( ¤ en
l'occurence). COmment faire?
2- je veut faire un import un peu spécial: par exemple la valeur de la
cellule d12 doit aller dans le champs de ma table qui s'appelle Date.
comment faire?
Merci d'avance à ceux qui me répondront.
--
*********************************
* Pour répondre il faut enlever *
* -removeme dans l'adresse *
*********************************
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
Pour le 1, par exemple: Sub xx() Dim chemin As String, chaine As String chemin = CurrentProject.Path & "" ' A définir chaine = Dir(chemin & "*.xls") Do While chaine <> "" If Left(chaine, 1) <> Chr(164) Then DoCmd.TransferSpreadsheet acImport, _ acSpreadsheetTypeExcel9, _ Left(chaine, Len(chaine) - 4), _ chemin & chaine, True End If chaine = Dir Loop End Sub
Bonjour, pour ceux qui s'y connaissent j'ai deux problème pour faire un import excel: 1- je suis dans un dossier <DOSSIER1> je veut importer tout les fichiers excel dont le nom ne commence pas par un symbole précis ( ¤ en l'occurence). COmment faire? 2- je veut faire un import un peu spécial: par exemple la valeur de la cellule d12 doit aller dans le champs de ma table qui s'appelle Date. comment faire?
Merci d'avance à ceux qui me répondront.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Pour le 1, par exemple:
Sub xx()
Dim chemin As String, chaine As String
chemin = CurrentProject.Path & "" ' A définir
chaine = Dir(chemin & "*.xls")
Do While chaine <> ""
If Left(chaine, 1) <> Chr(164) Then
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
Left(chaine, Len(chaine) - 4), _
chemin & chaine, True
End If
chaine = Dir
Loop
End Sub
Bonjour,
pour ceux qui s'y connaissent j'ai deux problème pour faire un import
excel:
1- je suis dans un dossier <DOSSIER1> je veut importer tout les fichiers
excel dont le nom ne commence pas par un symbole précis ( ¤ en
l'occurence). COmment faire?
2- je veut faire un import un peu spécial: par exemple la valeur de la
cellule d12 doit aller dans le champs de ma table qui s'appelle Date.
comment faire?
Merci d'avance à ceux qui me répondront.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Pour le 1, par exemple: Sub xx() Dim chemin As String, chaine As String chemin = CurrentProject.Path & "" ' A définir chaine = Dir(chemin & "*.xls") Do While chaine <> "" If Left(chaine, 1) <> Chr(164) Then DoCmd.TransferSpreadsheet acImport, _ acSpreadsheetTypeExcel9, _ Left(chaine, Len(chaine) - 4), _ chemin & chaine, True End If chaine = Dir Loop End Sub
Bonjour, pour ceux qui s'y connaissent j'ai deux problème pour faire un import excel: 1- je suis dans un dossier <DOSSIER1> je veut importer tout les fichiers excel dont le nom ne commence pas par un symbole précis ( ¤ en l'occurence). COmment faire? 2- je veut faire un import un peu spécial: par exemple la valeur de la cellule d12 doit aller dans le champs de ma table qui s'appelle Date. comment faire?
Merci d'avance à ceux qui me répondront.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
