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

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)

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

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

mais elle ne me convient pas

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

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.

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

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

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

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