Discussion :

[licpegpon]

Bonjour,

En début de procédure j'ai l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dossier_racine = InputBox("Select the folder where the database is located", "Data base folder", "P:\EXPORT")

Un peu plus bas dans la procédure j'ai l'instruction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
ChDir = Dossier_racine
 
ActiveWorkbook.SaveAs Filename:= _
Dossier_racine & "\" & "schema.xml_temporary.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

A l'exécution j'ai un erreur à la ligne ChDir ? D'autre part je souhaite que l'enregistrement écrase toute ancienne version. Est-ce la bonne syntaxe ?

PS : Dossier_racine a été déclaré comme String.

Merci pour vos suggestions.

Cdlt.
Jérôme

[Trystan441]

Bonjour,

Utilisation de ChDir sur l'aide Microsoft (accessible avec F1 dans l'éditeur VBA) :

Utilisation de ChDir

Bonne journée,

[Thautheme]

Bonjour le fil, bonjour le forum,

Je te conseille de toujours préciser le message d'erreur que tu obtiens si tu veux une aide plus rapide...

[licpegpon]

J'ai inséré "" --> toujours le même résultat....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ChDir = "Dossier_racine"

Pas sûr d'avoir compris l'aide.....

[licpegpon]

Message : erreur de compilation
argument non facultatif...

[Trystan441]

Dossier_racine est une variable donc pas de guillement sinon ça devient du texte "en dur"

Dans l'aide tu verras qu'il n'y a pas le sigle = après ChDir

[licpegpon]

Effectivement ....
Merci beaucoup.

Cdlt.
Jérôme

[Thautheme]

Bonjour le fil, bonjour le forum,

Pour éviter une éventuelle erreur de frappe, j'utiliserais plutôt un code de ce style (en suppriment la boîte d'entrée InputBox) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
Dim FD As FileDialog
Dim DR As String
 
Set FD = Application.FileDialog(msoFileDialogFolderPicker)
With FD
    .AllowMultiSelect = False
    .InitialFileName = "P:\EXPORT"
    .Show
    DR = FD.SelectedItems(1)
End With
ChDir DR
ActiveWorkbook.SaveAs Filename:=DR & "\" & "schema.xml_temporary.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

[patricktoulon]

Bonjour,

En début de procédure j'ai l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dossier_racine = InputBox("Select the folder where the database is located", "Data base folder", "P:\EXPORT")

Un peu plus bas dans la procédure j'ai l'instruction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
ChDir = Dossier_racine
 
ActiveWorkbook.SaveAs Filename:= _
Dossier_racine & "\" & "schema.xml_temporary.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

A l'exécution j'ai un erreur à la ligne ChDir ? D'autre part je souhaite que l'enregistrement écrase toute ancienne version. Est-ce la bonne syntaxe ?

PS : Dossier_racine a été déclaré comme String.

Merci pour vos suggestions.

Cdlt.
Jérôme

bonjour voila ce qui arrive quand on persiste a employer des object non appropriés tel qu'un inputbox dans ton cas alors que tu a des boites de dialogues prévu a cet effet
et il me semble te l'avoir déjà dit non!!???
et puis puisque tu tien a avoir un pseudo dialog( je parle de l'input ) pour récupérer et concaténer le chemin pour l'enregistrement
je te propose l'utilisation tardive du dialogue prévu a cet effet
en gros c'est bien le dialogue de "SaveAs" mais ca ne fait que récupérer le chemin de la même manière qu'avec getopenfilename
je sauve avec la chaine(chemin) obtenue avec "fname"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub enregistrer_sous()
    Dim fname As Variant
    fname = "F:\schema.xml_temporary.xlsx"    'P:\EXPORT\schema.xml_temporary.xlsx"
    fname = Application.GetSaveAsFilename(InitialFileName:=fname, filefilter:="excel Files (*.xlsx), *.xlsx", Title:="ENREGISTREMENT DU FICHIER")
    If fname = False Then Exit Sub
    'MsgBox fname
    Application.DisplayAlerts = False 'empêche le message si fichier existant donc écrasement du fichier
    ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

l'avantage c'est que tu peux te balader dans l'arborescence des dossier dans la boite de dialogue et faire ton choix avec un seul doigt sur la souris