SaveAs + nomfichier

[mikael2235]

Bonjour,

Je souhaite faire une macro qui enregistre une feuille du classeur dans un autre via la commande SaveAs. Le nom du fichier doit être composé d'une partie fixe et d'un numéro qui s'incremente automatiquement.

Voilà le code que j'ai réussi à faire mais il me met nomfichier comme nom...
Il ne prend pas en compte ma ligne nomfichier

Pouvez-vous m'aider ? MERCI



'Enregistrement de la demande -----
Application.DisplayAlerts = False

nomfichier = "M31-000 Demande essai_" & Format(ActiveSheet.Range("K6"), "0000")

MsgBox nomfichier
With ActiveWorkbook
.SaveAs Filename:="\\Tbidata\_Methode\M3 Laboratoire Tests\M31 Demandes\nomfichier"
.Close
End With

 

[PascalXLD]

Re : SaveAs + nomfichier

Bonjour

essaies de remplacer

.SaveAs Filename:="\\Tbidata\_Methode\M3 Laboratoire Tests\M31 Demandes\nomfichier"

par

.SaveAs Filename:="\\Tbidata\_Methode\M3 Laboratoire Tests\M31 Demandes\" & nomfichier

 

[mikael2235]

Re : SaveAs + nomfichier

Merci Pascal, ça marche avec ce code...

Mais par contre il me copie les deux onglets de mon fichier original dans la sauvegarde, alors que j'ai mis

ActiveSheet.SaveAs

Comment faire pour qu'il ne me sauvegarde que le premier onglet dans le nouveau fichier ?

Merci

 

[PascalXLD]

Re : SaveAs + nomfichier

RE

perso ce que je fais

Sheets("Feuil2").Copy ' ta feuille à récupérer

puis ton code d'enregistrement

 

[mikael2235]

Re : SaveAs + nomfichier

Encore un problème,

Je voudrais que mon paramètre nomfichier corresponde à la cellule I6 -1 et je ne sais pas ou mettre mon -1...

Help me please.




'Enregistrement d'une copie de la demande -----
Application.DisplayAlerts = False

nomfichier = "M31-000 Demande essai_" & Format(ActiveSheet.Range("I6"), "0000")

MsgBox "Votre demande sera sauvegardé sous le numéro suivant et à cet emplacement : " & nomfichier
With ActiveSheet
.SaveAs Filename:="\\Tbidata\_Methode\M3 Laboratoire Tests\M31 Demandes\" & nomfichier

End With

 

[PascalXLD]

Re : SaveAs + nomfichier

Re

essaies

nomfichier = "M31-000 Demande essai_" & Format(ActiveSheet.Range("I6")-1, "0000")

 

[mikael2235]

Re : SaveAs + nomfichier

Re

essaies

nomfichier = "M31-000 Demande essai_" & Format(ActiveSheet.Range("I6")-1, "0000")

ça marche

Merci Pascal

 

[mikael2235]

Re : SaveAs + nomfichier

Encore une question...

Quand je fais SaveAs, il m'enregistre le doc sous le nouveau nom que je lui ai demandé et il se retrouve dans se nouveau doc maintenant.

Moi je voudrais qu'il me m'enregistre une copie mais sans l'ouvrir.

EXEMPLE :

J'execute ma macro à partir du fichier "origine.xls". Lorsque qu'elle execute la commande SaveAs. Elle va enregistrer mes infos dans le doc origine0001.xls et le reste de ma macro va s'executer dans ce fichier.

A ce moment je voudrais qu'il me ferme "origine0001.xls" et qu'il retourne à "origine.xls" pour effectuer le reste de la macro.


Je ne sais pas si j'ai été clair. Merci de me dire si vous ne m'avez pas compris.

Encore merci pour votre aide.

Mikael

 

[PascalXLD]

Re : SaveAs + nomfichier

RE

Il faut une fois ton fichier sauvé faire

activeworkbook.close

 

[mikael2235]

Re : SaveAs + nomfichier

RE

Il faut une fois ton fichier sauvé faire

activeworkbook.close

Quand il me fait SaveAs il ferme le classeur original donc quand je met ActiveWorkbook.Close, il me ferme aussi ma copie.

Par hasard, est-ce qu'il existe sur ce site une liste qui repertorie les commandes VBA ?

Merci.

 

[PascalXLD]

Re : SaveAs + nomfichier

RE

en fait ce que je fais moi dans ce cas

je fais comme indiqué plus haut une copie de ma feuille
donc cela me fait un nouveau classeur
je l'enregistre avec saveas
je le ferme
et ensuite je suis toujuors sur celui qui me sert de modèle

 

[mikael2235]

Re : SaveAs + nomfichier

C'est bon avec ton code Copy. ça marche...

Encore un grand merci pour ton aide...

 

[mikael2235]

Re : SaveAs + nomfichier

Pour l'impression :

ActiveSheet.PrintOut choisis l'imprimante par défaut.

Peut-on faire une boite de dialogue qui nous demande de choisir l'imprimante ?

 

[PascalXLD]

Re : SaveAs + nomfichier

Bonjour

oui je regarde ce soir et je poste

 

[PascalXLD]

Re : SaveAs + nomfichier

re

essaies

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then ActiveSheet.PrintOut