Discussion :

[Manou34]

Bonjour,

voilà je vous explique mon problème : j'ai un classeur avec 2 feuilles excel et je souhaiterais en sauvegarder une sur un autre classeur ! (une sorte de copier-coller)

Est-ce possible ?
Merci de vos conseils !!

Bonne journée

[coraziari_l]

Je dirai que la fonction Sheets.Move devrait répondre à ton besoin
La syntaxe, ca doit être du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("mon ancien classeur).Sheets("mafeuille").Move After:=Workboorks("mon nouveau classeur").Sheets("ma premiere feuille")

Ca déplacera la feuille "ma feuille" de ton classeur "mon ancien classeur" vers "mon nouveau classeur" après la feuille "ma première feuille"

[fred65200]

bonjour,

en complément de la réponse de coraziari_l, si ton "nouveau classeur" n'existe pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Workbooks("mon ancien classeur).Sheets("mafeuille").Copy
activeworkbook.saveas .....

Cordialement

[Manou34]

merci mais j'ai un message d'erreur qui s'affiche :

"L'indice n'appartient pas à la sélection"

De plus, je ne dois pas mettre un chemin (C:// ...) pour lui dire où se trouve le nouveau classeur ??

Merci

[Manou34]

merci fred65200 je vais essayer !

[coraziari_l]

merci mais j'ai un message d'erreur qui s'affiche :

"L'indice n'appartient pas à la sélection"

De plus, je ne dois pas mettre un chemin (C:// ...) pour lui dire où se trouve le nouveau classeur ??

Merci

Moi mon deuxième classeur était ouvert. Pour la feuille, mets son numéro et voit si ca passe. Je ne me souviens pas de la syntaxe exacte et j'ai pas Excel pour regarder là... (vive les boites qui t'installent Open Office lol)

[Manou34]

Voilà ce que j'ai mis mais qui ne fonctionne pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Enregistrer()
 
Workbooks("excel.xls").Sheets("Annuaire").Copy
ActiveWorkbook.SaveAs (test)
 
End Sub

Erreur

fichier inaccessible

Qu'est ce qu'il faut que je rajoute ??

Merci pour vos conseils !

[fred65200]

bonjour

comment est renseigné test, ça doit être un chemin valide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim test as string
test = "C:\Users\Fred\Desktop\nom_du_classeur.xls"
'-------------
ActiveWorkbook.SaveAs test 'sans parenthèse

@+

[Manou34]

Oups !!

L'erreur venait bien du chemin !!

Merci beaucoup pour l'aide !! Mon problème est maintenant Résolu !!