Bonjour,
A l'ouverture de mon classeur,je crée dans le "C" un dossier dont le nom varie en fonction de la valeur d'une cellule précise par la
macro "CreRépertoire".
Grace à une autre macro(Export1) je veux exporter les données dans le dossier ainsi créé(notons que pour chaque classeur le dossier créé est ainsi unique).
Mon probleme se trouve à ce niveau :
Avec cette synthaxe je suis obligé d'écrire en dur dans le code le nom du dossier,or c'est exactement ce que je veux éviter.
comment creer le chemin directement par la macro et trouver le dossier en question.
Merci de m'aidez s'il vous plait.
A l'ouverture de mon classeur,je crée dans le "C" un dossier dont le nom varie en fonction de la valeur d'une cellule précise par la
macro "CreRépertoire".
Code:
Sub CreRépertoire()
If Sheets("Admin").[A1] = "" Then
Sheets("Admin").Unprotect "MDP"
On Error Resume Next
MkDir "C:\Export_" & Sheets("FIRD").[W18].Value
Sheets("Admin").[A1] = 1
Sheets("Admin").Protect "MDP"
End If
End Sub
Code:
Sub Export1()
If ActiveSheet.Name = "Fichier_Mission" Then
TxtPlage "C:\Export_PCE\Export " & ActiveSheet.Name & ".txt", [A9:G1010]
End If
End Sub
Code:
Sub TxtPlage(ByVal RéfFic As String, ByVal Plg As Range)
Dim Te(), Ts() As String, L&, C&
Te = Plg.Value: ReDim Ts(1 To UBound(Te, 2))
Open RéfFic For Output Access Write As #1
For L = 1 To UBound(Te, 1)
For C = 1 To UBound(Te, 2): Ts(C) = Te(L, C): Next C
Print #1, Join(Ts, vbTab): Next L
Close #1
End Sub
TxtPlage "C:\Export_PCE\Export " & ActiveSheet.Name & ".txt", [A9:G1010] 'Ici Sheets("FIRD").[W18].Value = PCE
Avec cette synthaxe je suis obligé d'écrire en dur dans le code le nom du dossier,or c'est exactement ce que je veux éviter.
comment creer le chemin directement par la macro et trouver le dossier en question.
Merci de m'aidez s'il vous plait.