Bonjours à vous
Sous excel si je souhaite importer un fichier texte en utilisant une boite
de dialogue j'utilise une commande simple :
Application.GetOpenFilename
Peut on dans le même esprit (simplicité, rapidité) importer un fichier texte
dans une table au moyen d'une boite de dialogue quant à sa selection en
utilisance la commande DoCmd.TransferText par exemple
Cette commande associé au chemin du fichier fonctionne sans difficulté mais
avec une boite de dialogue pour aller le sélectionner les ennuis commencent
Merci pour vos suggestions
Bonjours à vous
Sous excel si je souhaite importer un fichier texte en utilisant une boite
de dialogue j'utilise une commande simple :
Application.GetOpenFilename
Peut on dans le même esprit (simplicité, rapidité) importer un fichier texte
dans une table au moyen d'une boite de dialogue quant à sa selection en
utilisance la commande DoCmd.TransferText par exemple
Cette commande associé au chemin du fichier fonctionne sans difficulté mais
avec une boite de dialogue pour aller le sélectionner les ennuis commencent
Merci pour vos suggestions
Bonjours à vous
Sous excel si je souhaite importer un fichier texte en utilisant une boite
de dialogue j'utilise une commande simple :
Application.GetOpenFilename
Peut on dans le même esprit (simplicité, rapidité) importer un fichier texte
dans une table au moyen d'une boite de dialogue quant à sa selection en
utilisance la commande DoCmd.TransferText par exemple
Cette commande associé au chemin du fichier fonctionne sans difficulté mais
avec une boite de dialogue pour aller le sélectionner les ennuis commencent
Merci pour vos suggestions
Bonjour,
Aussi simple et rapide je ne sais pas, mais une idée quand même:
Utiliser l'API OpenFile() pour ouvrir la boite de dialogue de choix de
fichier et récupérer le fichier puis lancer derrière la commande
TransferText en fonction de la valeur récupérée (0 si annulation).
L'API ici : http://officesystem.access.free.fr/apiopenfile.htmBonjours à vous
Sous excel si je souhaite importer un fichier texte en utilisant une boite
de dialogue j'utilise une commande simple :
Application.GetOpenFilename
Peut on dans le même esprit (simplicité, rapidité) importer un fichier texte
dans une table au moyen d'une boite de dialogue quant à sa selection en
utilisance la commande DoCmd.TransferText par exemple
Cette commande associé au chemin du fichier fonctionne sans difficulté mais
avec une boite de dialogue pour aller le sélectionner les ennuis commencent
Merci pour vos suggestions
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Aussi simple et rapide je ne sais pas, mais une idée quand même:
Utiliser l'API OpenFile() pour ouvrir la boite de dialogue de choix de
fichier et récupérer le fichier puis lancer derrière la commande
TransferText en fonction de la valeur récupérée (0 si annulation).
L'API ici : http://officesystem.access.free.fr/apiopenfile.htm
Bonjours à vous
Sous excel si je souhaite importer un fichier texte en utilisant une boite
de dialogue j'utilise une commande simple :
Application.GetOpenFilename
Peut on dans le même esprit (simplicité, rapidité) importer un fichier texte
dans une table au moyen d'une boite de dialogue quant à sa selection en
utilisance la commande DoCmd.TransferText par exemple
Cette commande associé au chemin du fichier fonctionne sans difficulté mais
avec une boite de dialogue pour aller le sélectionner les ennuis commencent
Merci pour vos suggestions
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Aussi simple et rapide je ne sais pas, mais une idée quand même:
Utiliser l'API OpenFile() pour ouvrir la boite de dialogue de choix de
fichier et récupérer le fichier puis lancer derrière la commande
TransferText en fonction de la valeur récupérée (0 si annulation).
L'API ici : http://officesystem.access.free.fr/apiopenfile.htmBonjours à vous
Sous excel si je souhaite importer un fichier texte en utilisant une boite
de dialogue j'utilise une commande simple :
Application.GetOpenFilename
Peut on dans le même esprit (simplicité, rapidité) importer un fichier texte
dans une table au moyen d'une boite de dialogue quant à sa selection en
utilisance la commande DoCmd.TransferText par exemple
Cette commande associé au chemin du fichier fonctionne sans difficulté mais
avec une boite de dialogue pour aller le sélectionner les ennuis commencent
Merci pour vos suggestions
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
L'API ici : http://officesystem.access.free.fr/apiopenfile.htm
Tout d'abord merci beaucoup pour ta réactivité
La fonction Openfile ne fonctionne pas avec ma base :
Message d'erreur : "Sub ou function non défini
Si je sélectionne cette commande et active la touche F1 pour l'aide
j'obtiens "Mot clé introuvable"
Ou se trouve mon erreur ????
Merci pour ton aide
L'API ici : http://officesystem.access.free.fr/apiopenfile.htm
Tout d'abord merci beaucoup pour ta réactivité
La fonction Openfile ne fonctionne pas avec ma base :
Message d'erreur : "Sub ou function non défini
Si je sélectionne cette commande et active la touche F1 pour l'aide
j'obtiens "Mot clé introuvable"
Ou se trouve mon erreur ????
Merci pour ton aide
L'API ici : http://officesystem.access.free.fr/apiopenfile.htm
Tout d'abord merci beaucoup pour ta réactivité
La fonction Openfile ne fonctionne pas avec ma base :
Message d'erreur : "Sub ou function non défini
Si je sélectionne cette commande et active la touche F1 pour l'aide
j'obtiens "Mot clé introuvable"
Ou se trouve mon erreur ????
Merci pour ton aide
re,
Il faut que tu copies l'API dans un module de portée globale c'est la
raison du lien que je t'ai donné, elle se trouve après le 1er tiers de
la page.
Pour mémoire:L'API ici : http://officesystem.access.free.fr/apiopenfile.htmTout d'abord merci beaucoup pour ta réactivité
La fonction Openfile ne fonctionne pas avec ma base :
Message d'erreur : "Sub ou function non défini
Si je sélectionne cette commande et active la touche F1 pour l'aide
j'obtiens "Mot clé introuvable"
Ou se trouve mon erreur ????
Merci pour ton aide
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Il faut que tu copies l'API dans un module de portée globale c'est la
raison du lien que je t'ai donné, elle se trouve après le 1er tiers de
la page.
Pour mémoire:
L'API ici : http://officesystem.access.free.fr/apiopenfile.htm
Tout d'abord merci beaucoup pour ta réactivité
La fonction Openfile ne fonctionne pas avec ma base :
Message d'erreur : "Sub ou function non défini
Si je sélectionne cette commande et active la touche F1 pour l'aide
j'obtiens "Mot clé introuvable"
Ou se trouve mon erreur ????
Merci pour ton aide
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Il faut que tu copies l'API dans un module de portée globale c'est la
raison du lien que je t'ai donné, elle se trouve après le 1er tiers de
la page.
Pour mémoire:L'API ici : http://officesystem.access.free.fr/apiopenfile.htmTout d'abord merci beaucoup pour ta réactivité
La fonction Openfile ne fonctionne pas avec ma base :
Message d'erreur : "Sub ou function non défini
Si je sélectionne cette commande et active la touche F1 pour l'aide
j'obtiens "Mot clé introuvable"
Ou se trouve mon erreur ????
Merci pour ton aide
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Aussi simple et rapide je ne sais pas
En résumé si je comprends bien, là ou excel se contente d'une simple commande
en
2 mots Access nécessite la bagatelle de plus de 50 lignes d'instruction pour
obtenir le même résutat !!!
Particulièrement déconcertant mais si il n'y a plus simple contre mauvaise
fortune je ferais bon coeur
Je tente la manoeuvre
Merci
Aussi simple et rapide je ne sais pas
En résumé si je comprends bien, là ou excel se contente d'une simple commande
en
2 mots Access nécessite la bagatelle de plus de 50 lignes d'instruction pour
obtenir le même résutat !!!
Particulièrement déconcertant mais si il n'y a plus simple contre mauvaise
fortune je ferais bon coeur
Je tente la manoeuvre
Merci
Aussi simple et rapide je ne sais pas
En résumé si je comprends bien, là ou excel se contente d'une simple commande
en
2 mots Access nécessite la bagatelle de plus de 50 lignes d'instruction pour
obtenir le même résutat !!!
Particulièrement déconcertant mais si il n'y a plus simple contre mauvaise
fortune je ferais bon coeur
Je tente la manoeuvre
Merci
En résumé si je comprends bien, là ou excel se contente d'une simple commande
en
2 mots Access nécessite la bagatelle de plus de 50 lignes d'instruction pour
obtenir le même résutat !!!
Particulièrement déconcertant mais si il n'y a plus simple contre mauvaise
fortune je ferais bon coeur
Je tente la manoeuvre
Mercire,
Il faut que tu copies l'API dans un module de portée globale c'est la
raison du lien que je t'ai donné, elle se trouve après le 1er tiers de
la page.
Pour mémoire:L'API ici : http://officesystem.access.free.fr/apiopenfile.htmTout d'abord merci beaucoup pour ta réactivité
La fonction Openfile ne fonctionne pas avec ma base :
Message d'erreur : "Sub ou function non défini
Si je sélectionne cette commande et active la touche F1 pour l'aide
j'obtiens "Mot clé introuvable"
Ou se trouve mon erreur ????
Merci pour ton aide
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
En résumé si je comprends bien, là ou excel se contente d'une simple commande
en
2 mots Access nécessite la bagatelle de plus de 50 lignes d'instruction pour
obtenir le même résutat !!!
Particulièrement déconcertant mais si il n'y a plus simple contre mauvaise
fortune je ferais bon coeur
Je tente la manoeuvre
Merci
re,
Il faut que tu copies l'API dans un module de portée globale c'est la
raison du lien que je t'ai donné, elle se trouve après le 1er tiers de
la page.
Pour mémoire:
L'API ici : http://officesystem.access.free.fr/apiopenfile.htm
Tout d'abord merci beaucoup pour ta réactivité
La fonction Openfile ne fonctionne pas avec ma base :
Message d'erreur : "Sub ou function non défini
Si je sélectionne cette commande et active la touche F1 pour l'aide
j'obtiens "Mot clé introuvable"
Ou se trouve mon erreur ????
Merci pour ton aide
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
En résumé si je comprends bien, là ou excel se contente d'une simple commande
en
2 mots Access nécessite la bagatelle de plus de 50 lignes d'instruction pour
obtenir le même résutat !!!
Particulièrement déconcertant mais si il n'y a plus simple contre mauvaise
fortune je ferais bon coeur
Je tente la manoeuvre
Mercire,
Il faut que tu copies l'API dans un module de portée globale c'est la
raison du lien que je t'ai donné, elle se trouve après le 1er tiers de
la page.
Pour mémoire:L'API ici : http://officesystem.access.free.fr/apiopenfile.htmTout d'abord merci beaucoup pour ta réactivité
La fonction Openfile ne fonctionne pas avec ma base :
Message d'erreur : "Sub ou function non défini
Si je sélectionne cette commande et active la touche F1 pour l'aide
j'obtiens "Mot clé introuvable"
Ou se trouve mon erreur ????
Merci pour ton aide
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Manoeuvre réussie mais 2 inconvénients de taille quant aux paramètres de base
de la boite de dialogue :
Son positionnement immuable dans le répertoire de la base utilisée
Le type de fichier recherché : Fichiers Access et non Fichier texte ou Tout
fichier
Avec excel j'utilise les commandes :
Chdrive "lecteur"
Chdir "Chemin"
pour à la demande positionner par défaut la boite de dialogue sur un
répertoire stratégique afin de limiter la selection à réaliser
Quelles solutions pour Access dans cet esprit et pour adapter le type de
fichier à rechercher ???
Manoeuvre réussie mais 2 inconvénients de taille quant aux paramètres de base
de la boite de dialogue :
Son positionnement immuable dans le répertoire de la base utilisée
Le type de fichier recherché : Fichiers Access et non Fichier texte ou Tout
fichier
Avec excel j'utilise les commandes :
Chdrive "lecteur"
Chdir "Chemin"
pour à la demande positionner par défaut la boite de dialogue sur un
répertoire stratégique afin de limiter la selection à réaliser
Quelles solutions pour Access dans cet esprit et pour adapter le type de
fichier à rechercher ???
Manoeuvre réussie mais 2 inconvénients de taille quant aux paramètres de base
de la boite de dialogue :
Son positionnement immuable dans le répertoire de la base utilisée
Le type de fichier recherché : Fichiers Access et non Fichier texte ou Tout
fichier
Avec excel j'utilise les commandes :
Chdrive "lecteur"
Chdir "Chemin"
pour à la demande positionner par défaut la boite de dialogue sur un
répertoire stratégique afin de limiter la selection à réaliser
Quelles solutions pour Access dans cet esprit et pour adapter le type de
fichier à rechercher ???
Private Sub ExtendChoose(FileType As acOpenFileType)
Select Case FileType
Case AllFiles
strFiltre = "Tous les fichiers" & Chr$(0) & "*.*"
Case texte
strFiltre = _
"Fichiers Texte" & Chr$(0) & "*.txt;*.prn;*.csv;*.rtf" &
Chr$(0) & _
"Tous les fichiers (*.*)" & Chr$(0)
Case Image
... ' suite inchangée
Private Sub ExtendChoose(FileType As acOpenFileType)
Select Case FileType
Case AllFiles
strFiltre = "Tous les fichiers" & Chr$(0) & "*.*"
Case texte
strFiltre = _
"Fichiers Texte" & Chr$(0) & "*.txt;*.prn;*.csv;*.rtf" &
Chr$(0) & _
"Tous les fichiers (*.*)" & Chr$(0)
Case Image
... ' suite inchangée
Private Sub ExtendChoose(FileType As acOpenFileType)
Select Case FileType
Case AllFiles
strFiltre = "Tous les fichiers" & Chr$(0) & "*.*"
Case texte
strFiltre = _
"Fichiers Texte" & Chr$(0) & "*.txt;*.prn;*.csv;*.rtf" &
Chr$(0) & _
"Tous les fichiers (*.*)" & Chr$(0)
Case Image
... ' suite inchangée
Bonjour FFO,
Un peu de ménage dans mes réponses à l'emporte-pieces ;-)
Conserver la modification de l'énumération et celle de la procédure
ExtendChoose() précédente.
Définir par défaut les paramètres optionnels de la fonction OpenFile
ainsi (adapter le rep stratégique) :
Public Function OpenFile( _
Optional InitialFolder As String = "RepStrategique", _
Optional MultiSelect As Selection = Mono_Sélection, _
Optional ModalWindow As Boolean = True, _
Optional FileType As acOpenFileType = texte, _
Optional KbBufferLength As Long = 4, _
Optional WithPath As Boolean = True _
) As String
(Supprimer la ligne
If InitialFolder = "" Then InitialFolder = CurrentProject.Path)
Dans la procédure d'importation, dans la cas d'une sélection simple:
Dim SelectedFile As String
' Utilisation de rep déclaré en Optionnel
' et visualisation des fichiers textes
SelectedFile = OpenFile()
If Len(SelectedFile) > 0 Then
'MsgBox SelectedFile
'Adapter le nom de la table
DoCmd.TransferText acImportDelim, , _
"TestImport", SelectedFile, True
End If
Pour avoir un rep spécifique et tous les fichiers, toujours dans le cas
d'une sélection simple, mettre:
SelectedFile = OpenFile("LeRep", , , AllFiles)
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour FFO,
Un peu de ménage dans mes réponses à l'emporte-pieces ;-)
Conserver la modification de l'énumération et celle de la procédure
ExtendChoose() précédente.
Définir par défaut les paramètres optionnels de la fonction OpenFile
ainsi (adapter le rep stratégique) :
Public Function OpenFile( _
Optional InitialFolder As String = "RepStrategique", _
Optional MultiSelect As Selection = Mono_Sélection, _
Optional ModalWindow As Boolean = True, _
Optional FileType As acOpenFileType = texte, _
Optional KbBufferLength As Long = 4, _
Optional WithPath As Boolean = True _
) As String
(Supprimer la ligne
If InitialFolder = "" Then InitialFolder = CurrentProject.Path)
Dans la procédure d'importation, dans la cas d'une sélection simple:
Dim SelectedFile As String
' Utilisation de rep déclaré en Optionnel
' et visualisation des fichiers textes
SelectedFile = OpenFile()
If Len(SelectedFile) > 0 Then
'MsgBox SelectedFile
'Adapter le nom de la table
DoCmd.TransferText acImportDelim, , _
"TestImport", SelectedFile, True
End If
Pour avoir un rep spécifique et tous les fichiers, toujours dans le cas
d'une sélection simple, mettre:
SelectedFile = OpenFile("LeRep", , , AllFiles)
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour FFO,
Un peu de ménage dans mes réponses à l'emporte-pieces ;-)
Conserver la modification de l'énumération et celle de la procédure
ExtendChoose() précédente.
Définir par défaut les paramètres optionnels de la fonction OpenFile
ainsi (adapter le rep stratégique) :
Public Function OpenFile( _
Optional InitialFolder As String = "RepStrategique", _
Optional MultiSelect As Selection = Mono_Sélection, _
Optional ModalWindow As Boolean = True, _
Optional FileType As acOpenFileType = texte, _
Optional KbBufferLength As Long = 4, _
Optional WithPath As Boolean = True _
) As String
(Supprimer la ligne
If InitialFolder = "" Then InitialFolder = CurrentProject.Path)
Dans la procédure d'importation, dans la cas d'une sélection simple:
Dim SelectedFile As String
' Utilisation de rep déclaré en Optionnel
' et visualisation des fichiers textes
SelectedFile = OpenFile()
If Len(SelectedFile) > 0 Then
'MsgBox SelectedFile
'Adapter le nom de la table
DoCmd.TransferText acImportDelim, , _
"TestImport", SelectedFile, True
End If
Pour avoir un rep spécifique et tous les fichiers, toujours dans le cas
d'une sélection simple, mettre:
SelectedFile = OpenFile("LeRep", , , AllFiles)
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr