[XL-2007] problème sur le chemin du fichier d'exportation

[Maxim0]

Bonjour,

Je travaille actuellement sur l'exportation des données vers un classeur excel. Je utilise les ligne du code suivantes pour exporter les données:

Code :

1
2
3
4
5
6
7
 
Sub export()
Workbooks.Open Filename:= _
"c:\document\desktop\Dossier1\Fichier1.xlsm" 
Workbooks("Fichier1.xlsm").Worksheets("Données1").Range("L83:W83") = ThisWorkbook.Sheets("Feuil1").Range("B22:M22").Valeur
 
End sub

Si l'emplacement du fichier d'exportation change, j'aurai un probelme et je serai obligé de changer le chemin à chaque fois que ceci arrive.

serait il possible d'ajouter sur mon code un bouton qui affiche une fenêtre, pour laquelle j'ecris le chemin du fichier d'exportation.

Merci d'avance pour vos réponses
Cordialement,

[kiki29]

Salut, [F1] sur GetOpenFilename

[bbil]

Voir :
Comment choisir un fichier sur le PC et récupérer son nom (utilisation de GetOpenFilename) ?

Dans un tel cas une solution peu-être de "sauver" le nom+Chemin de ton fichier dans une cellule de ton fichier excel .. et de rajouter un bouton permettant la mise à jour de ta cellule ..;

au démarrage tu peu tester l’existence de ton fichier avec un Dir...