Export des données vers un emplacement mobile

[OncleBarney]

Bonjour le forum,

Une fois de plus, je viens faire appel à vos lumières.

J'ai ce code dans this workbook:

Code: Tout sélectionner

Private Sub Workbook_Open()
'Copie le chemin du modèle pour diriger les enregistrements et les recherches d'anciennes réservations
Dim chemin As String
chemin = Workbooks(ActiveWorkbook.Name).Path
Application.Goto Reference:="CHEMIN"
ActiveCell.Value = chemin
Application.DisplayFullScreen = True
End Sub

Comme vous l'avez compris, il renseigne le chemin du fichier dans la cellule "CHEMIN" (Cellule AG22 de l'onglet BADO)

J'ai ensuite ce code pour l'enregistrement:

Code: Tout sélectionner

Private Sub CommandButton13_Click()
'Sauveguarde
If ActiveWorkbook.Name = "Géranium.xls" Then ActiveWorkbook.Save
If ActiveWorkbook.Name <> "Géranium.xls" Then
Sheets("BADO").Select
    Application.CutCopyMode = False
     Sheets("BADO").Copy
    'Enregistre le classeur dans le dossier spécifié et sous le nom Société
ChDir Sheets("BADO").Range("AG22")
    ActiveWorkbook.SaveAs Filename:=Sheets("BADO").Range("T2") , _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        ActiveWorkbook.Close
end if
End Sub

Il me permet d'exporter les donnés de l'onglet "BADO" vers un nouveau classeur, de l'enregistrer sous le nom contenu dans la cellules T2 et sous le chemin renseigné en AG22.

Mon problème c'est que le fichier se retrouve systématiquement enregistrer dans C:\documents ou lieu du chemin indiqué en AG22.

Peut-être ai-je fais une erreur de syntaxe.... Merci de m'éclairer,

Amicalement,

[Dan]

Bonjour,

Essaie ce code plutôt :

Code: Tout sélectionner

Private Sub CommandButton13_Click()
'Sauveguarde
Dim chemin As String
If ActiveWorkbook.Name = "Géranium.xls" Then ActiveWorkbook.Save
If ActiveWorkbook.Name <> "Géranium.xls" Then
Sheets("BADO").Copy
'Enregistre le classeur dans le dossier spécifié et sous le nom Société
chemin = ThisWorkbook.Sheets("BADO").Range("AG22")
With ActiveWorkbook
    .SaveAs Filename:=chemin & Sheets("BADO").Range("T2")
    .Close
End With
End If
End Sub

Vérifie bien que la cellule AG22 a bien le répertoire structuré comme ceci par exemple --> "C:\répertoire\"

Amicalement