Bonjour à tous et bravo pour ce forum très riche qui me permet de progresser en vba.
Je suis débutant donc ma question est peut être très simple!
Je travaille sur une macro qui me permet d'extraire des fichiers .imr.
J'ai quasiment terminé mais il me reste une petite coquille que je vous explique.
Une des étapes est de sauvegarder dans un nouveau fichier excel le fruit de l'extraction via la macro.
J'arrive à enregistrer le fichier comme je le souhaite mais pas à l'endroit où je le souhaite.
Dans mon programme, je fais créer le répertoire par l'utilisateur via une saisie sous msgbox. Le dossier se crée bien pas de problème.
Quand je souhaite enregistrer le fichier excel dans ce nouveau répertoire, je bloque. En fait , le problème ets que je ne connais pas le chemin allant au nouveau répertoire puisqu'il vient d'etre créé.
En terme de code j'ai cela
et pour la sauvegarde du fichier (c'est là qu'ol me manque un truc je pense)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 ' Création ou non du répertoire ' a est le nom donné par l'utilisateur Dim fs1 As Scripting.FileSystemObject Set fs1 = New Scripting.FileSystemObject ' teste si le repertoire existe If Not fs1.FolderExists("M:\Production Laminoirs\ati planning\SRP\" & a) Then ' création du repertoire si besoin fs1.CreateFolder ("M:\Production Laminoirs\ati planning\SRP\" & a) 'tentative de récupération du chemin Dim repertoire_courant As String repertoire_courant = ("M:\Production Laminoirs\ati planning\SRP\" & a) End If Set fs1 = Nothing Dim date_sauv As String
ou dois je préciser le chemin, tout en sachant que c'est plus ou moins une variable?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Dim date_sauv As String date_sauv = InputBox("veuillez indiquer la date de sauvegarde: " & vbCrLf & "exemple: (AAAA-MM-JJ)") ActiveWorkbook.SaveAs ("Carnet " & date_sauv & ".xls"), FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False
j'espère être assez clair
merci à vous
j'ai oublié de préciser
j'ai lu les sujets sur les boites de dialogue pour sélectionner le répertoire, mais cette solution ne me convient pas (si je peux me permettre d'être exigeant )
Partager