Mémoriser un chemin pour sauvegarder des fichiers en VBA
Résolu
mijean94
Messages postés
417
Statut
Membre
-
mijean94 Messages postés 417 Statut Membre -
mijean94 Messages postés 417 Statut Membre -
Bonjour,
Je cherche comment mémoriser le chemin d’un répertoire pour le stoker dans une cellule et ainsi pouvoir l’utiliser pour sauvegarder mes fichiers.
Par exemple avec un boite de dialogue « recherche du répertoire de sauvegarde » puis lorsqu’il est trouvé « valider »
Après validation, le chemin se retrouve dans une cellule de la feuille (x)
ex : C:\users\jean mi
Pour la suite, lorsque je demande la sauvegarde de mes fichiers mon code serait :
chemin = la cellule qui va bien (a mettre le bon code)
et :
merci pour votre aide
cordialement
Je cherche comment mémoriser le chemin d’un répertoire pour le stoker dans une cellule et ainsi pouvoir l’utiliser pour sauvegarder mes fichiers.
Par exemple avec un boite de dialogue « recherche du répertoire de sauvegarde » puis lorsqu’il est trouvé « valider »
Après validation, le chemin se retrouve dans une cellule de la feuille (x)
ex : C:\users\jean mi
Pour la suite, lorsque je demande la sauvegarde de mes fichiers mon code serait :
nom = InputBox("Entrer le nombre du fichier")
chemin = la cellule qui va bien (a mettre le bon code)
et :
nom_xls = (chemin & nom & ".xls")
ActiveWorkbook.ActiveSheet.SaveAs Filename:=nom_xls
merci pour votre aide
cordialement
A voir également:
- Vba choisir chemin enregistrement
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- Telecharger studio d'enregistrement rap - Télécharger - Édition & Montage
- Enregistrement - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Comment couper un enregistrement audio - Guide
1 réponse
Bonjour
pour choisir un dossier de sauvegarde
</code>
Michel
pour choisir un dossier de sauvegarde
Sub Choisir_dossier()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String, Nom as string
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un dossier de sauvegarde", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path
If Chemin = "" Then Exit Sub
nom = InputBox("Entrer le nombre du fichier")
nom_xls = (chemin & nom & ".xls")
End Sub
</code>
Michel
merci pour cette réponse rapide.
ça marche nickel.
Cordialement