Discussion :

[isa77]

J'ai créé une macro dans un fichier excel (appelé résultat.xls)
Avant de démarrer la macro dans "résultat.xls", il faut récupérer les données sortant d'une application industrielle au format excel. Ces données dont dans un fichier en lecture.
Le nom de ce fichier n'est jamais le même, mais suit la règle suivante: code alphanumérique à 6 chiffres_XAQ_code numérique à 8 chiffres
(exemple:ABC123_XAQ_00011008--> contient toujours les 3 mêmes lettres XAQ)
Aujourd'hui je copie manuellement les données du fichier *XAQ* en lecture vers mon fichier "résultat.xls".
Je souhaite copier les données de ce fichier *XAQ* en lecture via une macro vers mon fichier "résultat.xls", en évitant si possible une étape intermédiaire: l'enregistrement du fichier *XAQ*.
En effet, le fichier *XAQ* est généré par différents utilisateurs et je crains que tous ne l'enregistrent pas sous le même nom.

[patricktoulon]

bonjour



ca risque d'etre dur si le fichier est enregistré différement par plusieurs utilisateurs tu risque de te retrouver avec plusieurs fichiers
donc difficile de savoir le bon


il faudrait dabors que l'enregistrement soit toujour identique meme par des utilisateur differents

apres le reste serai facile


au plaisir

[Yoyo57]

Bonjour isa77, Bonjour patricktoulon,

Ou alors il faut savoir comment déterminer à coup sûr par la macro le nom du fichier à traiter. S'agit-il du seul fichier *XAQ* dans un dossier particulier ?

[patricktoulon]

rebonjour


oui il y a des solution pour ca aussi


par les api on pourais acceder au propriété des fichiers et ne choisir que celui qui a la plus recente mise a jour


mais enfin la on specule .je n'ai pas encore vu le code originale

donc on va atendre le code qui enregistre le fichier en question
en partant de la on poura faire le chemin en arriere

au plaisir

[isa77]

Bonjour,

merci pour les réponses.
En fait je n'ai pas encore écrit le code pour enregistrer et pour copier les donnés vers mon fichier "résultat.xls".
Il faudrait donc que je crée une macro pour enregistrer le fichier toujours au même endroit et avec le même nom.
L'idéal, c'est d'enregistrer le fichier dans "mes documents". Le souci que je rencontre c'est que le chemin vers mes documents dépend de l'Id de l'utilisateur et a la structure:

C:\Documents and Settings\abc123\Mes documents

où l'Id de l'utilisateur = abc123
peut-on remplacer cet id par un code générique: exemple * ?

Ensuite effectivement, cela est plus simple.

[patricktoulon]

bonjour
il serait temp de t y metre

voila un exemple qui enregistre la feuille 1 dans un autre classeur qui s'appelera toto.xls dans les document de l'utilisateur de la session

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Sub enregistrer_sous()
Dim chemin As String
Application.DisplayAlerts = False 'pour ne pas avoir a repondre oui
Sheets("Feuil1").Copy'ici on copie la feuille
'l'expression ""application.username"" donne le nom de l'utilisateur actuel
'donc le chemin complet donnera ca
chemin = "C:\Users\" & Application.UserName & "\Mes Documents\toto.xls"
 
'"maintenant on enregistre sous"
 ActiveWorkbook.SaveAs Filename:=chemin, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close' ici le classeur est fermer apres avoir été enregistré
'donc le classeur d'origine reviens 
End Sub

voila qui te donne un bon debut


au plaisir