Enregistrer sous un autre classeur

[ninou58]

Bonjour tout le monde!!!
Ne trouvant pas de solution sur mon dernier fil, je relance avec une autre idée.
En faite j'aimerais savoir s'il est possible d'enregistrer une feuille dans un autre classeur au lieu de faire une copie.
J'aimerais que la feuille s'enregistre dans un autre classeur, qu'il l'ouvre pour qu'on puisse faire des traitements dessus.

Pouvez vous m'aider ?
Merci

[PascalXLD]

Bonjour

Cette ligne

Sheets('Feuil1').Copy

Te copie la feuille 1 dans un nouveau classeur

Je ne sais pas si c'est ce que tu veux

[ninou58]

Re,
Mais faut que je lui donne le chemin non?
mais sinon oui je veux qu'il me copie la feuille 1 dans un classeur spécifique.
En faite je vais préciser.
Ce que je veux c'est qu'il copie cette feuille sous le nom 'weekend'+numsemaine. Mais avant il faut vérifier s'il existe ou non dan sl'autre classeur, s'il existe faut la supprimer (ou autre) et insérer la nouvelle, sinon il faut seulement la copier.

Merci pour ton aide

[PascalXLD]

RE

Cela pourrait donner à peu près ceci

Dim x AsByte
'
* * ChDir 'C:\\Tmp'
* * Workbooks.Open Filename:='C:\\Tmp\\ClasseurRecup.xls'
* * For x = 1 To Workbooks('ClasseurRecup.xls').Sheets.Count
* * * * If Workbooks('ClasseurRecup.xls').Sheets(x).Name = 'weekend' & numsemaine Then
* * * * * * Application.DisplayAlerts = False
* * * * * * Workbooks('ClasseurRecup.xls').Sheets(x).Delete
* * * * * * Application.DisplayAlerts = True
* * * * * * ExitFor
* * * * EndIf
* * Next
* * Windows('ClasseurEnCOurs.xls').Activate
* * Sheets('Feuil1').Copy Before:=Workbooks('ClasseurRecup.xls').Sheets(1)
* * ActiveSheet.Name = 'weekend' & numsemaine

[ninou58]

Re,
Petit souci ca copie pas la feuille du moins pas celle que je veux.
Il supprime bien la feuille si elle existe, mais il n'insert pas la nouvelle et il renomme la feuille qui me sert de repère (il faut au - une feuille dans le classeur). Je continue de travailler dessus.

merci

[PascalXLD]

Re

ce sont ces lignes qui te le font

Windows('ClasseurEnCOurs.xls').Activate
Sheets('Feuil1').Copy Before:=Workbooks('ClasseurRecup.xls').Sheets(1)

Verifies bien si tu as bien mis tes bons noms de classeur et de feuille

[ninou58]

Re,
J'ai toujours l emême souci, qui est que quand je fais le pas à pas , il reste bloqué sur le delete puis sur le copy. Ca foncitonne sinon mais ca m'inquiète qu'il reste bloqué dessus.
Sinon il me met un message, comme quoi :
Une fomule ou une feuille que vous voulez déplacer contient le nom '..'qui existe deja sur la feuille de destination.... Oui ou non.
C'est aps possible d'enlever ce message?
Merci

[PascalXLD]

Re

essaies ceci

Guy3.xls correspond au fichier sur lequel tu va copier ta feuille et le toto.xls le fichier de départ. Et pour mes essais NBRE etait le nom de la feuille que je voulais copier et je voulais la renommer sur le nouveau classeur Nbre1

Sub essai()

Dim x AsByte
* * ChDir 'C:\\\\\\\\Tmp'
* * Workbooks.Open Filename:='C:\\\\\\\\Tmp\\\\\\\\Guy3.xls'
* * Windows('Toto.xls').Activate
* * Sheets('Nbre').Copy Before:=Workbooks('Guy3.xls').Sheets(1)
* * OnErrorGoTo erreur
* * ActiveSheet.Name = 'Nbre1'
* * ExitSub
erreur:
* * Application.DisplayAlerts = False
* * Workbooks('Guy3.xls').Sheets('Nbre1').Delete
* * Application.DisplayAlerts = True
* * Workbooks('Guy3.xls').Sheets('Nbre').Name = 'Nbre1'
EndSub

Message édité par: Pascal76, à: 11/04/2006 09:58

[ninou58]

Re,
Cela fonctionne
mais j'ai toujours le message, j'aimerais ne pas l'avoir si c'est possible, car a mon avis ils vont pas tout comprendre.

Merci

[PascalXLD]

Re

Je vois pas trop ou tu as le message mais il faut juste placer un displayalerts=false avant la ligne qui te met le message et remettre à true après

[ninou58]

Re,
des qu'il passe cette ligne
Sheets('weekend').Copy Before:=Workbooks('classeur1.xls').Sheets(1)

j'ai une dizaine de message.
Je vais essayer de faire ce que tu m'as dit.

Merci

ps :impeccable, plus l'air d'y avoir des soucis, encor emerci. Je file fair ela suite :lol:

Message édité par: ninou58, à: 11/04/2006 10:33

[ninou58]

Euh j'ai du faire une betise
Maintenant quand je veux enregistrer mon classeur, il me met document non enregistré.
Et du coup je peux pa sle fermer, car je veux pa sperdre mes informations.