Re
Une histoire de parametres régionaux dans le panneau de config peut-etre ?
j-p
Re
Une histoire de parametres régionaux dans le panneau de config peut-etre ?
j-p
Re
Une histoire de parametres régionaux dans le panneau de config peut-etre ?
j-p
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même problème
Et mon deuxième petit souci est que je voudrais qu'une petite macro
sauveuniquement cette feuille dans un nouveau fichier sous le nom de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la copie,
ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ucGP$ypIGHA.3056@TK2MSFTNGP09.phx.gbl...
Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
O6crirpIGHA.3936@TK2MSFTNGP12.phx.gbl...
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:#EXeihpIGHA.604@TK2MSFTNGP14.phx.gbl...
Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
uyHabMpIGHA.3816@TK2MSFTNGP12.phx.gbl...
Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits commerciaux
comme
moi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même problème
Et mon deuxième petit souci est que je voudrais qu'une petite macro
sauve
uniquement cette feuille dans un nouveau fichier sous le nom de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la copie,
ouvre
un
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même problème
Et mon deuxième petit souci est que je voudrais qu'une petite macro
sauveuniquement cette feuille dans un nouveau fichier sous le nom de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la copie,
ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même problème
Et mon deuxième petit souci est que je voudrais qu'une petite macro
sauveuniquement cette feuille dans un nouveau fichier sous le nom de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la copie,
ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ucGP$ypIGHA.3056@TK2MSFTNGP09.phx.gbl...
Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
O6crirpIGHA.3936@TK2MSFTNGP12.phx.gbl...
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:#EXeihpIGHA.604@TK2MSFTNGP14.phx.gbl...
Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
uyHabMpIGHA.3816@TK2MSFTNGP12.phx.gbl...
Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits commerciaux
comme
moi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même problème
Et mon deuxième petit souci est que je voudrais qu'une petite macro
sauve
uniquement cette feuille dans un nouveau fichier sous le nom de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la copie,
ouvre
un
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même problème
Et mon deuxième petit souci est que je voudrais qu'une petite macro
sauveuniquement cette feuille dans un nouveau fichier sous le nom de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la copie,
ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" wrote in message
news:Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantitésTous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom qui
setrouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite macro
sauveuniquement cette feuille dans un nouveau fichier sous le nom de
cettecellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la copie,
ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:eYYIE2pIGHA.648@TK2MSFTNGP14.phx.gbl...
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ucGP$ypIGHA.3056@TK2MSFTNGP09.phx.gbl...
Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
O6crirpIGHA.3936@TK2MSFTNGP12.phx.gbl...
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:#EXeihpIGHA.604@TK2MSFTNGP14.phx.gbl...
Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
uyHabMpIGHA.3816@TK2MSFTNGP12.phx.gbl...
Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
comme
moi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite macro
sauve
uniquement cette feuille dans un nouveau fichier sous le nom de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la copie,
ouvre
un
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: > _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" wrote in message
news:Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantitésTous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom qui
setrouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite macro
sauveuniquement cette feuille dans un nouveau fichier sous le nom de
cettecellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la copie,
ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > > _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" wrote in message
news:Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client
va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantitésTous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
qui
setrouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macro
sauveuniquement cette feuille dans un nouveau fichier sous le nom de
cettecellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,
ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
Oe2xU9yIGHA.344@TK2MSFTNGP11.phx.gbl...
AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > > _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:eYYIE2pIGHA.648@TK2MSFTNGP14.phx.gbl...
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ucGP$ypIGHA.3056@TK2MSFTNGP09.phx.gbl...
Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
O6crirpIGHA.3936@TK2MSFTNGP12.phx.gbl...
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client
va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:#EXeihpIGHA.604@TK2MSFTNGP14.phx.gbl...
Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
uyHabMpIGHA.3816@TK2MSFTNGP12.phx.gbl...
Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
comme
moi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macro
sauve
uniquement cette feuille dans un nouveau fichier sous le nom de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,
ouvre
un
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > > _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" wrote in message
news:Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client
va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantitésTous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
qui
setrouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;" ";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macro
sauveuniquement cette feuille dans un nouveau fichier sous le nom de
cettecellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,
ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Bonjour
Merci pour ton aide
Mais il y a (encore) quelque chose qui cloche
En effet
La macro fait un copier/coller sur ma feuille originale
J'explique
Je suis sur une feuille test avec mes données calculées
Je lance la macro
Il me sauve un fichier au nom de la cellule A10 comme prévu
MAIS
Sur ma feuille originale toutes mes formules sont remplacées par des
valeurs
aussi
Et ça ce n'est pas le but
Il faudrait que la feuille originale d'ou je lance la macro reste intacte
Le but est de se remplir de la feuille d'origine, de créer une feuille à
stocker
et de recréer une autre feuille, le stocker, ainsi de suite............
J'espère que je suis assez claire
Mais de toute façon je te remercie pour ton aide jusqu'à présent
Et j'avance
Ou plutôt comme disait Pierre Richard "L'echelle est est haute, mais je
grimpe, je grimpe"
A bientôt
Rex
"Daniel" wrote in message
news:#Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on
veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" wrote in message
news:Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client
vamettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de
news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantitésTous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
quisetrouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;"
";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macrosauveuniquement cette feuille dans un nouveau fichier sous le nom de
cettecellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
celluleAA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Bonjour
Merci pour ton aide
Mais il y a (encore) quelque chose qui cloche
En effet
La macro fait un copier/coller sur ma feuille originale
J'explique
Je suis sur une feuille test avec mes données calculées
Je lance la macro
Il me sauve un fichier au nom de la cellule A10 comme prévu
MAIS
Sur ma feuille originale toutes mes formules sont remplacées par des
valeurs
aussi
Et ça ce n'est pas le but
Il faudrait que la feuille originale d'ou je lance la macro reste intacte
Le but est de se remplir de la feuille d'origine, de créer une feuille à
stocker
et de recréer une autre feuille, le stocker, ainsi de suite............
J'espère que je suis assez claire
Mais de toute façon je te remercie pour ton aide jusqu'à présent
Et j'avance
Ou plutôt comme disait Pierre Richard "L'echelle est est haute, mais je
grimpe, je grimpe"
A bientôt
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:#FvBkD0IGHA.984@tk2msftngp13.phx.gbl...
Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
Oe2xU9yIGHA.344@TK2MSFTNGP11.phx.gbl...
AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on
veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:eYYIE2pIGHA.648@TK2MSFTNGP14.phx.gbl...
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ucGP$ypIGHA.3056@TK2MSFTNGP09.phx.gbl...
Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
O6crirpIGHA.3936@TK2MSFTNGP12.phx.gbl...
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client
va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:#EXeihpIGHA.604@TK2MSFTNGP14.phx.gbl...
Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de
news:
uyHabMpIGHA.3816@TK2MSFTNGP12.phx.gbl...
Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
comme
moi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;"
";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macro
sauve
uniquement cette feuille dans un nouveau fichier sous le nom de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,
ouvre
un
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Bonjour
Merci pour ton aide
Mais il y a (encore) quelque chose qui cloche
En effet
La macro fait un copier/coller sur ma feuille originale
J'explique
Je suis sur une feuille test avec mes données calculées
Je lance la macro
Il me sauve un fichier au nom de la cellule A10 comme prévu
MAIS
Sur ma feuille originale toutes mes formules sont remplacées par des
valeurs
aussi
Et ça ce n'est pas le but
Il faudrait que la feuille originale d'ou je lance la macro reste intacte
Le but est de se remplir de la feuille d'origine, de créer une feuille à
stocker
et de recréer une autre feuille, le stocker, ainsi de suite............
J'espère que je suis assez claire
Mais de toute façon je te remercie pour ton aide jusqu'à présent
Et j'avance
Ou plutôt comme disait Pierre Richard "L'echelle est est haute, mais je
grimpe, je grimpe"
A bientôt
Rex
"Daniel" wrote in message
news:#Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on
veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> > _False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: >> > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" wrote in message
news:Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le client
vamettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de
news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantitésTous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
quisetrouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;"
";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macrosauveuniquement cette feuille dans un nouveau fichier sous le nom de
cettecellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
celluleAA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ca ne réagit pas comme ça ici. :
ActiveSheet.Copy
copie la feuille dans un nouveau classeur.
Cells.Copy
copie de toutes les cellules de la nouvelle feuille.
Cells.PasteSpecial xlPasteValues
colle les valeurs sur la nouvelle feuille.
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Merci pour ton aide
Mais il y a (encore) quelque chose qui cloche
En effet
La macro fait un copier/coller sur ma feuille originale
J'explique
Je suis sur une feuille test avec mes données calculées
Je lance la macro
Il me sauve un fichier au nom de la cellule A10 comme prévu
MAIS
Sur ma feuille originale toutes mes formules sont remplacées par des
valeurs
aussi
Et ça ce n'est pas le but
Il faudrait que la feuille originale d'ou je lance la macro reste
intacte
Le but est de se remplir de la feuille d'origine, de créer une feuille à
stocker
et de recréer une autre feuille, le stocker, ainsi de
suite............
J'espère que je suis assez claire
Mais de toute façon je te remercie pour ton aide jusqu'à présent
Et j'avance
Ou plutôt comme disait Pierre Richard "L'echelle est est haute, mais je
grimpe, je grimpe"
A bientôt
Rex
"Daniel" wrote in message
news:#Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on
veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" wrote in message
news:Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de
news:
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le
client
vamettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi
dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de
news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la
fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantitésTous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
quisetrouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;"
";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macrosauveuniquement cette feuille dans un nouveau fichier sous le nom
de
cettecellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
celluleAA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ca ne réagit pas comme ça ici. :
ActiveSheet.Copy
copie la feuille dans un nouveau classeur.
Cells.Copy
copie de toutes les cellules de la nouvelle feuille.
Cells.PasteSpecial xlPasteValues
colle les valeurs sur la nouvelle feuille.
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
OqYZS60IGHA.516@TK2MSFTNGP15.phx.gbl...
Bonjour
Merci pour ton aide
Mais il y a (encore) quelque chose qui cloche
En effet
La macro fait un copier/coller sur ma feuille originale
J'explique
Je suis sur une feuille test avec mes données calculées
Je lance la macro
Il me sauve un fichier au nom de la cellule A10 comme prévu
MAIS
Sur ma feuille originale toutes mes formules sont remplacées par des
valeurs
aussi
Et ça ce n'est pas le but
Il faudrait que la feuille originale d'ou je lance la macro reste
intacte
Le but est de se remplir de la feuille d'origine, de créer une feuille à
stocker
et de recréer une autre feuille, le stocker, ainsi de
suite............
J'espère que je suis assez claire
Mais de toute façon je te remercie pour ton aide jusqu'à présent
Et j'avance
Ou plutôt comme disait Pierre Richard "L'echelle est est haute, mais je
grimpe, je grimpe"
A bientôt
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:#FvBkD0IGHA.984@tk2msftngp13.phx.gbl...
Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
Oe2xU9yIGHA.344@TK2MSFTNGP11.phx.gbl...
AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on
veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:eYYIE2pIGHA.648@TK2MSFTNGP14.phx.gbl...
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ucGP$ypIGHA.3056@TK2MSFTNGP09.phx.gbl...
Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de
news:
O6crirpIGHA.3936@TK2MSFTNGP12.phx.gbl...
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le
client
va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi
dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:#EXeihpIGHA.604@TK2MSFTNGP14.phx.gbl...
Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de
news:
uyHabMpIGHA.3816@TK2MSFTNGP12.phx.gbl...
Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la
fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
comme
moi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;"
";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macro
sauve
uniquement cette feuille dans un nouveau fichier sous le nom
de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,
ouvre
un
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ca ne réagit pas comme ça ici. :
ActiveSheet.Copy
copie la feuille dans un nouveau classeur.
Cells.Copy
copie de toutes les cellules de la nouvelle feuille.
Cells.PasteSpecial xlPasteValues
colle les valeurs sur la nouvelle feuille.
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Merci pour ton aide
Mais il y a (encore) quelque chose qui cloche
En effet
La macro fait un copier/coller sur ma feuille originale
J'explique
Je suis sur une feuille test avec mes données calculées
Je lance la macro
Il me sauve un fichier au nom de la cellule A10 comme prévu
MAIS
Sur ma feuille originale toutes mes formules sont remplacées par des
valeurs
aussi
Et ça ce n'est pas le but
Il faudrait que la feuille originale d'ou je lance la macro reste
intacte
Le but est de se remplir de la feuille d'origine, de créer une feuille à
stocker
et de recréer une autre feuille, le stocker, ainsi de
suite............
J'espère que je suis assez claire
Mais de toute façon je te remercie pour ton aide jusqu'à présent
Et j'avance
Ou plutôt comme disait Pierre Richard "L'echelle est est haute, mais je
grimpe, je grimpe"
A bientôt
Rex
"Daniel" wrote in message
news:#Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on
veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" wrote in message
news:Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de
news:
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le
client
vamettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi
dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de
news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la
fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantitésTous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
quisetrouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;"
";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macrosauveuniquement cette feuille dans un nouveau fichier sous le nom
de
cettecellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
celluleAA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ca ne réagit pas comme ça ici. :
ActiveSheet.Copy
copie la feuille dans un nouveau classeur.
Cells.Copy
copie de toutes les cellules de la nouvelle feuille.
Cells.PasteSpecial xlPasteValues
colle les valeurs sur la nouvelle feuille.
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Merci pour ton aide
Mais il y a (encore) quelque chose qui cloche
En effet
La macro fait un copier/coller sur ma feuille originale
J'explique
Je suis sur une feuille test avec mes données calculées
Je lance la macro
Il me sauve un fichier au nom de la cellule A10 comme prévu
MAIS
Sur ma feuille originale toutes mes formules sont remplacées par des
valeurs
aussi
Et ça ce n'est pas le but
Il faudrait que la feuille originale d'ou je lance la macro reste
intacte
Le but est de se remplir de la feuille d'origine, de créer une feuille à
stocker
et de recréer une autre feuille, le stocker, ainsi de
suite............
J'espère que je suis assez claire
Mais de toute façon je te remercie pour ton aide jusqu'à présent
Et j'avance
Ou plutôt comme disait Pierre Richard "L'echelle est est haute, mais je
grimpe, je grimpe"
A bientôt
Rex
"Daniel" wrote in message
news:#Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on
veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" wrote in message
news:Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de
news:
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le
client
vamettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi
dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de
news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la
fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantitésTous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
quisetrouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;"
";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macrosauveuniquement cette feuille dans un nouveau fichier sous le nom
de
cettecellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
celluleAA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ca ne réagit pas comme ça ici. :
ActiveSheet.Copy
copie la feuille dans un nouveau classeur.
Cells.Copy
copie de toutes les cellules de la nouvelle feuille.
Cells.PasteSpecial xlPasteValues
colle les valeurs sur la nouvelle feuille.
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
OqYZS60IGHA.516@TK2MSFTNGP15.phx.gbl...
Bonjour
Merci pour ton aide
Mais il y a (encore) quelque chose qui cloche
En effet
La macro fait un copier/coller sur ma feuille originale
J'explique
Je suis sur une feuille test avec mes données calculées
Je lance la macro
Il me sauve un fichier au nom de la cellule A10 comme prévu
MAIS
Sur ma feuille originale toutes mes formules sont remplacées par des
valeurs
aussi
Et ça ce n'est pas le but
Il faudrait que la feuille originale d'ou je lance la macro reste
intacte
Le but est de se remplir de la feuille d'origine, de créer une feuille à
stocker
et de recréer une autre feuille, le stocker, ainsi de
suite............
J'espère que je suis assez claire
Mais de toute façon je te remercie pour ton aide jusqu'à présent
Et j'avance
Ou plutôt comme disait Pierre Richard "L'echelle est est haute, mais je
grimpe, je grimpe"
A bientôt
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:#FvBkD0IGHA.984@tk2msftngp13.phx.gbl...
Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:
Oe2xU9yIGHA.344@TK2MSFTNGP11.phx.gbl...
AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on
veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:eYYIE2pIGHA.648@TK2MSFTNGP14.phx.gbl...
Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ucGP$ypIGHA.3056@TK2MSFTNGP09.phx.gbl...
Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de
news:
O6crirpIGHA.3936@TK2MSFTNGP12.phx.gbl...
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le
client
va
mettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi
dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" <dZZZcolardelle@free.fr> wrote in message
news:#EXeihpIGHA.604@TK2MSFTNGP14.phx.gbl...
Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de
news:
uyHabMpIGHA.3816@TK2MSFTNGP12.phx.gbl...
Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la
fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
comme
moi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantités
Tous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
qui
se
trouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;"
";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macro
sauve
uniquement cette feuille dans un nouveau fichier sous le nom
de
cette
cellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,
ouvre
un
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
cellule
AA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
Ca ne réagit pas comme ça ici. :
ActiveSheet.Copy
copie la feuille dans un nouveau classeur.
Cells.Copy
copie de toutes les cellules de la nouvelle feuille.
Cells.PasteSpecial xlPasteValues
colle les valeurs sur la nouvelle feuille.
Cordialement.
Daniel
"RT" a écrit dans le message de news:Bonjour
Merci pour ton aide
Mais il y a (encore) quelque chose qui cloche
En effet
La macro fait un copier/coller sur ma feuille originale
J'explique
Je suis sur une feuille test avec mes données calculées
Je lance la macro
Il me sauve un fichier au nom de la cellule A10 comme prévu
MAIS
Sur ma feuille originale toutes mes formules sont remplacées par des
valeurs
aussi
Et ça ce n'est pas le but
Il faudrait que la feuille originale d'ou je lance la macro reste
intacte
Le but est de se remplir de la feuille d'origine, de créer une feuille à
stocker
et de recréer une autre feuille, le stocker, ainsi de
suite............
J'espère que je suis assez claire
Mais de toute façon je te remercie pour ton aide jusqu'à présent
Et j'avance
Ou plutôt comme disait Pierre Richard "L'echelle est est haute, mais je
grimpe, je grimpe"
A bientôt
Rex
"Daniel" wrote in message
news:#Bonjour.
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Cells.PasteSpecial xlPasteFormats
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de news:AAAAAAAAAAAAAAGGGGGGHHHHHHH!!!!!!!!!!!!!!!!1
J'ai crié victoire trop tôt
C'est pas grave, mais cela me gêne un peu quand même
Ta petite macro fait un copy paste simple
Ce qui fait que lorsqu'on ouvre le fichier sauvant il demande si on
veut
faire une mise à jour des liens entre fichiers
Donc je voudrais faire un copy paste values and format
Donc j'ai ajouté quelques lignes à ton code mais sans succès
Et re-donc, je reviens vers toi
Voici ton code démoli par mes soins
Sub savesheetonly()
ActiveSheet.Copy
' added lines
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > >> > _False, Transpose:úlse
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks: > >> > _
False, Transpose:úlse
' end of added lines
ActiveWorkbook.SaveAs Range("aA6").Value
ActiveWorkbook.Close
End Sub
J'espère que ce n'est trop te demander une correction
Merci pour tout
Rex
"Daniel" wrote in message
news:Ou, si le classeur source n'est pas dans le répertoire courant :
Sub test1()
repert = ActiveWorkbook.Path
ActiveSheet.Copy
ActiveWorkbook.SaveAs repert & "" & Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"Daniel" a écrit dans le message de news:
ucGP$Mets :
ActiveWorkbook.SaveAs CurDir & "" & Range("A10").Value
Cordialement.
Daniel
"RT" a écrit dans le message de
news:
Bonsoir
Court, bref et impeccable
Mais, si j'ose me permettre une petite demande supplémentaire
Ta petite macro sauvegarde directement dans le C et pas dans un
répertoire
Comment faire pour qu'elle le sauve dans le répertoire actif
En sachant que je ne saurais jamais dans quel répertoire le
client
vamettre
le fichier que je lui envoi?
Donc par exemple si le client met le fichier que je lui envoi
dans
c:/toctoc/qui est la/
Il faudrait que le nouveau fichier se retrouve dans le même
répertoire
Mais de toute façon un grand merci pour tes réponses
Rex
"Daniel" wrote in message
news:#Bonjour.
1. A5&" "&TEXTE(AUJOURDHUI();"jj-mm-aaaa")
2. macro :
Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("A10").Value
ActiveWorkbook.Close
End Sub
Cordialement.
Daniel
"RT" a écrit dans le message de
news:Bonjour
Je viens vers vous avec dans mes baggages deux petits soucis
Le premier souci est avec la formule CONCATENATE et la
fonction
=TODAY()
Voici ce qui se passe
Je suis en train de créer un formulaire afin que mes clients
(ces petites ames si charitables qui font que les petits
commerciaux
commemoi gagnent de quoi vivre)
Aient facile de placer leur commandes
Je vais leur fournir un fichier Excel de base dans lequel ils
metteront
leur
données sur la première feuille
Puis sur une deuxième feuille ils choisiront les produits et
quantitésTous cela sera compilé sur une troisiéme feuille
Pour tout cela je me débrouille
Mais c'est ici que les problèmes commencent
Primo je voudrais que dans une cellule AA10 je retrouve le nom
quisetrouve
en A5 et la date du jour
Donc je mets dans la cellule AA9 la formule =TODAY() et j'y
retrouve
la
date
formatée en 28 Jan 2006
Dans la cellule A10 je mets la formule =CONCATENATE(A5;"
";AA9)
Ce qui me donne "nom 38743" au lieu de "nom 26 Jan 2006"
Même si je remplace la partie AA9 par TODAY(), j'ai le même
problème
Et mon deuxième petit souci est que je voudrais qu'une petite
macrosauveuniquement cette feuille dans un nouveau fichier sous le nom
de
cettecellule AA10
Pour cela j'ai fait une macro qui sélectionne la feuille, la
copie,ouvreun
nouveau fichier,
colle les valeurs et le formatage,
Mais je ne parviens pas à lui faire prendre le texte de la
celluleAA10
comme nom de fichier
Alors voilà mes deux petits soucis
Et j'espère (mais j'en suis déjà convaincu) que vous avez la
solution
A très bientôt
Rex
