Activer Fichier Excel Ouvert Par Macro

Home » Activer Fichier Excel Vba » Activer Fichier Excel Ouvert Par Macro

Maybe your like

ForumsExcel - VBAActiver fichier Excel ouvert par macroActiver fichier Excel ouvert par macro Le 24/07/2018 à 21:38MMICHAELHMembre habituéMessages101Votes1Excel2007FRInscrit09/08/2012

TELECHARGEMENTS

Plus de 300 applications Excel sont disponibles gratuitement en téléchargement !

  • Budget, gestion de comptes
  • Gestion commerciale, personnel
  • Plannings, calendriers
  • Etc.
Voir les applications ...

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

Le 24/07/2018 à 22:07 CurulisPassionné d'ExcelMessages5'830Votes887Excel2024 FRInscrit04/01/2016EmploiRetraité... enfin!LieuBergilers (B)

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+

Á défaut d'un fichier réaliste illustrant votre demande de façon pertinente, ayez la bonté de nous procurer une boule de cristal !Curulis Quest et VBA, même délice : la foire aux neurones !Le 24/07/2018 à 22:34MMICHAELHMembre habituéMessages101Votes1Excel2007FRInscrit09/08/2012

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 ?

Le 24/07/2018 à 22:36MMFerrandFanatique d'ExcelMessages17'170Votes1'467Excel2010 FRInscrit20/07/2015LieuRéunion

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.

Le 24/07/2018 à 23:17MMICHAELHMembre habituéMessages101Votes1Excel2007FRInscrit09/08/2012
MICHAELH a écrit :

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

9glgrpaux-avant-modif.zip (17.75 Ko) Le 25/07/2018 à 03:58dhanyPassionné d'ExcelMessages6'872Votes928Excel2007 FRInscrit03/10/2017

Bonjour Michael,

je te propose ces 2 fichiers :

24glgrpaux-avant-modif.zip (17.71 Ko) 49exo-michaelh.zip (22.19 Ko)

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) ! en effet :

* 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

Le 25/07/2018 à 09:46MMICHAELHMembre habituéMessages101Votes1Excel2007FRInscrit09/08/2012

Bonjour Dhany,

C'est tout simplement génial !

Brillant !

Merci beaucoup

Michael

Le 25/07/2018 à 09:49dhanyPassionné d'ExcelMessages6'872Votes928Excel2007 FRInscrit03/10/2017

ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

  • Navigation sans publicités
  • Option "No Tracking"
  • Option "Mode Incognito"
  • Option "Dark Mode"
Plus d'informations ...

merci pour ton retour, j'suis ravi d'avoir pu t'aider !

dhany

Rechercher des sujets similaires à "activer fichier ouvert macro"ForumsExcel - VBAActiver fichier Excel ouvert par macro

Tag » Activer Fichier Excel Vba