Discussion :

[dodo69]

Bonjour le forum,
me revoilà avec un problème à mes trousses...

La macro ci dessous est censé faire la copie de la feuille "resultat" du classeur ("traitement.xls").

Seulement, après l'éxecution, je n'ai que "classeurxx.xlsx" d'ouvert et rien de sauvegarder

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
monchemin = Repertoire.SelectedItems(1)
 
Set wb1 = Workbooks("traitement.xls")
wb1.Worksheets("resultat").Copy
 
Application.DisplayAlerts = False
 
Set wb = ActiveWorkbook
'MsgBox (wb.name & monchemin)
wb.SaveAs monchemin & "\" & Fichier & ".xls", Excel8
Application.DisplayAlerts = True

Pour récapituler, j'aimerai copier la feuille "resultat" dans un nouveau classeur puis sauvegarder ce classeur que je souhaite appelé :"resultat de" & nom_chef_produit & " du " & Format(Date, "dd_mmm_yyyy")

Merci d'avance pour vos propositions
Cdlt
DoDo

[Duddy]

Bonsoir le forum,

Pour ma part je commencerai par mettre la ligne 9 en commentaires pour avoir le message d'erreur et pouvoir deboguer.

Ensuite, j'ai peut-être mal lu, mais je ne vois pas la variable "Fichier" avec une valeur (Fichier="blabla").

[dodo69]

bonjour duddy bonjour à tous,

merci de me lire,

Fichier a bien une valeur, je la vérifie plus haut dans le code

Code :

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

Fichier = "resultat de" & nom_chef_produit & " du " & Format(Date, "dd_mmm_yyyy")

J'ai essayé ton idée de mettre la ligne 9 en commentaire, et j'ai une bonne nouvelle, la sauvegarde marche comme y faut,

Malheureusement, il ne faut pas que des message d'alerte s'affiche... c'est desagréable pour l'utilisateur

Quelqu'un a une idée ?

Merci d'avance
et merci Duddy pour ton idée

Cdlt
dodo

[Duddy]

Bonjour le forum,

Quel est le message?