Activer fichier Excel ouvert par macro
Bonsoir,
J ai une macro simple (enregistrée) de mise en forme de fichier Excel qui fonctionne bien, mais lorsque j insère en début de sub quelques lignes demandant à l utilisateur de chercher un fichier à ouvrir, le fichier s ouvre bien mais les instructions de mise en forme ne fonctionnent pas : pas de message d erreur, mais rien ne se passe non plus !
En fait je ne trouve pas la syntaxe pour activer le fichier qui vient de s ouvrir (il peut y avoir plusieurs fichiers Excel ouverts à ce moment-là ) et faire fonctionner le reste de la macro
Je vous joins le début de la macro :
Sub MacroGdLivAuxi()
'
' MacroGdLivAuxi Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+A
Dim Nom_Fichier As String
Dim Chemin As String
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls),*.xls")
MsgBox Nom_Fichier
Workbooks.Open Filename:=Nom_Fichier
'Chemin = Nom_Fichier.FullName
Sheets("Sheet1").Select
MsgBox Chemin
Workbooks(Chemin).Activate
Rows("1:3830").Select
Selection.RowHeight = 12
Columns("A:AR").Select
Range("A3").Activate
Selection.UnMerge
Columns("A:AU").Select
Quelqu un pourrait-il m aider ? J ai essayé beaucoup de choses mais je coince...
D avance grand merci !
Michael
Salut MichaelH,
comme ceci... ?
'
Dim tData
Dim Nom_Fichier As String
'
Nom_Fichier = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
tData = Split(Nom_Fichier, "\")
sWBk = tData(UBound(tData))
Workbooks.Open Filename:=Nom_Fichier
Workbooks(sWBk).Sheets(1).Rows("1:3830").RowHeight = 12
'
'Columns("A:AR").Select
'Range("A3").Activate
'Selection.UnMerge
'Columns("A:AU").Select
'Les lignes sous commentaires... tu veux mon avis? ... Jette!
A+
Bonsoir Curulis
Merci de ta réponse
J ai du mal à comprendre, lorsque je lance ta macro modifiée ça ne fait rien, mais quand je la lance en pas à pas détaillé ça fonctionne !!!
Tu y vois plus clair que moi ?
Bonsoir, Re Curulis !
En fait je ne trouve pas la syntaxe pour activer le fichier qui vient de s ouvrir
Non seulement vouloir activer et sélectionner, est à proscrire, et c'est méconnaître VBA que vouloir le faire, mais un classeur qu'on ouvre dans Excel devient automatiquement le classeur actif !
Là c'est en plus méconnaître Excel.
Bonsoir Curulis
Merci de ta réponse
J ai du mal à comprendre, lorsque je lance ta macro modifiée ça ne fait rien, mais quand je la lance en pas à pas détaillé ça fonctionne !!!
Tu y vois plus clair que moi ?
Je me permets de te joindre mon fichier (à ouvrir) , pourrais-tu le tester et voir si chez toi il fonctionne ? en direct ?
En mode F8 il fonctionne mais pas en direct (?)
Merci d avance
Michael
Bonjour Michael,
je te propose ces 2 fichiers :
ouvre le 1er fichier "GLGRPAUX avant modif.xls" ; tu peux voir que c'est bien le même que tu as transmis : aucun changement ; referme-le, puis ouvre le 2ème fichier "Exo MICHAELH.xls" ; comment ? c'est le même fichier aussi ? ah non, pas tout à fait : fais Ctrl Shift A ➯ fenêtre « Ouvrir » ; clic sur bouton Annuler (ou appui sur Echap) ➯ sortie de la fenêtre sans planter (oui, ce cas n'était pas prévu dans ton code initial, et j'ai préféré le rajouter) ; refais Ctrl Shift A ➯ fenêtre « Ouvrir » ; cette fois, choisis "GLGRPAUX avant modif" ; clique sur le bouton « Ouvrir » : ça a ouvert ton 2ème fichier (normal), et là, oh miracle ! ça a fait c'que tu voulais (et même plus) !
* lignes 1 à 3830 (sauf ligne 2) : hauteur 12 ; ligne 2 : hauteur 16
* contenu de la ligne 7 rendu visible (t'es un p'tit cachotier, hein ? mais j'l'ai vu !
* cellule A1 dé-fusionnée, puis effacée après avoir déplacé son contenu en B2
alors, ça te va ? sujet résolu ?
dhany
Bonjour Dhany,
C'est tout simplement génial !
Brillant !
Merci beaucoup
Michael
merci pour ton retour, j'suis ravi d'avoir pu t'aider !
dhany