Déplacer un onglet dont le nom change

Le
Bruno RCSC
Re-Bonsoir,

Win XP - Excel 2002

J'utilise un fichier txt que je convertis en xls. Le nom de l'onglet est
donc le nom du fichier sans l'extension.
J'ai besoin de copier cet onglet dans un autre fichier.

Avec quelques lignes et l'enregistreur de macro, j'ai le code suivant :
nomdefichier = InputBox("Saisir le nom du fichier", "", "FA")
Workbooks.OpenText Filename:=nomdefichier, Origin:=xlWindows .
Workbooks.Open Filename:= "C:BH\grille pour verif-1.xls"
Windows(nomdefichier).Activate
Sheets("FA89S-bh").Select
Sheets("FA89S-bh").Copy Before:=Workbooks("grille pour
verif-1.xls").Sheets(2)

Que dois je faire pour ce code fonctionne quelque soit le nom de l'onglet
(FA89S-bh change tous les jours) ?

Merci pour votre aide.

BH
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4273971
Peut être ça?

Sheets(1).Copy Before:=Workbooks("grille pour verif-1.xls").Sheets(2)

JB

On 4 avr, 21:25, "Bruno RCSC"
Re-Bonsoir,

Win XP - Excel 2002

J'utilise un fichier txt que je convertis en xls. Le nom de l'onglet est
donc le nom du fichier sans l'extension.
J'ai besoin de copier cet onglet dans un autre fichier.

Avec quelques lignes et l'enregistreur de macro, j'ai le code suivant :
nomdefichier = InputBox("Saisir le nom du fichier", "", "FA")
Workbooks.OpenText Filename:=nomdefichier, Origin:=xlWindows .... ...
Workbooks.Open Filename:= "C:BH\grille pour verif-1.xls"
Windows(nomdefichier).Activate
Sheets("FA89S-bh").Select
Sheets("FA89S-bh").Copy Before:=Workbooks("grille pour
verif-1.xls").Sheets(2)

Que dois je faire pour ce code fonctionne quelque soit le nom de l'onglet
(FA89S-bh change tous les jours) ?

Merci pour votre aide.

BH


Bruno RCSC
Le #4273871
Désolé JB, cela ne fonctionne pas.
J'obtiens Erreur exécution 9 / L'indice n'appartient pas à la sélection

J'ai essayé en ajoutant une feuille
Sheets.Add
Sheets(2).Select (il sélectionne bien l'onglet FA89S-bh)
Sheets(2).Copy Before:=Workbooks("grille pour verif-1.xls").Sheets(2)

D'autres pistes ?

Merci.

BH

--

Peut être ça?

Sheets(1).Copy Before:=Workbooks("grille pour verif-1.xls").Sheets(2)

JB

On 4 avr, 21:25, "Bruno RCSC"
Re-Bonsoir,

Win XP - Excel 2002

J'utilise un fichier txt que je convertis en xls. Le nom de l'onglet est
donc le nom du fichier sans l'extension.
J'ai besoin de copier cet onglet dans un autre fichier.

Avec quelques lignes et l'enregistreur de macro, j'ai le code suivant :
nomdefichier = InputBox("Saisir le nom du fichier", "", "FA")
Workbooks.OpenText Filename:=nomdefichier, Origin:=xlWindows .......
Workbooks.Open Filename:= "C:BH\grille pour verif-1.xls"
Windows(nomdefichier).Activate
Sheets("FA89S-bh").Select
Sheets("FA89S-bh").Copy Before:=Workbooks("grille pour
verif-1.xls").Sheets(2)

Que dois je faire pour ce code fonctionne quelque soit le nom de l'onglet
(FA89S-bh change tous les jours) ?

Merci pour votre aide.

BH


JB
Le #4273851
S'il n'y a qu'un onglet dans le classeur importé, il devrait pouvoir
être référencé par Sheets(1).
Juste après l'import, renommer l'onglet Activesheet.Name="Temp" ??

JB

On 4 avr, 22:01, "Bruno RCSC"
Désolé JB, cela ne fonctionne pas.
J'obtiens Erreur exécution 9 / L'indice n'appartient pas à la sélec tion

J'ai essayé en ajoutant une feuille
Sheets.Add
Sheets(2).Select (il sélectionne bien l'onglet FA89S-bh)
Sheets(2).Copy Before:=Workbooks("grille pour verif-1.xls").Sheets( 2)

D'autres pistes ?

Merci.

BH

--

Peut être ça?

Sheets(1).Copy Before:=Workbooks("grille pour verif-1.xls").Sheets(2)

JB

On 4 avr, 21:25, "Bruno RCSC"


Re-Bonsoir,

Win XP - Excel 2002

J'utilise un fichier txt que je convertis en xls. Le nom de l'onglet est
donc le nom du fichier sans l'extension.
J'ai besoin de copier cet onglet dans un autre fichier.

Avec quelques lignes et l'enregistreur de macro, j'ai le code suivant :
nomdefichier = InputBox("Saisir le nom du fichier", "", "FA")
Workbooks.OpenText Filename:=nomdefichier, Origin:=xlWindows .. .....
Workbooks.Open Filename:= "C:BH\grille pour verif-1.xls"
Windows(nomdefichier).Activate
Sheets("FA89S-bh").Select
Sheets("FA89S-bh").Copy Before:=Workbooks("grille pour
verif-1.xls").Sheets(2)

Que dois je faire pour ce code fonctionne quelque soit le nom de l'ongl et
(FA89S-bh change tous les jours) ?

Merci pour votre aide.

BH- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Bruno RCSC
Le #4271851
Parfait, merci et bonne nuit.

BH

--

S'il n'y a qu'un onglet dans le classeur importé, il devrait pouvoir
être référencé par Sheets(1).
Juste après l'import, renommer l'onglet Activesheet.Name="Temp" ??

JB

On 4 avr, 22:01, "Bruno RCSC"
Désolé JB, cela ne fonctionne pas.
J'obtiens Erreur exécution 9 / L'indice n'appartient pas à la sélection

J'ai essayé en ajoutant une feuille
Sheets.Add
Sheets(2).Select (il sélectionne bien l'onglet FA89S-bh)
Sheets(2).Copy Before:=Workbooks("grille pour verif-1.xls").Sheets(2)

D'autres pistes ?

Merci.

BH

--

Peut être ça?

Sheets(1).Copy Before:=Workbooks("grille pour verif-1.xls").Sheets(2)

JB

On 4 avr, 21:25, "Bruno RCSC"


Re-Bonsoir,

Win XP - Excel 2002

J'utilise un fichier txt que je convertis en xls. Le nom de l'onglet est
donc le nom du fichier sans l'extension.
J'ai besoin de copier cet onglet dans un autre fichier.

Avec quelques lignes et l'enregistreur de macro, j'ai le code suivant :
nomdefichier = InputBox("Saisir le nom du fichier", "", "FA")
Workbooks.OpenText Filename:=nomdefichier, Origin:=xlWindows .......
Workbooks.Open Filename:= "C:BH\grille pour verif-1.xls"
Windows(nomdefichier).Activate
Sheets("FA89S-bh").Select
Sheets("FA89S-bh").Copy Before:=Workbooks("grille pour
verif-1.xls").Sheets(2)

Que dois je faire pour ce code fonctionne quelque soit le nom de
l'onglet
(FA89S-bh change tous les jours) ?

Merci pour votre aide.

BH- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme