enregistrer uniquement une feuille de donnés excel dans un autre fichier excelRésolu

Question

Bonjour à tous
je voudrais enregistrer uniquement une feuille de mon classeur dans un autre fichier excel dont on me demandera le nom et l'emplacement.
Je debute.
Merci

mortalino · Accepted Answer

Bien que ce ne soit pas top, peut-être ouvrir ce fichier copié, lui affecté la protection à la feuille voulue, puis le refermer.

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

jrivet · Answer

Salut,

Essaie

Dim W1 As Workbook
Dim W2 As Workbook

Set W1 = ActiveWorkbook
'ouvre le classeur de destination
Set W2 = Application.Workbooks.Open("C:\Test1.Xls")

'Va copier Feuil 1 du classeur source avant la
'feuille d'indice 1 du classeur destiantion
Call W1.Sheets("Feuil1").Copy(W2.Sheets(1))

'ferme et sauvegarde le classeur de destination.
Call W2.Close(True)
, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

mortalino · Answer

salut,

merci de valider la réponse de JRivet si elle te convient ! (salut Julien )

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

duquenoy13 · Answer

mais elle ne me convient pas

jrivet · Answer

Salut,
Mais si elle ne convient pas tu serais plutot sympa de le dire, et d'expliquer mieux ton problème, et en quoi elle ne te convient pas.

De plus saches que c'est juste pour t'orienter.
Tu veux un programme tout cuit? 

@+: Ju£i?n
Pensez: Réponse acceptée

duquenoy13 · Answer

Non ne le prend pas comme ca, excuse moi c'est vrai que ce n'est pas cool. Je m'en excuse, c'était simpa de m'avoir repondu. je recherché comment faire enregistrer sous à partir d'un bouton. J'ai a peu prés trouvé comment faire sauf que lorsque je le fais ca me désactive la protection de ma feuille de classeur. Encore désolé et merci pour ton aide.

duquenoy13 · Answer

salut,


Par contre j'ai eu problème quand je sauvegarde ma feuille celle-ci perd sa protection, j'ai pourtant mis un "protect" aprés les lignes de code correspondant à la sauvegarde. Pouvais vous m'aider?


merci

mortalino · Answer

salut,

utilise la méthode Protect "TonPassword"
de la feuille que tu viens d'insérer

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

duquenoy13 · Answer

salut le provencal gaulois,

j'ai ecrit ce code sur ma feuille de travail mais c lorsque je la sauvegarde, elle perd sa protection.

Sheets("Données bagues").Unprotect


Sheets("Données bagues").Copy


Application.Dialogs(xlDialogSaveAs).Show




Application.ActiveWorkbook.Saved = True
Workbooks("bagues et piges.xls").Worksheets("Accueil").Activate


Sheets("Données bagues").Protect

mais la protection ne veut pas prendre

mortalino · Answer

salut,

déjà là :
Application.ActiveWorkbook.Saved = True

ça ne sauvegarde pas, tu dis juste à Excel que c'est enregistré, mais ça ne l'est pas.

Peux-tu metre des commentaires devant chaque instruction que je comprenne ce que tu souhaites faire.
Je pense savoir ce que tu veux, mais ce n'est pas la bonne méthode (enfin, si je comprends bien ce que tu veux)
disons qu'il manque 2 ou 3 instructions !

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

duquenoy13 · Answer

salut,
j'ai écrit Application.ActiveWorkbook.Saved = True pour que excel ne me demande pas si je veux sauvegarder quand je ferme le "classeur1" que je vien de crée en enregistrant ma feuille de mon fichier source dedans. Ce que je souhaite c'est "enregistrer sous"(je veux que cette boite de dialog apparraisse) la feuille de mon fichier source qui contient les mesures que j'ai recupéré via un rs232 sans que mon fichier source perde sa protection. merci pour ton aide.

mortalino · Answer

en fait, avec ton xlDialogSave, ça n'enregistre rien, tu n'as que la fenêtre.
Tu ne récupère que le chemin choisi par l'utilisateur, à toi après de faire un
ThisWorkBook.SaveAs Tonchemin

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

duquenoy13 · Answer

salut,

si si ca sauvegarde, mais c o niveau de la protection de ma feuille que j'ai un probleme

duquenoy13 · Answer

ouais je m'étais résigné a ca, merci pour ta disponibilté, c'atait bien simpa.

Enregistrer uniquement une feuille de donnés excel dans un autre fichier excel

14 réponses

Votre réponse

Discussions similaires