Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Utilisation .openfile

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

orphelion

XLDnaute Occasionnel
Bonjour a tous, bonjour le forum,

j'ai une macro qui me permet d'aller chercher mon fichier sur lequel je veux effectuer toutes une suite d'operation. pour cela j'utilise la commande .Findfile (erreur dans mon titre de discussion desole)
Je suis encore en phase de mise au point sur mes fichiers donc le nom du ficher que je vais cherche s'appelle "Historian Macro Template".
en allant toujours chercher ce fichier ma macro enchaine tres bien, mais j'aimerai que mes commande s'enchainent quelque soit le nom du fichier du moment qu'il a ete selectionner lors du lancement de la macro.


Code:
Sub Datacollection()
'Copy tab from ALS/Internal or Historian

'
Application.FindFile
'
     'CopyData Macro
'

'
    Windows("Historian Macro Template.xlsm").Activate 

    Range("A1:P1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("File template.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Windows("Historian Macro Template.xlsm").Close

est ce que vous pourriez m'indiquer le code pour faire cela?

merci d'avance!
 
Dernière édition:
Re : Utilisation .openfile

Bonjour,

essayer peut être comme ceci :
Code:
Dim wb As Workbook, f As String
f = Application.GetOpenFilename
If f = "" Then Exit Sub
Set wb = Workbooks.Open(f)
'ton code
wb.Close

bonne journée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
Réponses
1
Affichages
2 K
S
Réponses
4
Affichages
2 K
stage_ferrit
S
C
Réponses
8
Affichages
2 K
Genii
G
M
Réponses
0
Affichages
843
Marie123
M
M
  • Question Question
Réponses
0
Affichages
1 K
Mirguy23
M
C
  • Question Question
Réponses
2
Affichages
713
Cestmoi007
C
E
Réponses
0
Affichages
1 K
edelweiss95
E
B
Réponses
1
Affichages
1 K
E
Réponses
0
Affichages
1 K
eeyglunent
E
D
Réponses
8
Affichages
1 K
Dynomax
D
P
Réponses
2
Affichages
3 K
pauline6172
P
M
Réponses
0
Affichages
1 K
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…