Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.j
Bonjour, Enregistre le classeur sous la valeur de la cellule C1 dans le répertoire c:ajeter
Sub NomClasseur() Dim Chr As String 'déclare la variable Chr = Range("Essai!C1")'Feuille Essai et cellule C1 ChDrive "C" 'si C n'est pas le disque par défaut ChDir "C:ajeter" ActiveWorkbook.SaveAs Filename:=(Chr) End Sub et d'autres choses ici: http://dj.joss.free.fr/fichier.htm
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"stephane" a écrit dans le message de news: 67d201c42e99$c9467b50$ bonjour a tous
voila je suis en train de creer un systeme de facturation dans lesquelle je voudrais enregistrer sous le nom du n° de facture .
voici la macro macro que j'utilise pour l'instant
'Demander le nom de sauvegarde Savename = application.getsaveAsfinename
Bonjour,
Enregistre le classeur sous la valeur de la cellule C1 dans le répertoire c:ajeter
Sub NomClasseur()
Dim Chr As String 'déclare la variable
Chr = Range("Essai!C1")'Feuille Essai et cellule C1
ChDrive "C" 'si C n'est pas le disque par défaut
ChDir "C:ajeter"
ActiveWorkbook.SaveAs Filename:=(Chr)
End Sub
et d'autres choses ici:
http://dj.joss.free.fr/fichier.htm
--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"stephane" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
67d201c42e99$c9467b50$a301280a@phx.gbl...
bonjour a tous
voila je suis en train de creer un systeme de facturation
dans lesquelle je voudrais enregistrer sous le nom du n°
de facture .
voici la macro macro que j'utilise pour l'instant
'Demander le nom de sauvegarde
Savename = application.getsaveAsfinename
Bonjour, Enregistre le classeur sous la valeur de la cellule C1 dans le répertoire c:ajeter
Sub NomClasseur() Dim Chr As String 'déclare la variable Chr = Range("Essai!C1")'Feuille Essai et cellule C1 ChDrive "C" 'si C n'est pas le disque par défaut ChDir "C:ajeter" ActiveWorkbook.SaveAs Filename:=(Chr) End Sub et d'autres choses ici: http://dj.joss.free.fr/fichier.htm
-- Daniel MVP Excel FAQ du Forum Microsoft Public Fr Excel http://dj.joss.free.fr/faq.htm
"stephane" a écrit dans le message de news: 67d201c42e99$c9467b50$ bonjour a tous
voila je suis en train de creer un systeme de facturation dans lesquelle je voudrais enregistrer sous le nom du n° de facture .
voici la macro macro que j'utilise pour l'instant
'Demander le nom de sauvegarde Savename = application.getsaveAsfinename