Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Importation conditionelle fichiers excel 2000 suR access 2000

Importation conditionelle fichiers excel 2000 suR access 2000

1 réponse
Avatar
ALF
Bonjour,
je voudrais importer tous les mois les 12 fichiers excel 2000 suivants:
1.xls , 2.xls ,3.xls ,.....12.xls via le repertoire c:\ACI\2005_NPAI ,en
sachant que certains peuvent ne pas etre la..
Comment faut il faire pour ignorer le fichier inexistant pour ne pas arreter
la procedure??..
je pensais àl'instruction DO WHILE...LOOP mais je ne sais pas comment
formuler celle ci..
Je vous laisse ci joint,l'ebauche de ma procedure...pourriez vousla
completer ou la modifier?? Merci de votre soutien..

DoCmd.SetWarnings False
DoCmd.Echo False, "MACRO EN COURS D 'EXECUTION......"
DoCmd.OpenTable "NPAI", acNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acTable, "NPAI"
Do While ????.....?????
DoCmd.TransferSpreadsheet acImport, 5, "NPAI",
"P:\ACI\2005_NPAI\1G0\1.xls", True, ""
Loop ???....???
DoCmd.OpenQuery "MAJ MOIS", acNormal, acEdit
Beep
MsgBox "TRAITEMENT TERMINE", vbInformation, "Importation NPAI Excel"

--
ALF
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Eric
Bonjour,

A vérifier le chemin car tu parles de c:ACI2005_NPAI et dans la
procédure de P:ACI2005_NPAI1G0

Un truc du genre :
Sub zz()
Dim NomFichier As String
DoCmd.SetWarnings False
DoCmd.Echo False, "MACRO EN COURS D 'EXECUTION......"
DoCmd.OpenTable "NPAI", acNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acTable, "NPAI"
' ----> Début Modif
For i = 1 To 12
NomFichier = "P:ACI2005_NPAI1G0" & i & ".xls"
If Dir(NomFichier) <> "" Then
DoCmd.TransferSpreadsheet acImport, _
5, "NPAI", NomFichier, True, ""
End If
Next i
' <---- Fin Modif
DoCmd.OpenQuery "MAJ MOIS", acNormal, acEdit
Beep
MsgBox "TRAITEMENT TERMINE", vbInformation, "Importation NPAI Excel"
End Sub

Bonjour,
je voudrais importer tous les mois les 12 fichiers excel 2000 suivants:
1.xls , 2.xls ,3.xls ,.....12.xls via le repertoire c:ACI2005_NPAI ,en
sachant que certains peuvent ne pas etre la..
Comment faut il faire pour ignorer le fichier inexistant pour ne pas arreter
la procedure??..
je pensais àl'instruction DO WHILE...LOOP mais je ne sais pas comment
formuler celle ci..
Je vous laisse ci joint,l'ebauche de ma procedure...pourriez vousla
completer ou la modifier?? Merci de votre soutien..

DoCmd.SetWarnings False
DoCmd.Echo False, "MACRO EN COURS D 'EXECUTION......"
DoCmd.OpenTable "NPAI", acNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acTable, "NPAI"
Do While ????.....?????
DoCmd.TransferSpreadsheet acImport, 5, "NPAI",
"P:ACI2005_NPAI1G01.xls", True, ""
Loop ???....???
DoCmd.OpenQuery "MAJ MOIS", acNormal, acEdit
Beep
MsgBox "TRAITEMENT TERMINE", vbInformation, "Importation NPAI Excel"



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