Discussion :

[Grem974]

Bonjour,
je voudrais savoir s'il existait un moyen simple qui ne fasse pas trop changer mon code (parce que je m'y perd facilement) de remplacer :

Code :

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

Set Fichier = Workbooks.Open("E:\Planning-travail\Classeur3")

Par l'apparition d'une boîte dialogue qui permet de sélectionner le chemin qui mène au fichier dans lequel je veux écrire.

J'ai tenté

Code :

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

Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")

mais j'ai une erreur de type "objet requis"

Pourriez-vous me guider?

[kiki29]

Salut, regarde ici, et adapte à ton contexte, sinon il y a les FAQs/tutoriels et l'aide en ligne ainsi que la touche F1 et l'enregistreur de macros.

[Docmarti]

Bonjour

As-tu une erreur avec ceci?

Code :

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

1
2
3
4
5
6
7
Dim choix As Variant
 
choix = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
 
If Not choix = False Then
 Set fichier = Workbooks.Open(choix)
End If

[Grem974]

avec

Code :

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

1
2
3
4
5
6
7
Dim choix As Variant
 
choix = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
 
If Not choix = False Then
 Set fichier = Workbooks.Open(choix)
End If

j'ai une erreur du type "objet requis" à la ligne qui suit

Code :

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

Set Tablo = FichierTampon.Sheets(1).ListObjects("Tableau1")

avev Tablo dimensionné comme "Listobject" (c'est un tableau "préfabriqué" que je ne peux pas enlever)

[Grem974]

Re,

en fait si, Docmarti ta solutionmarche très très bien!

c'est moi qui ai mal réadapté...

Merci pour vos deux indications j'ai réussi :-)