J'utilise la macro ci-dessous pour importer un fichier cvs; elle marche tres
bien mais j'ai besoin de pouvoir
choisir le fichier a importer sachant que j'ai une trame qui reprend et
presente les données de maniere differente
et que j'aurai un nouveau cvs a importer chaque semaine.
Bon etant donné que j'y connai pas grand chose a la programmation en vba je
suis passé par l'enregistreur
et donc il me cree une connection avec le fichier dont je n'ai absolument
pas besoin c'est pourquoi
j'importe les données en feuille 3 je les copie en feuille 2 et je supprime
les données sur feuille 3 pour couper le connection
je pense qu'il y a une maniere de passer au travers de tout ca avec un code
plus leger.
J'utilise la macro ci-dessous pour importer un fichier cvs; elle marche tr es bien mais j'ai besoin de pouvoir choisir le fichier a importer sachant que j'ai une trame qui reprend et presente les données de maniere differente et que j'aurai un nouveau cvs a importer chaque semaine.
Bon etant donné que j'y connai pas grand chose a la programmation en vba je suis passé par l'enregistreur et donc il me cree une connection avec le fichier dont je n'ai absolume nt pas besoin c'est pourquoi j'importe les données en feuille 3 je les copie en feuille 2 et je suppr ime les données sur feuille 3 pour couper le connection je pense qu'il y a une maniere de passer au travers de tout ca avec un cod e plus leger.
me permet d'utiliser une boîte de dialogue pour aller sélectionner le fichier à ouvrir
les lignes :
ChDrive ("C") ChDir ("C:Chemin")
Prépositionne la boîte de dialogue sur une partie du chemin
Le reste du code étant les paramètres à appliquer pour une ouverture correcte que l'on peux obtenir par l'enregistreur de macro en fonction du fichier à ouvrir
En mode enregistrement il suffit d'aller chercher le fichier par :
Fichier/ouvrir
sélectionner le fichier
Puis d'utiliser correctement l'assistant d'importation de text
Arréter l'enregistrement et récupérer le code
Celà devrait te convenir
Dis moi !!!!
On 29 jan, 14:18, "Wheelo" <d_sare...@hotmail.com> wrote:
Bonjour,
J'utilise la macro ci-dessous pour importer un fichier cvs; elle marche tr es
bien mais j'ai besoin de pouvoir
choisir le fichier a importer sachant que j'ai une trame qui reprend et
presente les données de maniere differente
et que j'aurai un nouveau cvs a importer chaque semaine.
Bon etant donné que j'y connai pas grand chose a la programmation en vba je
suis passé par l'enregistreur
et donc il me cree une connection avec le fichier dont je n'ai absolume nt
pas besoin c'est pourquoi
j'importe les données en feuille 3 je les copie en feuille 2 et je suppr ime
les données sur feuille 3 pour couper le connection
je pense qu'il y a une maniere de passer au travers de tout ca avec un cod e
plus leger.
me permet d'utiliser une boîte de dialogue pour aller sélectionner le
fichier à ouvrir
les lignes :
ChDrive ("C")
ChDir ("C:Chemin")
Prépositionne la boîte de dialogue sur une partie du chemin
Le reste du code étant les paramètres à appliquer pour une ouverture
correcte que l'on peux obtenir par l'enregistreur de macro en fonction
du fichier à ouvrir
En mode enregistrement il suffit d'aller chercher le fichier par :
Fichier/ouvrir
sélectionner le fichier
Puis d'utiliser correctement l'assistant d'importation de text
J'utilise la macro ci-dessous pour importer un fichier cvs; elle marche tr es bien mais j'ai besoin de pouvoir choisir le fichier a importer sachant que j'ai une trame qui reprend et presente les données de maniere differente et que j'aurai un nouveau cvs a importer chaque semaine.
Bon etant donné que j'y connai pas grand chose a la programmation en vba je suis passé par l'enregistreur et donc il me cree une connection avec le fichier dont je n'ai absolume nt pas besoin c'est pourquoi j'importe les données en feuille 3 je les copie en feuille 2 et je suppr ime les données sur feuille 3 pour couper le connection je pense qu'il y a une maniere de passer au travers de tout ca avec un cod e plus leger.
me permet d'utiliser une boîte de dialogue pour aller sélectionner le fichier à ouvrir
les lignes :
ChDrive ("C") ChDir ("C:Chemin")
Prépositionne la boîte de dialogue sur une partie du chemin
Le reste du code étant les paramètres à appliquer pour une ouverture correcte que l'on peux obtenir par l'enregistreur de macro en fonction du fichier à ouvrir
En mode enregistrement il suffit d'aller chercher le fichier par :
Fichier/ouvrir
sélectionner le fichier
Puis d'utiliser correctement l'assistant d'importation de text
Arréter l'enregistrement et récupérer le code
Celà devrait te convenir
Dis moi !!!!
Wheelo
Bien comme ca ca marche je pensais qu'on pouvai le faire en direct mais ca fonctionne de cette maniere il me fait juste une erreur si j'annule l'ouverture du fichier mais ce n'est pas tres grave
Tu peux trés bien recopier du nouveau classeur les données >vers le classeur de ton choix avec ces lignes >supplémentaires : 'Recopie des données Cells.Copy Workbooks("Classeur de destination").Sheets("Onglet de destination").Range("A1") 'Fermeture du nouveau classeur ActiveWorkbook.Close SaveChanges:úlse
Cela Devrait te convenir
Dis moi !!!
Bien comme ca ca marche je pensais qu'on pouvai le faire en direct
mais ca fonctionne de cette maniere il me fait juste une erreur si j'annule
l'ouverture du fichier mais ce n'est pas tres grave
Tu peux trés bien recopier du nouveau classeur les données >vers le
classeur de ton choix avec ces lignes >supplémentaires :
'Recopie des données
Cells.Copy Workbooks("Classeur de destination").Sheets("Onglet de
destination").Range("A1")
'Fermeture du nouveau classeur
ActiveWorkbook.Close SaveChanges:úlse
Bien comme ca ca marche je pensais qu'on pouvai le faire en direct mais ca fonctionne de cette maniere il me fait juste une erreur si j'annule l'ouverture du fichier mais ce n'est pas tres grave
Tu peux trés bien recopier du nouveau classeur les données >vers le classeur de ton choix avec ces lignes >supplémentaires : 'Recopie des données Cells.Copy Workbooks("Classeur de destination").Sheets("Onglet de destination").Range("A1") 'Fermeture du nouveau classeur ActiveWorkbook.Close SaveChanges:úlse
Cela Devrait te convenir
Dis moi !!!
francois.forcet
On 30 jan, 11:43, "Wheelo" wrote:
Bien comme ca ca marche je pensais qu'on pouvai le faire en direct mais ca fonctionne de cette maniere il me fait juste une erreur si j'annul e l'ouverture du fichier mais ce n'est pas tres grave
Tu peux trés bien recopier du nouveau classeur les données >vers le classeur de ton choix avec ces lignes >supplémentaires : 'Recopie des données Cells.Copy Workbooks("Classeur de destination").Sheets("Onglet de destination").Range("A1") 'Fermeture du nouveau classeur ActiveWorkbook.Close SaveChanges:úlse
Cela Devrait te convenir
Dis moi !!!- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Heureux que celà te convienne
Pour éviter l'erreur quand tu annules tu peux mettre en tout début de code :
On Error Goto Fin
et en fin de code avant le End Sub :
Fin : Exit Sub
Celà devrait résoudre cette petite imperfection
Dis moi !!!!
On 30 jan, 11:43, "Wheelo" <d_sare...@hotmail.com> wrote:
Bien comme ca ca marche je pensais qu'on pouvai le faire en direct
mais ca fonctionne de cette maniere il me fait juste une erreur si j'annul e
l'ouverture du fichier mais ce n'est pas tres grave
Tu peux trés bien recopier du nouveau classeur les données >vers le
classeur de ton choix avec ces lignes >supplémentaires :
'Recopie des données
Cells.Copy Workbooks("Classeur de destination").Sheets("Onglet de
destination").Range("A1")
'Fermeture du nouveau classeur
ActiveWorkbook.Close SaveChanges:=False
Cela Devrait te convenir
Dis moi !!!- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Heureux que celà te convienne
Pour éviter l'erreur quand tu annules tu peux mettre en tout début de
code :
Bien comme ca ca marche je pensais qu'on pouvai le faire en direct mais ca fonctionne de cette maniere il me fait juste une erreur si j'annul e l'ouverture du fichier mais ce n'est pas tres grave
Tu peux trés bien recopier du nouveau classeur les données >vers le classeur de ton choix avec ces lignes >supplémentaires : 'Recopie des données Cells.Copy Workbooks("Classeur de destination").Sheets("Onglet de destination").Range("A1") 'Fermeture du nouveau classeur ActiveWorkbook.Close SaveChanges:úlse
Cela Devrait te convenir
Dis moi !!!- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Heureux que celà te convienne
Pour éviter l'erreur quand tu annules tu peux mettre en tout début de code :
On Error Goto Fin
et en fin de code avant le End Sub :
Fin : Exit Sub
Celà devrait résoudre cette petite imperfection
Dis moi !!!!
Wheelo
Tip top par contre y a un truc qui manque encore J'ai pas eu mon café !!
ps: ok c'est nul
Merci du temps consacré :)
Tip top par contre y a un truc qui manque encore
J'ai pas eu mon café !!