Passer d'un fichier à un autre

Tony44 · 18 Juin 2010

Bonjour,

je cherche un moyen de copier un onglet d'un fichier A vers un fichier B, fichier qui pourrait porter un autre nom.

Code actuel :
Sheets("nb_ligne_par_ope").Copy After:=Workbooks("B.xls").Sheets(2)

Le code actuel ne me permet pas de copier l'onglet si je change le nom du fichier B.

Comment faire ??

Paritec · 18 Juin 2010

Re : Passer d'un fichier à un autre

bonjour tony 44
en l'état c'est sur que cela ne marchera pas
donne moi le chemin de ton fichier B tu devrais si tu sais me donner

c:\documents and settings\Tony44\bureau\B
et je t'adapte ta macro par retour
a+
Papou 🙂

EDIT: DE PLUS TONY pourquoi deux post avec le même sujet ??????https://www.excel-downloads.com/threads/changer-de-fichier-excel-sans-le-nommer-workbooks.143986/

Tony44 · 18 Juin 2010

Re : Passer d'un fichier à un autre

Bonjour Paritec,

Voici le chemin :
C:\Mes Documents\Wms\KLS\Stat\nb_ligne_prepa\

Désolé pour les 2 post.
En fait, quand j'ai fait le 1er post (sur lequel tu as répondu) après l'avoir validé, je ne voyais plus mon post, donc j'en ai créer un autre.
==> en fait j'avais tout simplement pas les yeux en face des trous.

Merci par avance pour ton aide.

pour info, voici le bout de la macro ou je devrais insérer ta modification :

ChDir "C:\Mes Documents\Wms\KLS\Stat\nb_ligne_prepa"
Workbooks.Open Filename:= _
"C:\Mes Documents\Wms\KLS\Stat\nb_ligne_prepa\nb_ligne_par_ope.csv"

Sheets("nb_ligne_par_ope").Select
Sheets("nb_ligne_par_ope").Copy After:=Workbooks("Nombre lignes par opérateur.xls") _
.Sheets(2)

Passer d'un fichier à un autre

Tony44

XLDnaute Occasionnel

Paritec

XLDnaute Barbatruc

Tony44

XLDnaute Occasionnel

Discussions similaires

Passer d'un fichier à un autre

Tony44

XLDnaute Occasionnel

Paritec

XLDnaute Barbatruc

Tony44

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency