Je dois en fait récupérer, dans un nombre indéterminé de fichiers excel 97
présent dans le même répertoire, toutes les cellules A1 de la feuille 1 pour
en écrire le contenu dans une table access, tout ceci à partir d'access 97
et en VBA.
Si vous avez des pistes de réflexion, je suis preneur.
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
Raymond [mvp]
Bonjour.
tu vas pouvoir fêter le 10e anniversaire d'access 97 ? tu sais qu'il n'est plus supporté depuis longtemps par Microsoft ? ce qu'il faut faire: une boucle pour obtenir le nom des fichiers excel, par la fonction Dir dans cette boucle faire un import par la commande DoCmd.TransferSpreadsheet de la plage a1:a1 j'espère que tout ça existait bien sous 97.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ PowerShell, une nouvelle approche de l'administration de l'environnement Windows http://www.comscamp.com/Tracker/Redirect.ashx?linkid_73b247-3260-4fed-861f-bb587f7ef413
"Jean-Marie VIGNEAUD" a écrit dans le message de news: f1acmf$k2s$ | Bonjour, | | Je travaille sur office 97. | | Je dois en fait récupérer, dans un nombre indéterminé de fichiers excel 97 | présent dans le même répertoire, toutes les cellules A1 de la feuille 1 pour | en écrire le contenu dans une table access, tout ceci à partir d'access 97 | et en VBA. | | Si vous avez des pistes de réflexion, je suis preneur. | | Merci d'avance | | Cordialement à tous, | | Jean-Marie | |
Bonjour.
tu vas pouvoir fêter le 10e anniversaire d'access 97 ? tu sais qu'il n'est
plus supporté depuis longtemps par Microsoft ?
ce qu'il faut faire:
une boucle pour obtenir le nom des fichiers excel, par la fonction Dir
dans cette boucle faire un import par la commande DoCmd.TransferSpreadsheet
de la plage a1:a1
j'espère que tout ça existait bien sous 97.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
PowerShell, une nouvelle approche de l'administration de l'environnement
Windows
http://www.comscamp.com/Tracker/Redirect.ashx?linkid_73b247-3260-4fed-861f-bb587f7ef413
"Jean-Marie VIGNEAUD" <jm.vigneaud@gironde.chambagri.fr> a écrit dans le
message de news: f1acmf$k2s$1@s1.news.oleane.net...
| Bonjour,
|
| Je travaille sur office 97.
|
| Je dois en fait récupérer, dans un nombre indéterminé de fichiers excel 97
| présent dans le même répertoire, toutes les cellules A1 de la feuille 1
pour
| en écrire le contenu dans une table access, tout ceci à partir d'access 97
| et en VBA.
|
| Si vous avez des pistes de réflexion, je suis preneur.
|
| Merci d'avance
|
| Cordialement à tous,
|
| Jean-Marie
|
|
tu vas pouvoir fêter le 10e anniversaire d'access 97 ? tu sais qu'il n'est plus supporté depuis longtemps par Microsoft ? ce qu'il faut faire: une boucle pour obtenir le nom des fichiers excel, par la fonction Dir dans cette boucle faire un import par la commande DoCmd.TransferSpreadsheet de la plage a1:a1 j'espère que tout ça existait bien sous 97.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ PowerShell, une nouvelle approche de l'administration de l'environnement Windows http://www.comscamp.com/Tracker/Redirect.ashx?linkid_73b247-3260-4fed-861f-bb587f7ef413
"Jean-Marie VIGNEAUD" a écrit dans le message de news: f1acmf$k2s$ | Bonjour, | | Je travaille sur office 97. | | Je dois en fait récupérer, dans un nombre indéterminé de fichiers excel 97 | présent dans le même répertoire, toutes les cellules A1 de la feuille 1 pour | en écrire le contenu dans une table access, tout ceci à partir d'access 97 | et en VBA. | | Si vous avez des pistes de réflexion, je suis preneur. | | Merci d'avance | | Cordialement à tous, | | Jean-Marie | |
Fabien
Bonjour,
Je travaille sur office 97.
Je dois en fait récupérer, dans un nombre indéterminé de fichiers excel 97 présent dans le même répertoire, toutes les cellules A1 de la feuille 1 pour en écrire le contenu dans une table access, tout ceci à partir d'access 97 et en VBA.
Si vous avez des pistes de réflexion, je suis preneur.
Merci d'avance
Cordialement à tous,
Jean-Marie
Bonjour Jean-Marie
Autre piste Sub Import_contenu_repertoire(Dossier As String) Dim rep, Nom_Tbl As String 'obtient le premier fichier ou répertoire qui est dans Dossier rep = Dir(Dossier & "*.xls", vbDirectory) 'boucle tant que le répertoire n'a pas été entièrement parcouru On Error GoTo Erreur Do While (rep <> "") 'teste si c'est un fichier ou un répertoire If (GetAttr(Dossier & rep) And vbDirectory) = vbDirectory Then 'MsgBox "Répertoire " & rep Else Nom_Tbl = Left(rep, Len(rep) - 4) DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Nom_Tbl, Dossier & rep, False ', rep & "!" ' Ajout d'un N° automatique pour conserver l'ordre des lignes DoCmd.RunSQL "ALTER TABLE [" & Nom_Tbl & "] ADD COLUMN [Numéro] COUNTER" 'découpage de la table en plusieurs table puisque une feuille de calcul contient plusieurs tableau Decoupe Nom_Tbl End If Suite: 'passe à l'élément suivant rep = Dir Loop GoTo Fin Erreur: DoCmd.RunSQL "INSERT INTO [Erreur import xls] ( [Nom Fichier], [Code erreur] ) SELECT '" & Dossier & rep & "' AS Fichier, " & Err.Number & " AS Erreur" ', '" & Err.Description & "' AS MesErr" Resume Suite Fin: End Sub
Tu adaptes. J'ai utilisé cette fonction pour créer autant de table que de tableau que contenait une feuille de calcul. voila
Bonjour,
Je travaille sur office 97.
Je dois en fait récupérer, dans un nombre indéterminé de fichiers excel 97
présent dans le même répertoire, toutes les cellules A1 de la feuille 1 pour
en écrire le contenu dans une table access, tout ceci à partir d'access 97
et en VBA.
Si vous avez des pistes de réflexion, je suis preneur.
Merci d'avance
Cordialement à tous,
Jean-Marie
Bonjour Jean-Marie
Autre piste
Sub Import_contenu_repertoire(Dossier As String)
Dim rep, Nom_Tbl As String
'obtient le premier fichier ou répertoire qui est dans Dossier
rep = Dir(Dossier & "*.xls", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
On Error GoTo Erreur
Do While (rep <> "")
'teste si c'est un fichier ou un répertoire
If (GetAttr(Dossier & rep) And vbDirectory) = vbDirectory Then
'MsgBox "Répertoire " & rep
Else
Nom_Tbl = Left(rep, Len(rep) - 4)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
Nom_Tbl, Dossier & rep, False ', rep & "!"
' Ajout d'un N° automatique pour conserver l'ordre des lignes
DoCmd.RunSQL "ALTER TABLE [" & Nom_Tbl & "] ADD COLUMN [Numéro]
COUNTER"
'découpage de la table en plusieurs table puisque une feuille de calcul
contient plusieurs tableau
Decoupe Nom_Tbl
End If
Suite:
'passe à l'élément suivant
rep = Dir
Loop
GoTo Fin
Erreur:
DoCmd.RunSQL "INSERT INTO [Erreur import xls] ( [Nom Fichier],
[Code erreur] ) SELECT '" & Dossier & rep & "' AS Fichier, " &
Err.Number & " AS Erreur" ', '" & Err.Description & "' AS MesErr"
Resume Suite
Fin:
End Sub
Tu adaptes. J'ai utilisé cette fonction pour créer autant de table que
de tableau que contenait une feuille de calcul.
voila
Je dois en fait récupérer, dans un nombre indéterminé de fichiers excel 97 présent dans le même répertoire, toutes les cellules A1 de la feuille 1 pour en écrire le contenu dans une table access, tout ceci à partir d'access 97 et en VBA.
Si vous avez des pistes de réflexion, je suis preneur.
Merci d'avance
Cordialement à tous,
Jean-Marie
Bonjour Jean-Marie
Autre piste Sub Import_contenu_repertoire(Dossier As String) Dim rep, Nom_Tbl As String 'obtient le premier fichier ou répertoire qui est dans Dossier rep = Dir(Dossier & "*.xls", vbDirectory) 'boucle tant que le répertoire n'a pas été entièrement parcouru On Error GoTo Erreur Do While (rep <> "") 'teste si c'est un fichier ou un répertoire If (GetAttr(Dossier & rep) And vbDirectory) = vbDirectory Then 'MsgBox "Répertoire " & rep Else Nom_Tbl = Left(rep, Len(rep) - 4) DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Nom_Tbl, Dossier & rep, False ', rep & "!" ' Ajout d'un N° automatique pour conserver l'ordre des lignes DoCmd.RunSQL "ALTER TABLE [" & Nom_Tbl & "] ADD COLUMN [Numéro] COUNTER" 'découpage de la table en plusieurs table puisque une feuille de calcul contient plusieurs tableau Decoupe Nom_Tbl End If Suite: 'passe à l'élément suivant rep = Dir Loop GoTo Fin Erreur: DoCmd.RunSQL "INSERT INTO [Erreur import xls] ( [Nom Fichier], [Code erreur] ) SELECT '" & Dossier & rep & "' AS Fichier, " & Err.Number & " AS Erreur" ', '" & Err.Description & "' AS MesErr" Resume Suite Fin: End Sub
Tu adaptes. J'ai utilisé cette fonction pour créer autant de table que de tableau que contenait une feuille de calcul. voila