Pb avec ChDir

Bonjour,

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

Code:

---

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:

---

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,

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

Utilisation de ChDir

Bonne journée,

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...

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

Code:

---

ChDir = "Dossier_racine"

---

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

Message : erreur de compilation
argument non facultatif...

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 ;)

Effectivement ....:oops::oops:
Merci beaucoup.

Cdlt.
Jérôme

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:

---

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

---

Citation:

---

Envoyé par licpegpon

Bonjour,

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

Code:

---

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:

---

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:

---

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