import de plusieurs fichiers

Bonjour,
j'ai des problèmes d'importation de fichier 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). il y a aussi des fichiers txt et doc dans le dossier
2- après l'import d'un fichier je veut le renommer avec ¤ devant. ou les
deplacés dans un dossier SAV
3- enfin passer au fichier suivant.
4- une fois que tout les fichiers sont traites finir le traitement.

Merci d'avance à ceux qui repondront.

Bonjour,

En complément de la réponse à ton post du 03/02/06, le code serait :
Sub xx()
Dim chemin As String, chaine As String
' Chemin à adapter
chemin = CurrentProject.Path & ""
chaine = Dir(chemin & "*.xls")
Do While chaine <> ""
If Left(chaine, 1) <> Chr(164) Then
' Importation format Excel 2000 car j'ai pas mieux
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
Left(chaine, Len(chaine) - 4), _
chemin & chaine, True
'Renommage du fichier avec le symbole ¤
Name chemin & chaine As chemin & Chr(164) & chaine
End If
' on boucle sur le fichier suivant
chaine = Dir
Loop
End Sub

Bonjour,
j'ai des problèmes d'importation de fichier 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). il y a aussi des fichiers txt et doc dans le dossier
2- après l'import d'un fichier je veut le renommer avec ¤ devant. ou
les deplacés dans un dossier SAV
3- enfin passer au fichier suivant.
4- une fois que tout les fichiers sont traites finir le traitement.

Merci d'avance à ceux qui repondront.

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

ok mais j'ai une erreur sur le Dir qui est en bas car il me dit.
et en fait ce prog me prend tout les fichier en rajoutant .xls à la fin

Bonjour,

En complément de la réponse à ton post du 03/02/06, le code serait :
Sub xx()
Dim chemin As String, chaine As String
' Chemin à adapter
chemin = CurrentProject.Path & ""
chaine = Dir(chemin & "*.xls")
Do While chaine <> ""
If Left(chaine, 1) <> Chr(164) Then
' Importation format Excel 2000 car j'ai pas mieux
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
Left(chaine, Len(chaine) - 4), _
chemin & chaine, True
'Renommage du fichier avec le symbole ¤
Name chemin & chaine As chemin & Chr(164) & chaine
End If
' on boucle sur le fichier suivant
chaine = Dir
Loop
End Sub

Bonjour,
j'ai des problèmes d'importation de fichier 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). il y a aussi des fichiers txt et doc dans le dossier
2- après l'import d'un fichier je veut le renommer avec ¤ devant. ou
les deplacés dans un dossier SAV
3- enfin passer au fichier suivant.
4- une fois que tout les fichiers sont traites finir le traitement.

Merci d'avance à ceux qui repondront.

en fait j'ai une erreur quand je veux ouvrir le deuxieme fichier il me
dit qu'il est introuvable alors qu'il y est bien

ok mais j'ai une erreur sur le Dir qui est en bas car il me dit.
et en fait ce prog me prend tout les fichier en rajoutant .xls à la fin

Bonjour,

En complément de la réponse à ton post du 03/02/06, le code serait :
Sub xx()
Dim chemin As String, chaine As String
' Chemin à adapter
chemin = CurrentProject.Path & ""
chaine = Dir(chemin & "*.xls")
Do While chaine <> ""
If Left(chaine, 1) <> Chr(164) Then
' Importation format Excel 2000 car j'ai pas mieux
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
Left(chaine, Len(chaine) - 4), _
chemin & chaine, True
'Renommage du fichier avec le symbole ¤
Name chemin & chaine As chemin & Chr(164) & chaine
End If
' on boucle sur le fichier suivant
chaine = Dir
Loop
End Sub

Bonjour,
j'ai des problèmes d'importation de fichier 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). il y a aussi des fichiers txt et doc dans le dossier
2- après l'import d'un fichier je veut le renommer avec ¤ devant. ou
les deplacés dans un dossier SAV
3- enfin passer au fichier suivant.
4- une fois que tout les fichiers sont traites finir le traitement.

Merci d'avance à ceux qui repondront.

re,

Bizarre car avec juste ces lignes, je ne récupère que les fichiers .xls
du répertoire défini.
En mettant un point d'arrêt sur Do While Chaine ... tu devrais voir ce
que cette variable contient et ça ne doit être que des fichiers xls

Sub xx()
Dim chemin As String, chaine As String
' CurrentProject.Path est le chemin de Mes Documents
' qui contient des répertoires et multitude de fichiers
' en tout genre (doc, mdb, xls, rtf, txt, pdf ...)
chemin = CurrentProject.Path & ""
chaine = Dir(chemin & "*.xls")
Do While chaine <> ""
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
Left(chaine, Len(chaine) - 4), _
chemin & chaine, True
chaine = Dir
Loop
End Sub

ok mais j'ai une erreur sur le Dir qui est en bas car il me dit.
et en fait ce prog me prend tout les fichier en rajoutant .xls à la fin

Bonjour,

En complément de la réponse à ton post du 03/02/06, le code serait :
Sub xx()
Dim chemin As String, chaine As String
' Chemin à adapter
chemin = CurrentProject.Path & ""
chaine = Dir(chemin & "*.xls")
Do While chaine <> ""
If Left(chaine, 1) <> Chr(164) Then
' Importation format Excel 2000 car j'ai pas mieux
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
Left(chaine, Len(chaine) - 4), _
chemin & chaine, True
'Renommage du fichier avec le symbole ¤
Name chemin & chaine As chemin & Chr(164) & chaine
End If
' on boucle sur le fichier suivant
chaine = Dir
Loop
End Sub

Bonjour,
j'ai des problèmes d'importation de fichier 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). il y a aussi des fichiers txt et doc dans le dossier
2- après l'import d'un fichier je veut le renommer avec ¤ devant. ou
les deplacés dans un dossier SAV
3- enfin passer au fichier suivant.
4- une fois que tout les fichiers sont traites finir le traitement.

Merci d'avance à ceux qui repondront.

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

re,
en fait mon soucis vient du nom de certains fichier on dirait il les
trouve puis quand je les ouvre il me dit que le fichier est introuvable..

re,

Bizarre car avec juste ces lignes, je ne récupère que les fichiers .xls
du répertoire défini.
En mettant un point d'arrêt sur Do While Chaine ... tu devrais voir ce
que cette variable contient et ça ne doit être que des fichiers xls

Sub xx()
Dim chemin As String, chaine As String
' CurrentProject.Path est le chemin de Mes Documents
' qui contient des répertoires et multitude de fichiers
' en tout genre (doc, mdb, xls, rtf, txt, pdf ...)
chemin = CurrentProject.Path & ""
chaine = Dir(chemin & "*.xls")
Do While chaine <> ""
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
Left(chaine, Len(chaine) - 4), _
chemin & chaine, True
chaine = Dir
Loop
End Sub

ok mais j'ai une erreur sur le Dir qui est en bas car il me dit.
et en fait ce prog me prend tout les fichier en rajoutant .xls à la fin

Bonjour,

En complément de la réponse à ton post du 03/02/06, le code serait :
Sub xx()
Dim chemin As String, chaine As String
' Chemin à adapter
chemin = CurrentProject.Path & ""
chaine = Dir(chemin & "*.xls")
Do While chaine <> ""
If Left(chaine, 1) <> Chr(164) Then
' Importation format Excel 2000 car j'ai pas mieux
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, _
Left(chaine, Len(chaine) - 4), _
chemin & chaine, True
'Renommage du fichier avec le symbole ¤
Name chemin & chaine As chemin & Chr(164) & chaine
End If
' on boucle sur le fichier suivant
chaine = Dir
Loop
End Sub

Bonjour,
j'ai des problèmes d'importation de fichier 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). il y a aussi des fichiers txt et doc dans le dossier
2- après l'import d'un fichier je veut le renommer avec ¤ devant.
ou les deplacés dans un dossier SAV
3- enfin passer au fichier suivant.
4- une fois que tout les fichiers sont traites finir le traitement.

Merci d'avance à ceux qui repondront.