Discussion :

[Marine1990]

Bonjour

j'aurai besoin d'un petit coup de pouce pour ma macro.

En fait, ma macro commence par l'ouverture d'une fenetre pour sélectionner un fichier à importer.

Ensuite, j'ai une formule qui s'applique à ce fichier.

Mon soucis c'est que le fichier à importer n'est jamais le même.

Donc pour l'instant j'ai fais mon premier test en dur, en mettant le nom exact de mon fichier à importer "Fichiers Import". Et ca marche.

Je voudrais rendre ce nom de fichier variable. Que ma macro s'adapte au nom du fichier.

Code :

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

1
2
3
4
5
6
7
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "C:\Dossier1\"
    .Show
    If .SelectedItems.Count > 0 Then Workbooks.Open (.SelectedItems(1))
End With
 
With ActiveWorkbook.Worksheets("Fichiers Import")

Est-ce possible ?

merci d'avance

[Uranne-jimmy]

Pour utiliser un nom de fichier variable il suffit d'enlever les guillemets non ?

Code :

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

With ActiveWorkbook.Worksheets(variable_fichier)

Et dans le cas ou tu ne veut pas mettre l'extension du fichier dans la variable

Code :

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

With ActiveWorkbook.Worksheets(variable_fichier & ".extension")

Me semble-t-il, du moins c'est comme ça que j'ai fais dans mon dernier programme ^^

[Marine1990]

Bonjour uranne-jimmy,

merci de ta réponse.

Mais j'ai un message d'erreur :

=>

Code :

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

With ActiveWorkbook.Worksheets(variable_fichier)

L'indice n'appartient pas à la sélection.
Erreur d'éxecution 9.

[patricktoulon]

Bonjour
C'est normal, ta variable à aucun moment n'est instruite.
Et puis entre les parenthèses, c'est le nom d'une feuille du classeur qui est attendu, pas celui du classeur.

Reformule ta question, on pourra peut être t'aider, car ton exemple ne correspond pas à ta demande

Au plaisir