Enregistrement fichier

Bonjour,

J'ai écrit une macro effectuant les actions suivantes :

• l'utilisateur choisit un fichier
• ouverture fichier 1
• création nouveau fichier 2
• nommer fichier 2 selon case C1 du fichier 1
• enregistrer ce fichier 2 dans un dossier se situant a une adresse différente.

Le seul problème que je rencontre c'est que nous travaillons sur une dropbox. Donc l'adresse de mon fichier 1 varie selon les utilisateurs. Ça, a la limite c'est pas grave car je sais récupérer l'adresse.

Mais dans cette dropbox, il y a un dossier "A" dans lequel je veux que tous mes fichiers 2 s'enregistrent.

Voici mon code

Sub GetImportFileName()

    Dim Finfo As String
    Dim FilterIndex As Integer
    Dim Title As String
    Dim FileName As Variant
    Dim a As String
    Dim b As String

'   Set up list or file filters
    Finfo = "Comma Separated Files (*.csv),*.csv,"

'   Display *.* by default
    FilterIndex = 1

'   Set the dialog box caption
    Title = "Select a File to Open"

'   Get the filename
    FileName = Application.GetOpenFilename(Finfo, FilterIndex, Title)

'   Handle return info from dialog box
    If FileName = False Then
        MsgBox "No file was selected"
    Else
        Workbooks.Open FileName
        a = FileName
        b = Range("C1").Value
        Workbooks.Add
        ActiveWorkbook.SaveAs FileName:=b & ".xls"
        MsgBox "Fichier 1 : " & a & " , Fichier 2 : " & b
'       Create a new file

    End If

End Sub

Actuellement mes fichiers 2 s'enregistrent a la même adresse que les fichiers 1.

Quelqu'un a-t-il déjà eu ce problème avec Dropbox ?

Merci pour votre aide

Tuline

ActiveWorkbook.SaveAs FileName:=b & ".xls"

peut etre quelquechose comme ca

ActiveWorkbook.SaveAs FileName:="c:\users\" & b & ".xls"

Non ça ne fonctionne pas.

En fait le début de l'adresse est la même théoriquement, sauf le dernier dossier qui a un nom différent.

Il me faudrait donc un moyen de récupérer l'adresse de l'utilisateur sauf les 9 derniers caractères pour les changer