Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Le Copier/Coller de colonnes au format CSV inoérationnel

  • Initiateur de la discussion Initiateur de la discussion zakou76
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zakou76

XLDnaute Nouveau
Bonsoir.
Mon problème paraît simple mais helas...
Voilà, à partir d'un classeur "Ina.xls", j'ouvre un autre classeur "Liste.csv" je selectionne les colonnes D-G-J-M-P et S je les copie et je les colle dans une nouvelle feuille de mon classeur "Ina.xls".
Avec l'enregistreur de macro j'obtien le code suivant:

Sub Import()
'
ChDir "C:\Tmp"
Workbooks.Open Filename:= _
"C:\Tmp\Liste_07-05-2010.csv"
Range("D😀,G:G,J:J,M:M,P😛,S:S").Select
Selection.Copy
Windows("inac.xls").Activate
Sheets.Add
ActiveSheet.Paste
Range("A1").Select
End Sub

Le problème est que à chaque fois que j'exécute la macro "Import", la copie ne se réalise pas et je n'ai aucun message d'erreur.
Merci pour votre aide.
 
Re : Le Copier/Coller de colonnes au format CSV inoérationnel

Bonjour zakou,

un essai

Code:
Sub Import()
'
Workbooks("inac.xls").Activate
Sheets.Add
Feuil = activesheet.name
ChDir "C:\Tmp"
Workbooks.Open Filename:= _
"C:\Tmp\Liste_07-05-2010.csv"
Range("D:D,G:G,J:J,M:M,P:P,S:S").Copy Workbooks("inac.xls").worksheets(Feuil).range("A1")
End Sub
 
Re : Le Copier/Coller de colonnes au format CSV inoérationnel

Bonsoir.
Merci Tototiti2008 pour votre réponse mais helas, ce code me crée une nouvelle feuille dans le classeur inac.xls et ne colle pas le résultat.
Une petite précision: les colonnes D G J M P S du claesseur liste.csv sont au format texte CSV et avec votre code il les fusionne en une seule colonne dans le classeur liste.csv
Merci encore.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

O
Réponses
4
Affichages
2 K
M
Réponses
6
Affichages
1 K
MOA_Excel
M
Réponses
7
Affichages
1 K
C
Réponses
1
Affichages
2 K
C
Réponses
8
Affichages
2 K
Genii
G
T
Réponses
3
Affichages
2 K
P
Réponses
0
Affichages
988
P
G
Réponses
7
Affichages
3 K
G
Z
Réponses
1
Affichages
776
zikkmu
Z
L
Réponses
2
Affichages
1 K
lepigoennier
L
W
Réponses
0
Affichages
4 K
Whivez
W
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…