Sujet Précédent Sujet Suivant

Ouvrir une feuille excel dans un autre fichier excel

Résolu/Fermé
jucva Messages postés 26 Date d'inscription lundi 26 août 2013 Statut Membre Dernière intervention 10 février 2016 - 3 oct. 2013 à 18:40
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 4 oct. 2013 à 07:49
Bonjour,


Je souhaiterais faire une macro intéger dans un .xlsm

Un bouton permet d'ouvrir l'interface pour choisir un fichier .csv

Mais je ne souhaite pas "ouvrir" à proprement parler, je souhaite que le contenu de sa seule et unique feuille soit copier dans un nouvel onglet du premier fichier contenant la macro.


Pouvez vous m'aider.

Merci



A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
4 oct. 2013 à 07:49
Bonjour,

fait avec enregistreur de macro excel, a vous d'adapter les noms et chemins 

Sub Macro2()
'
' Macro2 Macro
'

'
    ChDir "D:\_cles"
    Workbooks.OpenText Filename:="D:\_cles\fichier1.csv", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
    Sheets("fichier1").Select
    Sheets("fichier1").Copy After:=Workbooks("Classeur1").Sheets(3)
    Windows("fichier1.csv").Activate
    ActiveWindow.Close
End Sub
0