A voir également:
- Ajouter chemin à macro enregistrement feuille classeur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Ajouter un compte gmail - Guide
- Ajouter un profil netflix payant - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
9 réponses
PHILOU10120
Messages postés
6368
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
22 avril 2024
796
12 mars 2019 à 17:36
12 mars 2019 à 17:36
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 ?
PHILOU10120
Messages postés
6368
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
22 avril 2024
796
13 mars 2019 à 09:45
13 mars 2019 à 09:45
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
PHILOU10120
Messages postés
6368
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
22 avril 2024
796
13 mars 2019 à 10:21
13 mars 2019 à 10:21
Vous avez bien mis votre disque à la place de F et votre dossier à la place de dossier, ect...
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
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 mars 2019 à 13:38
13 mars 2019 à 13:38
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
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 mars 2019 à 17:39
13 mars 2019 à 17:39
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
