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
Sub NomClasseur() Dim Chr As String 'déclare la variable Chr = Range("fichier") ChDrive "C" 'si C n'est pas le disque par défaut ChDir "C:ajeter" ' a modifier ActiveWorkbook.SaveAs Filename:=(Chr) End Sub
http://dj.joss.free.fr/fichier.htm
-- Daniel FAQ MPFE http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"bozo" a écrit dans le message de news:
J'essaie de sauver un fichier dont le nom se trouve dans une cellule que j'ai nommer fichier, mais je n'y arrive pas. Merci de vos conseils
Bonjour
Sub NomClasseur()
Dim Chr As String 'déclare la variable
Chr = Range("fichier")
ChDrive "C" 'si C n'est pas le disque par défaut
ChDir "C:ajeter" ' a modifier
ActiveWorkbook.SaveAs Filename:=(Chr)
End Sub
http://dj.joss.free.fr/fichier.htm
--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm
VBAXL
http://dj.joss.free.fr/
"bozo" <bozo@discussions.microsoft.com> a écrit dans le message de news:
A22316F0-BB8D-44E1-B91D-0FCE156864F1@microsoft.com...
J'essaie de sauver un fichier dont le nom se trouve dans une cellule que
j'ai
nommer fichier, mais je n'y arrive pas.
Merci de vos conseils
Sub NomClasseur() Dim Chr As String 'déclare la variable Chr = Range("fichier") ChDrive "C" 'si C n'est pas le disque par défaut ChDir "C:ajeter" ' a modifier ActiveWorkbook.SaveAs Filename:=(Chr) End Sub
http://dj.joss.free.fr/fichier.htm
-- Daniel FAQ MPFE http://dj.joss.free.fr/faq.htm
VBAXL http://dj.joss.free.fr/
"bozo" a écrit dans le message de news:
J'essaie de sauver un fichier dont le nom se trouve dans une cellule que j'ai nommer fichier, mais je n'y arrive pas. Merci de vos conseils