Nom de classeur variable
tc vba
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
tc vba -
tc vba -
Bonjour,
Je suis en stage dans une entreprise et doit créer un programme pour récupérer des informations.
J'ai créé un nouveau classeur qui recevra les données du classeur source, à l'aide d'un bouton j'arrive à récupérer les informations, jusque là tout va bien.
Mon problème est que le classeur source n'est pas toujours le même. J'ai donc créer un bouton pour ouvrir le classeur que je désignerai comme source. Mon problème est le suivant comment définir ce classeur?
Voici ma macro, j'aimerai changer la première ligne pour que le nom du fichier soit celui du classeur que j'ai précedemment ouvert.
Sub Macro1()
'
' Macro1 Macro
'
'
Windows("essai macro.xlsm").Activate
Range("I6").Select
Selection.Copy
Windows("recuperation donnée.xlsm").Activate
Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Merci d'avance
Je suis en stage dans une entreprise et doit créer un programme pour récupérer des informations.
J'ai créé un nouveau classeur qui recevra les données du classeur source, à l'aide d'un bouton j'arrive à récupérer les informations, jusque là tout va bien.
Mon problème est que le classeur source n'est pas toujours le même. J'ai donc créer un bouton pour ouvrir le classeur que je désignerai comme source. Mon problème est le suivant comment définir ce classeur?
Voici ma macro, j'aimerai changer la première ligne pour que le nom du fichier soit celui du classeur que j'ai précedemment ouvert.
Sub Macro1()
'
' Macro1 Macro
'
'
Windows("essai macro.xlsm").Activate
Range("I6").Select
Selection.Copy
Windows("recuperation donnée.xlsm").Activate
Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Merci d'avance
A voir également:
- Nom de classeur variable
- Nom de l'adresse ✓ - Forum Loisirs / Divertissements
- Nom sonnerie iphone - Forum iPhone
- &Quot;Nom de l'adresse" lors d'une inscription sur une site - Forum Consommation & Internet
- Que faut il écrire dans le champ obligatoire : Adresse (suite)*? ✓ - Forum Réseaux sociaux
- Impossible de créer le fichier de travail. vérifiez la variable d'environnement temp ✓ - Forum Word
1 réponse
Bonjour,
Voilà une fonction qui retourne le chemin et le nom du fichier sélectionné :
Voilà comment l'utiliser :
Bon courage
;0)
Voilà une fonction qui retourne le chemin et le nom du fichier sélectionné :
'// Ouverture du browser Windows
'// La fonction retourne le chemin d'accès du fichier sélectionné
'//
Public Function Utilisation_FileDialog_SelectionFichier(ByVal titre As String) As Variant
Dim x As Long
With Application.FileDialog(msoFileDialogFilePicker)
'Définit un titre pour la boîte de dialogue
.Title = titre
'Interdit la multi-sélection
.AllowMultiSelect = False
'Efface les filtres existants.
.Filters.Clear
'Définit une liste de filtres pour le champ "Type de fichiers".
.Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"
'La valeur 1 permet de spécifier que ce filtre est positionner en premier dans la liste de choix.
.Filters.Add "Documents Excel", "*.xls; *.xlsx", 1
'Définit le filtre qui s'affiche par défaut dans le champ "Type de fichiers".
.FilterIndex = 2
'Indique le type d'affichage dans la boîte de dialogue (exemple visualisation des propriétés)
.InitialView = msoFileDialogViewProperties
'Affiche la boîte de dialogue
.Show
'Boucle sur les fichiers sélectionnés
For x = 1 To .SelectedItems.Count
Utilisation_FileDialog_SelectionFichier = .SelectedItems(x)
Next x
End With
End Function
Voilà comment l'utiliser :
Dim nomFichier As String
nomFichier = Utilisation_FileDialog_SelectionFichier("Sélectionner un fichier")
Bon courage
;0)
tc vba
Merci pour votre réponse rapide. Je sui sen train d'essayer de faire fonctionner cette fonction dans mon programme