T
tom
Guest
Bonjour à tous,
Un classeur 'source' contient des données brutes, le classeur 'traitement.xls' renferme un tas de macros pour trier, dédoublonner, compter, statistiquer, etc...
Pour importer le 'source', je cherche son adresse avec 'Application.GetOpenFilename', je stocke le chemin dans une cellule dont le NOM=openit, puis j'exécute 'Application.GetOpenFilename' pour l'ouvrir.
Je copie-colle, mais là j'ai un soucis pour refermer le source. Ma macro d'import est la suivante :
Sub Import()
Dim openit As String
Workbooks.Open Filename:=Range('openit')
Range('A1').Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows('Traitement.xls').Activate
Range('A15').Select
ActiveSheet.Paste
Windows(openit).Close
End Sub
Filename donne le chemin en entier, hors il me semble que Windows(blabla).Close a juste besoin du nom de fichier (nom+extension). Comment l'extraire ? Y-a-t-il un autre moyen + simple ??
Tom
Un classeur 'source' contient des données brutes, le classeur 'traitement.xls' renferme un tas de macros pour trier, dédoublonner, compter, statistiquer, etc...
Pour importer le 'source', je cherche son adresse avec 'Application.GetOpenFilename', je stocke le chemin dans une cellule dont le NOM=openit, puis j'exécute 'Application.GetOpenFilename' pour l'ouvrir.
Je copie-colle, mais là j'ai un soucis pour refermer le source. Ma macro d'import est la suivante :
Sub Import()
Dim openit As String
Workbooks.Open Filename:=Range('openit')
Range('A1').Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows('Traitement.xls').Activate
Range('A15').Select
ActiveSheet.Paste
Windows(openit).Close
End Sub
Filename donne le chemin en entier, hors il me semble que Windows(blabla).Close a juste besoin du nom de fichier (nom+extension). Comment l'extraire ? Y-a-t-il un autre moyen + simple ??
Tom