ouverture classeur avec une macro

[a10]

Bonjour,


J'ai mon fichier qui se nomme:070214 que je veux sélectionner par une macro.

dans ma macro j'ai une ligne qui ouvre ce fichier:

Windows("070214.xlsm").Activate

Dans la cellule de mon fichier j'ai une formule qui me donne 070214

mais quand j'écris ce qui est en dessous:

Windows("" & Cells(1, 2) & ".xlsm").Activate

cela ne fonctionne pas.

pourquoi?

a+

 

[Staple1600]

Re : ouverture classeur avec une macro

Re

a10:
Aller dans VBE, puis appuyer sur F1 et chercher la rubrique d'aide consacrée à Application.Windows

Sinon pourquoi ne pas utiliser ce que je t'ai proposé et qui fonctionne ?
Voir ici
https://www.excel-downloads.com/threads/ouverture-classeur-avec-une-macro.216987/

 

[job75]

Re : ouverture classeur avec une macro

Bonjour a10, Jean-Marie, le forum,

On tourne en rond sur ce fil.

Deux choses peuvent empêcher l'activation du classeur :

1) la feuille active n'est pas la feuille "zz" de la cellule contenant le nom, il faut donc la préciser :

Sub copie1()
Dim fich$
fich = ThisWorkbook.Sheets("zz").Cells(1, 2) & ".xlsm"
Workbooks(fich).Activate
End Sub

2) le classeur n'est pas ouvert, donc il faut l'ouvrir :

Sub copie2()
Dim fich$, Wb As Workbook
fich = ThisWorkbook.Sheets("zz").Cells(1, 2) & ".xlsm"
On Error Resume Next
Set Wb = Workbooks(fich)
If Wb Is Nothing Then Workbooks.Open ThisWorkbook.Path & "\" & fich
Workbooks(fich).Activate
End Sub

en supposant que les fichiers sont tous dans le même répertoire.

Pour finir, la formule en B1 me fait mal au ventre, utiliser :

=TEXTE(C5;"00")&TEXTE(C4;"00")&C3

A+

 

[job75]

Re : ouverture classeur avec une macro

Re,

Encore une chose, il faut bien sûr la bonne extension, mais normalement on ne se trompe pas pour si peu.

Au besoin remplacer .xlsm par .xlsx ou .xls...

A+

 

[Staple1600]

Re : ouverture classeur avec une macro

Bonsoir job75 😉

On a proposé une syntaxe fonctionnelle de type: Workbooks(NOMCLASSEUR.ext).Activate
(et ce depuis le message #3)
mais a10 semble vouloir absolument utiliser Windows(NOMCLASSEUR.ext).Activate 😉

Peut-être finira-t-il par se rallier à nous 😉 ?

 

[job75]

Re : ouverture classeur avec une macro

Re,

Ce que a10 ne sait probablement pas c'est qu'un même fichier peut avoir plusieurs fenêtres :1 :2 :3 etc...

A+

 

[a10]

Re : ouverture classeur avec une macro

bonjour,

je suis parti sur l'explication de JOb75

Windows(Format(Cells(1, 2), "000000") & ".xlsm").Activate
mais impossible de le faire fonctionner ce code.

dans l'exemple staple 1600: le nom du fichier doit changer et je ne comprends pas comment il pourra changer.

a+

 

[job75]

Re : ouverture classeur avec une macro

Bonjour a10, le forum,

Faut nettoyer sérieusement vos lunettes et lire les posts qu'on vous envoie.

Si vous voulez n'en faire qu'à votre tête, ce n'est pas la peine de venir chercher des solutions sur le forum.

Vous perdez votre temps et nous aussi.

A+

 

[a10]

Re : ouverture classeur avec une macro

bonjour,

Windows(Format(Cells(1, 2), "000000") & ".xlsm").Activate
'ou
Workbooks(Cells(1, 2).Value & ".Xlsm").Activate

pour sélectionner mon classeur quel est l'écriture qu'il faut mettre?

a+

 

[Staple1600]

Re : ouverture classeur avec une macro

Bonjour à tous

a10
On t'a répondu, non ???
Mettre celle qui fonctionne !