SaveAs + nomfichier

PascalXLD

XLDnaute Barbatruc

• 15 Janvier 2009

• #2

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

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 15 Janvier 2009

• #3

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 15 Janvier 2009

• #4

Re : SaveAs + nomfichier

RE

perso ce que je fais

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

puis ton code d'enregistrement

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 15 Janvier 2009

• #5

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 15 Janvier 2009

• #6

Re : SaveAs + nomfichier

Re

essaies

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

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 15 Janvier 2009

• #7

Re : SaveAs + nomfichier

PascalXLD à dit:

Re

essaies

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

Cliquez pour agrandir...

ça marche

Merci Pascal

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 15 Janvier 2009

• #8

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 15 Janvier 2009

• #9

Re : SaveAs + nomfichier

RE

Il faut une fois ton fichier sauvé faire

activeworkbook.close

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 15 Janvier 2009

• #10

Re : SaveAs + nomfichier

PascalXLD à dit:

RE

Il faut une fois ton fichier sauvé faire

activeworkbook.close

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 15 Janvier 2009

• #11

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

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 15 Janvier 2009

• #12

Re : SaveAs + nomfichier

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

Encore un grand merci pour ton aide...

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 15 Janvier 2009

• #13

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 ?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 15 Janvier 2009

• #14

Re : SaveAs + nomfichier

Bonjour

oui je regarde ce soir et je poste

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 15 Janvier 2009

• #15

Re : SaveAs + nomfichier

re

essaies

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

 

Vote positif 0 Vote négatif