Le problème est que la colonne que je copie dans le fichier est une
concaténation de différentes autres colonnes.
Vous m'aviez donné la solution ici même mais je ne la retrouve plus..
donc suis confus..
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
Ceci copy de la feuille active "Y3:Y10"et colle dans un nouveau classeur feuil1 A1 (uniquement les valeurs) et enregistre sous "NewFolderScript.txt" '------------ Range("Y3:Y10").Copy Workbooks.Add [a1].PasteSpecial Paste:=xlPasteValues ActiveSheet.SaveAs "C:usertempNewFolderScript.txt", FileFormat:=xlTextWindows ActiveWorkbook.Close SaveChanges:úlse '-------------- -- Salutations JJ
Le problème est que la colonne que je copie dans le fichier est une concaténation de différentes autres colonnes. Vous m'aviez donné la solution ici même mais je ne la retrouve plus.. donc suis confus..
Bonjour,
Ceci copy de la feuille active "Y3:Y10"et colle dans un nouveau classeur
feuil1 A1 (uniquement les valeurs) et enregistre sous "NewFolderScript.txt"
'------------
Range("Y3:Y10").Copy
Workbooks.Add
[a1].PasteSpecial Paste:=xlPasteValues
ActiveSheet.SaveAs "C:usertempNewFolderScript.txt",
FileFormat:=xlTextWindows
ActiveWorkbook.Close SaveChanges:úlse
'--------------
--
Salutations
JJ
"fth" <fth@discussions.microsoft.com> a écrit dans le message de news:
D0326699-576B-4400-BC15-5D9FFBA475C4@microsoft.com...
Le problème est que la colonne que je copie dans le fichier est une
concaténation de différentes autres colonnes.
Vous m'aviez donné la solution ici même mais je ne la retrouve plus..
donc suis confus..
Ceci copy de la feuille active "Y3:Y10"et colle dans un nouveau classeur feuil1 A1 (uniquement les valeurs) et enregistre sous "NewFolderScript.txt" '------------ Range("Y3:Y10").Copy Workbooks.Add [a1].PasteSpecial Paste:=xlPasteValues ActiveSheet.SaveAs "C:usertempNewFolderScript.txt", FileFormat:=xlTextWindows ActiveWorkbook.Close SaveChanges:úlse '-------------- -- Salutations JJ
Le problème est que la colonne que je copie dans le fichier est une concaténation de différentes autres colonnes. Vous m'aviez donné la solution ici même mais je ne la retrouve plus.. donc suis confus..
fth
Merci.. Vais enfin pouvoir continuer ;-)
"Jacky" wrote:
Bonjour,
Ceci copy de la feuille active "Y3:Y10"et colle dans un nouveau classeur feuil1 A1 (uniquement les valeurs) et enregistre sous "NewFolderScript.txt" '------------ Range("Y3:Y10").Copy Workbooks.Add [a1].PasteSpecial Paste:=xlPasteValues ActiveSheet.SaveAs "C:usertempNewFolderScript.txt", FileFormat:=xlTextWindows ActiveWorkbook.Close SaveChanges:úlse '-------------- -- Salutations JJ
"fth" a écrit dans le message de news:
> Bonjour, > > j'utilise ce bout de code trouvé sru le forum: > > Range("Y3:Y10").Copy > Workbooks.Add > ActiveSheet.Paste > ActiveSheet.SaveAs "C:usertempNewFolderScript.txt", > FileFormat:=xlTextWindows > ActiveWorkbook.Close SaveChanges:úlse > > Le problème est que la colonne que je copie dans le fichier est une > concaténation de différentes autres colonnes. > Vous m'aviez donné la solution ici même mais je ne la retrouve plus.. > donc suis confus..
Merci..
Vais enfin pouvoir continuer ;-)
"Jacky" wrote:
Bonjour,
Ceci copy de la feuille active "Y3:Y10"et colle dans un nouveau classeur
feuil1 A1 (uniquement les valeurs) et enregistre sous "NewFolderScript.txt"
'------------
Range("Y3:Y10").Copy
Workbooks.Add
[a1].PasteSpecial Paste:=xlPasteValues
ActiveSheet.SaveAs "C:usertempNewFolderScript.txt",
FileFormat:=xlTextWindows
ActiveWorkbook.Close SaveChanges:úlse
'--------------
--
Salutations
JJ
"fth" <fth@discussions.microsoft.com> a écrit dans le message de news:
D0326699-576B-4400-BC15-5D9FFBA475C4@microsoft.com...
> Bonjour,
>
> j'utilise ce bout de code trouvé sru le forum:
>
> Range("Y3:Y10").Copy
> Workbooks.Add
> ActiveSheet.Paste
> ActiveSheet.SaveAs "C:usertempNewFolderScript.txt",
> FileFormat:=xlTextWindows
> ActiveWorkbook.Close SaveChanges:úlse
>
> Le problème est que la colonne que je copie dans le fichier est une
> concaténation de différentes autres colonnes.
> Vous m'aviez donné la solution ici même mais je ne la retrouve plus..
> donc suis confus..
Ceci copy de la feuille active "Y3:Y10"et colle dans un nouveau classeur feuil1 A1 (uniquement les valeurs) et enregistre sous "NewFolderScript.txt" '------------ Range("Y3:Y10").Copy Workbooks.Add [a1].PasteSpecial Paste:=xlPasteValues ActiveSheet.SaveAs "C:usertempNewFolderScript.txt", FileFormat:=xlTextWindows ActiveWorkbook.Close SaveChanges:úlse '-------------- -- Salutations JJ
"fth" a écrit dans le message de news:
> Bonjour, > > j'utilise ce bout de code trouvé sru le forum: > > Range("Y3:Y10").Copy > Workbooks.Add > ActiveSheet.Paste > ActiveSheet.SaveAs "C:usertempNewFolderScript.txt", > FileFormat:=xlTextWindows > ActiveWorkbook.Close SaveChanges:úlse > > Le problème est que la colonne que je copie dans le fichier est une > concaténation de différentes autres colonnes. > Vous m'aviez donné la solution ici même mais je ne la retrouve plus.. > donc suis confus..