Mettre une cellule dans l'adresse d'une macro
Résolu
tonny43
-
tonny43 -
tonny43 -
Bonjour,
je souhaiterai integre le nom d'un cellule pour cree un nouveau dossier et ensuite cree une copie de la feuille 3 dans ce nouveau dossier, la copie marche mais je n'arrive pas a donner le non de la cellule a mon dossier la cellule a recupérer ce trouve en feuille 2 cellule M16 voici le mon programme
Sub MACRO()
r = ActiveSheet.Range("M16").Value
MkDir ("\\Socam-svr\AXESYT\r")
' ENREGIST Macro
Sheets("BASE DE DONNEE").Select
Range("C9").Select
Sheets("PIBTD2").Select
Sheets("PIBTD2").Copy
ChDir "\\Socam-svr\AXESYT\r"
ActiveWorkbook.SaveAs Filename:="\\Socam-svr\AXESYT\r\LANCEMENT.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
je souhaiterai integre le nom d'un cellule pour cree un nouveau dossier et ensuite cree une copie de la feuille 3 dans ce nouveau dossier, la copie marche mais je n'arrive pas a donner le non de la cellule a mon dossier la cellule a recupérer ce trouve en feuille 2 cellule M16 voici le mon programme
Sub MACRO()
r = ActiveSheet.Range("M16").Value
MkDir ("\\Socam-svr\AXESYT\r")
' ENREGIST Macro
Sheets("BASE DE DONNEE").Select
Range("C9").Select
Sheets("PIBTD2").Select
Sheets("PIBTD2").Copy
ChDir "\\Socam-svr\AXESYT\r"
ActiveWorkbook.SaveAs Filename:="\\Socam-svr\AXESYT\r\LANCEMENT.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
A voir également:
- Mettre une cellule dans l'adresse d'une macro
- Créer une adresse hotmail - Guide
- Adresse mac - Guide
- Comment saisir une adresse url - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment créer une adresse gmail - Guide
10 réponses
Bonjour,
lignes à modifier :
MkDir ("\\Socam-svr\AXESYT\r") devient MkDir ("\\Socam-svr\AXESYT\" & r)
ActiveWorkbook.SaveAs Filename:="\\Socam-svr\AXESYT\r\LANCEMENT.xlsx" devient ActiveWorkbook.SaveAs Filename:="\\Socam-svr\AXESYT\" & r & "\LANCEMENT.xlsx"
lignes à modifier :
MkDir ("\\Socam-svr\AXESYT\r") devient MkDir ("\\Socam-svr\AXESYT\" & r)
ActiveWorkbook.SaveAs Filename:="\\Socam-svr\AXESYT\r\LANCEMENT.xlsx" devient ActiveWorkbook.SaveAs Filename:="\\Socam-svr\AXESYT\" & r & "\LANCEMENT.xlsx"
Re,
r = ActiveSheet.Range("M16").Value me semblait OK, ça ne fonctionne pas ? Ceci dit je mettrais plutot qqchose comme ça (indépendant de la feuille sur laquelle tu te trouves ):
r = Sheets(2).Range("M16").Value
r = ActiveSheet.Range("M16").Value me semblait OK, ça ne fonctionne pas ? Ceci dit je mettrais plutot qqchose comme ça (indépendant de la feuille sur laquelle tu te trouves ):
r = Sheets(2).Range("M16").Value
en fait il bloque sur MkDir ("\\Socam-svr\AXESYT\" & r)
erreur chemin/fichier
voila la macro :
Sub MACRO()
r = ActiveSheet.Range("M16").Value
MkDir ("\\Socam-svr\AXESYT\" & r)
Sheets("BASE DE DONNEE").Select
Range("C9").Select
Sheets("PIBTD2").Select
Sheets("PIBTD2").Copy
ChDir "\\Socam-svr\AXESYT\ESSAI"
ActiveWorkbook.SaveAs Filename:="\\Socam-svr\AXESYT\" & r & "\LANCEMENT.xlsx"
End Sub
ci besoin je peu faire passe le fichier
merci
erreur chemin/fichier
voila la macro :
Sub MACRO()
r = ActiveSheet.Range("M16").Value
MkDir ("\\Socam-svr\AXESYT\" & r)
Sheets("BASE DE DONNEE").Select
Range("C9").Select
Sheets("PIBTD2").Select
Sheets("PIBTD2").Copy
ChDir "\\Socam-svr\AXESYT\ESSAI"
ActiveWorkbook.SaveAs Filename:="\\Socam-svr\AXESYT\" & r & "\LANCEMENT.xlsx"
End Sub
ci besoin je peu faire passe le fichier
merci
en faite il bloque sur MkDir ("\\Socam-svr\AXESYT\" & r)
erreur chemin/fichier !
je vous redonne ma macro
Sub MACRO()
r = ActiveSheet.Range("M16").Value
MkDir ("\\Socam-svr\AXESYT\" & r)
Sheets("BASE DE DONNEE").Select
Range("C9").Select
Sheets("PIBTD2").Select
Sheets("PIBTD2").Copy
ChDir "\\Socam-svr\AXESYT\ESSAI"
ActiveWorkbook.SaveAs Filename:="\\Socam-svr\AXESYT\" & r & "\LANCEMENT.xlsx"
End Sub
ci besoin je peu faire passer le fichier
merci
erreur chemin/fichier !
je vous redonne ma macro
Sub MACRO()
r = ActiveSheet.Range("M16").Value
MkDir ("\\Socam-svr\AXESYT\" & r)
Sheets("BASE DE DONNEE").Select
Range("C9").Select
Sheets("PIBTD2").Select
Sheets("PIBTD2").Copy
ChDir "\\Socam-svr\AXESYT\ESSAI"
ActiveWorkbook.SaveAs Filename:="\\Socam-svr\AXESYT\" & r & "\LANCEMENT.xlsx"
End Sub
ci besoin je peu faire passer le fichier
merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
Essaie comme ceci (ajout d'une variable pour le chemin du rep)
Sub MACRO()
rep = "\\Socam-svr\AXESYT\" & ActiveSheet.Range("M16").Value
MkDir rep
Sheets("BASE DE DONNEE").Select
Range("C9").Select
Sheets("PIBTD2").Select
Sheets("PIBTD2").Copy
ActiveWorkbook.SaveAs Filename:= rep & "\LANCEMENT.xlsx"
End Sub
Essaie comme ceci (ajout d'une variable pour le chemin du rep)
Sub MACRO()
rep = "\\Socam-svr\AXESYT\" & ActiveSheet.Range("M16").Value
MkDir rep
Sheets("BASE DE DONNEE").Select
Range("C9").Select
Sheets("PIBTD2").Select
Sheets("PIBTD2").Copy
ActiveWorkbook.SaveAs Filename:= rep & "\LANCEMENT.xlsx"
End Sub
Re,
premiere chose : pas la peine de CRIER !
ensuite : le code que j'ai posté fait exactement ça (jviens de tester),la variable rep est initialisée avec le chemin et la valeur de ta cellule M16 : rep = "\\Socam-svr\AXESYT\" & ActiveSheet.Range("M16").Value
!?
premiere chose : pas la peine de CRIER !
ensuite : le code que j'ai posté fait exactement ça (jviens de tester),la variable rep est initialisée avec le chemin et la valeur de ta cellule M16 : rep = "\\Socam-svr\AXESYT\" & ActiveSheet.Range("M16").Value
!?
Re,
Non pas besoin de sélectionner la cellule, la variable est créée avec la valeur de la cellule M16 de la feuille active.
Peux-tu re-coller ton code, y' qqchose que je ne saisis pas (ça fonctionne bien chez moi) ?
Non pas besoin de sélectionner la cellule, la variable est créée avec la valeur de la cellule M16 de la feuille active.
Peux-tu re-coller ton code, y' qqchose que je ne saisis pas (ça fonctionne bien chez moi) ?
re
c'est bon ca marche mais il faut que je selectionner toute les cellule de la fenetre active en faite et la ca marche maintenant j'aimerai que ca me la selectionne tte seul cette feuille active mais oci je t'explique
Sub MACRO()
rep = "\\Socam-svr\AXESYT\" & ActiveSheet.Range("M16").Value
MkDir rep donc la ca me cree mon dossier de la cellule m16 super
Sheets("PIBTD2").Select la par contre j'aimerai que je selection la fenetre que je veut eregister ou par un autre moyen
Sheets("PIBTD2").Copy
ActiveWorkbook.SaveAs Filename:=rep & "\LANCEMENT.xlsx"
End Sub
c'est bon ca marche mais il faut que je selectionner toute les cellule de la fenetre active en faite et la ca marche maintenant j'aimerai que ca me la selectionne tte seul cette feuille active mais oci je t'explique
Sub MACRO()
rep = "\\Socam-svr\AXESYT\" & ActiveSheet.Range("M16").Value
MkDir rep donc la ca me cree mon dossier de la cellule m16 super
Sheets("PIBTD2").Select la par contre j'aimerai que je selection la fenetre que je veut eregister ou par un autre moyen
Sheets("PIBTD2").Copy
ActiveWorkbook.SaveAs Filename:=rep & "\LANCEMENT.xlsx"
End Sub
Re,
j'imagine que qd tu parles de fenetre c'est une feuille/onglet excel ?
Sheets("PIBTD2").Unprotect(motdepasse)
j'imagine que qd tu parles de fenetre c'est une feuille/onglet excel ?
Sheets("PIBTD2").Unprotect(motdepasse)
