Ajouter chemin à macro enregistrement feuille classeur
Guillotix
-
Guillotix -
Guillotix -
Bonjour,
J'ai créé la macro suivante mais maintenant je souhaiterais y ajouter un chemin pour l'enregistrement
Seulement je n'y parviens pas. Pouvez-vous m'aider svp ?
Sub copier_feuille_recap ()
Dim feuille, nom, Export
Set feuille = ActiveWorkbook.Sheets("RECAP")
nom = feuille.Range("D1") & ".xlsx"
Application.Workbooks.Add
Export = ActiveWorkbook.Name
feuille.Cells.Copy
With Workbooks(Export).Sheets(1).Cells
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValues
End With
Workbooks(Export).SaveAs nom
Application.CutCopyMode = False
End Sub
J'ai créé la macro suivante mais maintenant je souhaiterais y ajouter un chemin pour l'enregistrement
Seulement je n'y parviens pas. Pouvez-vous m'aider svp ?
Sub copier_feuille_recap ()
Dim feuille, nom, Export
Set feuille = ActiveWorkbook.Sheets("RECAP")
nom = feuille.Range("D1") & ".xlsx"
Application.Workbooks.Add
Export = ActiveWorkbook.Name
feuille.Cells.Copy
With Workbooks(Export).Sheets(1).Cells
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValues
End With
Workbooks(Export).SaveAs nom
Application.CutCopyMode = False
End Sub
A voir également:
- Ajouter chemin à macro enregistrement feuille classeur
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Ajouter à l'écran d'accueil iphone - Guide
- Erreur lors de l'enregistrement du contact - Forum Xiaomi
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Feuille de pointage excel - Télécharger - Tableur
9 réponses
Bonjour
Copie du chemin réalisé avec l'enregistreur de macro
Regarder si cela vous convient
ChDir "lettre du disque F:\dossier\sous_dossier\sous_sous_dossier"
ActiveWorkbook.SaveAs Filename:= _
" F:\dossier\sous_dossier\sous_sous_dossier\nom_du_fichier.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Copie du chemin réalisé avec l'enregistreur de macro
Regarder si cela vous convient
ChDir "lettre du disque F:\dossier\sous_dossier\sous_sous_dossier"
ActiveWorkbook.SaveAs Filename:= _
" F:\dossier\sous_dossier\sous_sous_dossier\nom_du_fichier.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Bonjour PHILOU10120
Merci pour cette réponse rapide
En fait je souhaiterais garder ma macro actuelle en y spécifiant juste le chemin. Seulement je ne sais où le placer, j'ai systématiquement des erreurs
Serait-il possible de réécrire ma macro en y ajoutant le chemin à l'endroit adéquat ?
Merci pour cette réponse rapide
En fait je souhaiterais garder ma macro actuelle en y spécifiant juste le chemin. Seulement je ne sais où le placer, j'ai systématiquement des erreurs
Serait-il possible de réécrire ma macro en y ajoutant le chemin à l'endroit adéquat ?
Bonjour
Essayer ceci
Sub copier_feuille_recap()
Dim feuille, nom, Export
Set feuille = ActiveWorkbook.Sheets("RECAP")
nom = feuille.Range("D1") & ".xlsx"
Application.Workbooks.Add
Export = ActiveWorkbook.Name
feuille.Cells.Copy
With Workbooks(Export).Sheets(1).Cells
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValues
End With
ChDir "F:\dossier\sous_dossier"
Workbooks(Export).SaveAs nom
Application.CutCopyMode = False
End Sub
Essayer ceci
Sub copier_feuille_recap()
Dim feuille, nom, Export
Set feuille = ActiveWorkbook.Sheets("RECAP")
nom = feuille.Range("D1") & ".xlsx"
Application.Workbooks.Add
Export = ActiveWorkbook.Name
feuille.Cells.Copy
With Workbooks(Export).Sheets(1).Cells
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValues
End With
ChDir "F:\dossier\sous_dossier"
Workbooks(Export).SaveAs nom
Application.CutCopyMode = False
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Non, j'ai modifié le chemin, je cherche à enregistrer sur un réseau d'entreprise
Je vais appeler l'IT, il me semble que dans certains cas l'adresse réseau n'est pas complète
Je vais appeler l'IT, il me semble que dans certains cas l'adresse réseau n'est pas complète
Bonjour,
en se servant d'une boite de dialogue enregistrement, comme ceci:
en se servant d'une boite de dialogue enregistrement, comme ceci:
Dim feuille, nom, Export, fileSaveName
'mettre le début du code
fileSaveName = Application.GetSaveAsFilename("chemin du repertoire\" & nom, "ExcelFiles (*.xlsx), *.xlsx") 'boite dialogue enregistrement
Workbooks(Export).SaveAs fileSaveName
Re,
Pardon mais je me rends compte à l'utilisation de 2 petites choses que je souhaiterais améliorer :
1. Lorsque j'annule l'enregistrement le fichier s'enregistre quand-même avec le nom FALSE
2. S'il était possible que le tableau nouvellement créé se ferme automatiquement après l'enregistrement
Sinon pour le reste c'est nickel
Pardon mais je me rends compte à l'utilisation de 2 petites choses que je souhaiterais améliorer :
1. Lorsque j'annule l'enregistrement le fichier s'enregistre quand-même avec le nom FALSE
2. S'il était possible que le tableau nouvellement créé se ferme automatiquement après l'enregistrement
Sinon pour le reste c'est nickel
C'est un peu plus compliqué il faudra adapter le chemin du répertoire partout
Voilà
@+ Le Pivert
Sub copier_feuille_recap()
Dim feuille, nom, Export, fileSaveName
Set feuille = ActiveWorkbook.Sheets("RECAP")
nom = feuille.Range("D1") & ".xlsx"
Application.Workbooks.Add
Export = ActiveWorkbook.Name
feuille.Cells.Copy
With Workbooks(Export).Sheets(1).Cells
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValues
End With
fileSaveName = Application.GetSaveAsFilename("chemin repertoire\" & nom, "ExcelFiles (*.xlsx), *.xlsx") 'boite dialogue enregistrement
Workbooks(Export).SaveAs fileSaveName
Application.CutCopyMode = False
TesteSiFichierExiste 'si fichier existe on supprime
Application.Quit 'fermeture Excel
End Sub
Sub TesteSiFichierExiste()
'par Excel-Malin.com ( https://excel-malin.com )
Dim MonFichier As String
MonFichier = "chemin repertoire\" & "FALSE.xlsx"
If FichierExiste(MonFichier) = True Then
Workbooks("FALSE").Close 'ferme
Kill ("chemin repertoire\" & "FALSE.xlsx") 'supprime
Else
' MsgBox "Le fichier n'existe pas..."
End If
End Sub
Public Function FichierExiste(MonFichier As String)
'par Excel-Malin.com ( https://excel-malin.com )
If Len(Dir(MonFichier)) > 0 Then
FichierExiste = True
Else
FichierExiste = False
End If
End Function
Voilà
@+ Le Pivert
