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
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
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
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
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
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
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
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
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
Peut être qu'en mettant ThisWorkbook.Path à la place de Curdir résoudrait
ton premier pb
Xavier
"RT" a écrit dans le message de news:
%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
Peut être qu'en mettant ThisWorkbook.Path à la place de Curdir résoudrait
ton premier pb
Xavier
"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
Peut être qu'en mettant ThisWorkbook.Path à la place de Curdir résoudrait
ton premier pb
Xavier
"RT" a écrit dans le message de news:
%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
Bonjour.
As-tu essayé ce que je t'avais proposé :
après Selection.Copy
mets : repert = ActiveWorkbook.Path
Au lieu de
ActiveWorkbook.SaveAs CurDir & "" & Range("n6").Value
mets :
ActiveWorkbook.SaveAs repert & "" & Range("n6").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:
%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
Bonjour.
As-tu essayé ce que je t'avais proposé :
après Selection.Copy
mets : repert = ActiveWorkbook.Path
Au lieu de
ActiveWorkbook.SaveAs CurDir & "" & Range("n6").Value
mets :
ActiveWorkbook.SaveAs repert & "" & Range("n6").Value
Cordialement.
Daniel
"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
Bonjour.
As-tu essayé ce que je t'avais proposé :
après Selection.Copy
mets : repert = ActiveWorkbook.Path
Au lieu de
ActiveWorkbook.SaveAs CurDir & "" & Range("n6").Value
mets :
ActiveWorkbook.SaveAs repert & "" & Range("n6").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:
%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
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" a écrit dans le message de news:
%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
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
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" a écrit dans le message de news:
%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
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" wrote in message
news: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" a écrit dans le message de news:
%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
fonctionnenickel) 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
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
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" wrote in message
news: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" a écrit dans le message de news:
%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
fonctionnenickel) 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
Ajoute :
Range("A1").Select
Application.CutCopyMode = False
Daniel
"RT" a écrit dans le message de news: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" wrote in message
news: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" a écrit dans le message de news:
%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
fonctionnenickel) 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
Ajoute :
Range("A1").Select
Application.CutCopyMode = False
Daniel
"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
Ajoute :
Range("A1").Select
Application.CutCopyMode = False
Daniel
"RT" a écrit dans le message de news: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" wrote in message
news: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" a écrit dans le message de news:
%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
fonctionnenickel) 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
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" wrote in message
news: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" a écrit dans le message de news:
%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
fonctionnenickel) 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
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
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" wrote in message
news: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" a écrit dans le message de news:
%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
fonctionnenickel) 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
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" a écrit dans le message de news: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" wrote in message
news: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" a écrit dans le message de news:
%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
fonctionnenickel) 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
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
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" a écrit dans le message de news: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" wrote in message
news: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" a écrit dans le message de news:
%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
fonctionnenickel) 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
