bonjour et bonne année a tous
dans le fichier suivant je doit remplir une feuille a partir de l'userform de la page d'accueil,ensuite je doit enregistrer cette feuille dans un sous dossier a l'aide du bouton,mais la un message d'erreur aparait:(erreur d'execution'1004'
la méthode 'SaveAS'de l'objet '_worbook a échoué.)

quelqu'un pourrait il jeter un oeil sur le fichier car j'ai deja essayer un code mais cela n'enleve pas l'erreur.

merci d'avance

Bonjour à tous,

Merci pour tes voeux sur un autre message.
Je te retourne les miens ainsi qu'à ceux qui te sont chers.

Il me semble que tu navigues entre XL 2003 et XL 2007 :

Tu donnes comme Chemin un format XL 2003
Tu demandes un SaveAs en format XL 2007 

Je te laisse modifier la ligne que tu souhaites...

A+

rebonjour et bonjour JCGL

j'ai réctifier le code en "XML"sans succer.
 
tu as une macro qui cache le feuille, par conséquent la macro ne peut pas s'effectuer sur la feuille cachée.
tu peux afficher toutes les feuilles à l'ouverture de fichier avec un truc du style
Dim F As Worksheet
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each F In Worksheets
F.Visible = True
Next F
End Sub

Sinon, si tu préfères avoir les feuilles cachées (pour éviter l'acces à utilisateur tu peux afficher la(les) feuille(s) utilisées dans l'userform en ajoutant dans le bouton valider de ton userform:
au début:
If Sheets("feuille").Visible = xlSheetVeryHidden(ou hidden) Then
Sheets("feuille").Visible = True
end if
à la fin pour la caher à nouveau:
If Sheets("feuille").Visible = True Then
Sheets("feuille").Visible = xlSheetVeryHidden(ou hidden)
end if
Voila
bonne soirée

voila le code que l'on ma proposer hier que j'ai essayer sans succer aussi peut etre une erreur de placement de ma par dans le reste de la macro.

quelqu'un peut il m'eclairer merci beaucoup

Bonjour à tous,

Sur ce coup là mon cher Claude40, je ne te suivrais pas :

On m'a proposé un code... 

Vois avec la personne qui t'a proposé le code.

Nous t'avons mDF et moi proposé un code qui, combiné astucieusement, pouvait convenir (je l'ai reproduit sur XL2003 sans aucun problème).

En multipliant les questions SUR PLUSIEURS FORUMS, tu ne fais qu'embrouiller tout le monde et par la même toi aussi...

A+ à tous

bonjour a tous
bonjour JCGL

sa m'apprendra merci quand meme

bonne journée