bonjour à tous,
j'aimerais lancer une macro qui:
- enregistre ,puis
- enregistre sous dans un autre repertoire (U)
La macro fonctionne mais je souhaiterais continuer à travailler sur le
repertoire d'er d'origine .
J'ai pensé inverser l'ordre
- enregistre sous dans un autre repertoire (U)
- enregistre
le pb c'est que le repertoire d'origine n'est pas toujours au même endroit
Y a ty kekun parmi les dieux du VBA qui verrait s'il y a une solution?
je joins la macro ci dessous
Sub Enregistre_sauve()
'enregistre le fichier dans U sous le nom du fichier actuel
Dim mynam As String
mynam = ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="U:\" & mynam
Application.DisplayAlerts = True
End Sub
merci d'avance
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
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
Claude Trouet
Bonjour, En créant une varaible suppplémentaire dans laquelle serait rangé le répertoire du fichier comme ceci :
Sub Enregistre_sauve() 'enregistre le fichier dans U sous le nom du fichier actuel Dim mynam As String Dim dossier As String mynam = ActiveWorkbook.Name dossier¬tiveworkbook.Path Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="U:" & mynam ActiveWorkbook.SaveAs Filename:= dossier & mynam Application.DisplayAlerts = True End Sub
Est-ce OK ? CT
"gilles" a écrit dans le message de news:
bonjour à tous, j'aimerais lancer une macro qui: - enregistre ,puis - enregistre sous dans un autre repertoire (U) La macro fonctionne mais je souhaiterais continuer à travailler sur le repertoire d'er d'origine . J'ai pensé inverser l'ordre - enregistre sous dans un autre repertoire (U) - enregistre le pb c'est que le repertoire d'origine n'est pas toujours au même endroit Y a ty kekun parmi les dieux du VBA qui verrait s'il y a une solution? je joins la macro ci dessous
Sub Enregistre_sauve() 'enregistre le fichier dans U sous le nom du fichier actuel Dim mynam As String mynam = ActiveWorkbook.Name Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="U:" & mynam Application.DisplayAlerts = True End Sub
merci d'avance -- en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui, mais à chaque jour suffit sa peine...
Bonjour,
En créant une varaible suppplémentaire dans laquelle serait rangé le
répertoire du fichier
comme ceci :
Sub Enregistre_sauve()
'enregistre le fichier dans U sous le nom du fichier actuel
Dim mynam As String
Dim dossier As String
mynam = ActiveWorkbook.Name
dossier¬tiveworkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="U:" & mynam
ActiveWorkbook.SaveAs Filename:= dossier & mynam
Application.DisplayAlerts = True
End Sub
Est-ce OK ?
CT
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
7B33CF76-EC9B-4714-9003-5D00C0933998@microsoft.com...
bonjour à tous,
j'aimerais lancer une macro qui:
- enregistre ,puis
- enregistre sous dans un autre repertoire (U)
La macro fonctionne mais je souhaiterais continuer à travailler sur le
repertoire d'er d'origine .
J'ai pensé inverser l'ordre
- enregistre sous dans un autre repertoire (U)
- enregistre
le pb c'est que le repertoire d'origine n'est pas toujours au même
endroit
Y a ty kekun parmi les dieux du VBA qui verrait s'il y a une solution?
je joins la macro ci dessous
Sub Enregistre_sauve()
'enregistre le fichier dans U sous le nom du fichier actuel
Dim mynam As String
mynam = ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="U:" & mynam
Application.DisplayAlerts = True
End Sub
merci d'avance
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...
Bonjour, En créant une varaible suppplémentaire dans laquelle serait rangé le répertoire du fichier comme ceci :
Sub Enregistre_sauve() 'enregistre le fichier dans U sous le nom du fichier actuel Dim mynam As String Dim dossier As String mynam = ActiveWorkbook.Name dossier¬tiveworkbook.Path Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="U:" & mynam ActiveWorkbook.SaveAs Filename:= dossier & mynam Application.DisplayAlerts = True End Sub
Est-ce OK ? CT
"gilles" a écrit dans le message de news:
bonjour à tous, j'aimerais lancer une macro qui: - enregistre ,puis - enregistre sous dans un autre repertoire (U) La macro fonctionne mais je souhaiterais continuer à travailler sur le repertoire d'er d'origine . J'ai pensé inverser l'ordre - enregistre sous dans un autre repertoire (U) - enregistre le pb c'est que le repertoire d'origine n'est pas toujours au même endroit Y a ty kekun parmi les dieux du VBA qui verrait s'il y a une solution? je joins la macro ci dessous
Sub Enregistre_sauve() 'enregistre le fichier dans U sous le nom du fichier actuel Dim mynam As String mynam = ActiveWorkbook.Name Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="U:" & mynam Application.DisplayAlerts = True End Sub
merci d'avance -- en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui, mais à chaque jour suffit sa peine...
JpPradier
Bonjour gilles
Remplace SaveAs par SaveCopyAs et ca devrait le faire.
j-p
Bonjour gilles
Remplace SaveAs par SaveCopyAs et ca devrait le faire.
bonjour à tous, j'aimerais lancer une macro qui: - enregistre ,puis - enregistre sous dans un autre repertoire (U) La macro fonctionne mais je souhaiterais continuer à travailler sur le repertoire d'er d'origine . J'ai pensé inverser l'ordre - enregistre sous dans un autre repertoire (U) - enregistre le pb c'est que le repertoire d'origine n'est pas toujours au même endroit Y a ty kekun parmi les dieux du VBA qui verrait s'il y a une solution? je joins la macro ci dessous
Sub Enregistre_sauve() 'enregistre le fichier dans U sous le nom du fichier actuel Dim mynam As String mynam = ActiveWorkbook.Name Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="U:" & mynam Application.DisplayAlerts = True End Sub
merci d'avance -- en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui, mais à chaque jour suffit sa peine...
Bonjour,
Je ne suis pas un dieu de vba, c'est pourquoi je n'ai pas résolu ton
problème, je l'ai contourné ! :-)
bonjour à tous,
j'aimerais lancer une macro qui:
- enregistre ,puis
- enregistre sous dans un autre repertoire (U)
La macro fonctionne mais je souhaiterais continuer à travailler sur le
repertoire d'er d'origine .
J'ai pensé inverser l'ordre
- enregistre sous dans un autre repertoire (U)
- enregistre
le pb c'est que le repertoire d'origine n'est pas toujours au même endroit
Y a ty kekun parmi les dieux du VBA qui verrait s'il y a une solution?
je joins la macro ci dessous
Sub Enregistre_sauve()
'enregistre le fichier dans U sous le nom du fichier actuel
Dim mynam As String
mynam = ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="U:" & mynam
Application.DisplayAlerts = True
End Sub
merci d'avance
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui,
mais à chaque jour suffit sa peine...
bonjour à tous, j'aimerais lancer une macro qui: - enregistre ,puis - enregistre sous dans un autre repertoire (U) La macro fonctionne mais je souhaiterais continuer à travailler sur le repertoire d'er d'origine . J'ai pensé inverser l'ordre - enregistre sous dans un autre repertoire (U) - enregistre le pb c'est que le repertoire d'origine n'est pas toujours au même endroit Y a ty kekun parmi les dieux du VBA qui verrait s'il y a une solution? je joins la macro ci dessous
Sub Enregistre_sauve() 'enregistre le fichier dans U sous le nom du fichier actuel Dim mynam As String mynam = ActiveWorkbook.Name Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="U:" & mynam Application.DisplayAlerts = True End Sub
merci d'avance -- en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui, mais à chaque jour suffit sa peine...
gilles
Re bonjour à CLAUDE ,JP, et POY POY A voir la rapidité de vos réponses à mon PEUTIT pb de rien, je mesure le chemin qu'il me reste encore je vais devoir augmenter mon programme d'entrainement!!! Merci encore Je vous recontacte si pb
Re bonjour à CLAUDE ,JP, et POY POY
A voir la rapidité de vos réponses à mon PEUTIT pb de rien, je mesure le
chemin qu'il me reste encore
je vais devoir augmenter mon programme d'entrainement!!!
Merci encore
Je vous recontacte si pb
Re bonjour à CLAUDE ,JP, et POY POY A voir la rapidité de vos réponses à mon PEUTIT pb de rien, je mesure le chemin qu'il me reste encore je vais devoir augmenter mon programme d'entrainement!!! Merci encore Je vous recontacte si pb
gilles
à CLAUDE , JP , POY POY Merci encore à voir la rapidité de vos réponses, je me confonds en nullité!!! à + et merci "Claude Trouet" wrote:
Bonjour, En créant une varaible suppplémentaire dans laquelle serait rangé le répertoire du fichier comme ceci :
Sub Enregistre_sauve() 'enregistre le fichier dans U sous le nom du fichier actuel Dim mynam As String Dim dossier As String mynam = ActiveWorkbook.Name dossier¬tiveworkbook.Path Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="U:" & mynam ActiveWorkbook.SaveAs Filename:= dossier & mynam Application.DisplayAlerts = True End Sub
Est-ce OK ? CT
"gilles" a écrit dans le message de news:
bonjour à tous, j'aimerais lancer une macro qui: - enregistre ,puis - enregistre sous dans un autre repertoire (U) La macro fonctionne mais je souhaiterais continuer à travailler sur le repertoire d'er d'origine . J'ai pensé inverser l'ordre - enregistre sous dans un autre repertoire (U) - enregistre le pb c'est que le repertoire d'origine n'est pas toujours au même endroit Y a ty kekun parmi les dieux du VBA qui verrait s'il y a une solution? je joins la macro ci dessous
Sub Enregistre_sauve() 'enregistre le fichier dans U sous le nom du fichier actuel Dim mynam As String mynam = ActiveWorkbook.Name Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="U:" & mynam Application.DisplayAlerts = True End Sub
merci d'avance -- en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui, mais à chaque jour suffit sa peine...
à CLAUDE , JP , POY POY
Merci encore
à voir la rapidité de vos réponses, je me confonds en nullité!!!
à + et merci
"Claude Trouet" wrote:
Bonjour,
En créant une varaible suppplémentaire dans laquelle serait rangé le
répertoire du fichier
comme ceci :
Sub Enregistre_sauve()
'enregistre le fichier dans U sous le nom du fichier actuel
Dim mynam As String
Dim dossier As String
mynam = ActiveWorkbook.Name
dossier¬tiveworkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="U:" & mynam
ActiveWorkbook.SaveAs Filename:= dossier & mynam
Application.DisplayAlerts = True
End Sub
Est-ce OK ?
CT
"gilles" <gilles@discussions.microsoft.com> a écrit dans le message de news:
7B33CF76-EC9B-4714-9003-5D00C0933998@microsoft.com...
bonjour à tous,
j'aimerais lancer une macro qui:
- enregistre ,puis
- enregistre sous dans un autre repertoire (U)
La macro fonctionne mais je souhaiterais continuer à travailler sur le
repertoire d'er d'origine .
J'ai pensé inverser l'ordre
- enregistre sous dans un autre repertoire (U)
- enregistre
le pb c'est que le repertoire d'origine n'est pas toujours au même
endroit
Y a ty kekun parmi les dieux du VBA qui verrait s'il y a une solution?
je joins la macro ci dessous
Sub Enregistre_sauve()
'enregistre le fichier dans U sous le nom du fichier actuel
Dim mynam As String
mynam = ActiveWorkbook.Name
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="U:" & mynam
Application.DisplayAlerts = True
End Sub
merci d'avance
--
en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire
aujourd'hui,
mais à chaque jour suffit sa peine...
à CLAUDE , JP , POY POY Merci encore à voir la rapidité de vos réponses, je me confonds en nullité!!! à + et merci "Claude Trouet" wrote:
Bonjour, En créant une varaible suppplémentaire dans laquelle serait rangé le répertoire du fichier comme ceci :
Sub Enregistre_sauve() 'enregistre le fichier dans U sous le nom du fichier actuel Dim mynam As String Dim dossier As String mynam = ActiveWorkbook.Name dossier¬tiveworkbook.Path Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="U:" & mynam ActiveWorkbook.SaveAs Filename:= dossier & mynam Application.DisplayAlerts = True End Sub
Est-ce OK ? CT
"gilles" a écrit dans le message de news:
bonjour à tous, j'aimerais lancer une macro qui: - enregistre ,puis - enregistre sous dans un autre repertoire (U) La macro fonctionne mais je souhaiterais continuer à travailler sur le repertoire d'er d'origine . J'ai pensé inverser l'ordre - enregistre sous dans un autre repertoire (U) - enregistre le pb c'est que le repertoire d'origine n'est pas toujours au même endroit Y a ty kekun parmi les dieux du VBA qui verrait s'il y a une solution? je joins la macro ci dessous
Sub Enregistre_sauve() 'enregistre le fichier dans U sous le nom du fichier actuel Dim mynam As String mynam = ActiveWorkbook.Name Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="U:" & mynam Application.DisplayAlerts = True End Sub
merci d'avance -- en VBA aussi, ne remettons pas au lendemain ce qu'on peut faire aujourd'hui, mais à chaque jour suffit sa peine...
