Ouvrir une feuille excel dans un autre fichier excel
Résolu
jucva
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Ouvrir une feuille excel dans un autre fichier excel
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
1 réponse
Bonjour,
fait avec enregistreur de macro excel, a vous d'adapter les noms et chemins
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