Pour Daniel et quiconque veut aider avec save to

ET toc !!!!! :-((((((((



Effectivement

Même quand on me dit ce que je dois fqire, je ne le fais pas

MERCI

Et désolé

Rex :-))))))))



"LSteph" <lecocosteph@frite.fr> wrote in message
news:#kwOQqZJGHA.2912@tk2msftngp13.phx.gbl...

Si je ne m'abuse je te donnais trois solutions dont
celle qui marche impecable pour toi et à laquelle Xavier a pensé aussi
...
Mais tu n'as peut -être pas lu assez bas dans le texte ;o))

pour l'autre:

[a1].select


"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
OI2S1VZJGHA.2896@TK2MSFTNGP09.phx.gbl...

Bonjour et merci

Mais comme je l'ai dit à Daniel, la solution de Xavier fonctionne
impec,
donc je la garde

Mais il n'y a personne qui réponds à la deuxième question, elle est
peut-être trop bas dans le texte

Dans je recommence

Quand je reviens sur mon fichier d'origine toutes les cellules sont
sélectonnées
Ce qui n'est pas grave en soit, mais cela ne fait pas joli
J'aimerais pouvoir déselctionner

Encore une fois un grand merci à toi


Rex




"LSteph" <lecocosteph@frite.fr> wrote in message
news:u1ySHNZJGHA.2708@tk2msftngp13.phx.gbl...

Bonjour RT,
Curdir indique répertoire courant.
Si tu es sur C:Mes Doc... lors de ton instance Excel c'est normal
je n'ai pas suivu depuis le débit mais s'il sagit d' un classeur actif
au

départ de la macro dont on veut le chemin
mettre ceci avant les instructions de ta macro
'...
Dim chemin as string
chemin ¬tiveworkbook.path
'..puis plus loin

ActiveWorkbook.SaveAs chemin & "" & Range("n6").Value
'....
Si c'est le wb qui contient la macro Thisworkbook.path
Si c'est toujours un chemin déterminé autant l'écrire en dur.

lSteph

"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
%23RHSiEZJGHA.2704@TK2MSFTNGP15.phx.gbl...

Bonjour Daniel et les autres


Comme promis j'ai passé un peu de temps ce week-end sur mon souci

Pour rafraichir la mémoire, il s'agit (après tout le reste qui
fonctionne

nickel) de sauver la feuille

Nous avons créer (surtout Daniel) une petite macro qui

Sélectionne l'info d'une feuille,
ouvre un nouveau fichier,
colle la valeur des cellules et le format
puis sauve cette feuille en se servant de l'info de la cellule N6
comme

nom

Tout cela fonctionne impecablement

Mais il me reste deux petits soucis

Malgré la ligne ActiveWorkbook.SaveAs CurDir & "" &
Range("n6").Value

Il insiste pour sauver dans le répertoire C:Mes Documents

Alors qu'il faudrait que le fichier se retrouve dans le même fichier
que
l'original

Et juste pour le plaisir des yeux, j'aimerais que les cellules ne
soient
plus sélectionnées quand on reviens sur le fichiers d'origine


D'avance un grand merci à toi Daniel pour l'aide fournie jusqu'à
présent
et un grand merci à ceux qui veulent aider maintenant


Voici le macro comme elle est à présent




Sub Cmdsaveorder_Click()

Cells.Select
Range("A1:O60").Activate
Selection.Copy
Workbooks.Add

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> >> > _

False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: >> >> > _
False, Transpose:úlse

ActiveWorkbook.SaveAs CurDir & "" & Range("n6").Value

ActiveWorkbook.Close

End Sub