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+

 

[job75]

Re : ouverture classeur avec une macro

Bonjour a10,

Ma boule de cristal me dit qu'il faut peut-être écrire :

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

A+

 

[a10]

Re : ouverture classeur avec une macro

bonjour

pourquoi mettre 00000,

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

a+

 

[job75]

Re : ouverture classeur avec une macro

Re,

Pas 5 mais 6 zéros pour avoir un zéro devant le nombre si la cellule (nombre) contient 70214.

A+

 

[a10]

Re : ouverture classeur avec une macro

bonjour,

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

j'ai essayé ce code avec 6 zéro.

mais elle ne marche pas.

Je continue ma recherche.

a+

 

[Pierrot93]

Re : ouverture classeur avec une macro

Bonjour à tous,

A voir quel est le classeur et ou la feuille active et où est positionné ton code.... sans doute lieu de préciser les différents objets au niveau du "cells"... sans plus de détail difficile d'en dire plus...

bonne journée
@+

 

[Staple1600]

Re : ouverture classeur avec une macro

Bonjour à tous

a10

Je continue ma recherche.

Stop!
Avant d'entreprendre les recherches, prépares-nous un fichier exemple pendant qu'on finit notre café.
Après on devrait y voir plus clair, on pourra même annuler les recherches et déclarer à la presse:
"le fichier joint porté disparu a été retrouvé sain et sauf , tout propre sur lui et anonymisé."

Dernière minute: on ne sait pas encore s'il a pu croiser le chemin d'un compresseur ou s'il reviendra ici en *.xlsx ou *.xlsm.

 

[a10]

Re : ouverture classeur avec une macro

bonjour,

Le fichier B doit sélectionner le fichier 130214


a+

 

[a10]

Re : ouverture classeur avec une macro

bonjour

avec cette macro cela ne marche pas:

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

a+

 

[Staple1600]

Re : ouverture classeur avec une macro

Bonsoir à tous

a10

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

Deux classeurs ouverts dans la même instance Excel
(l'un se nomme 070214.xlsm, dans l'autre, la macro ci-dessous et en A1 de la feuille 1 la valeur 70214)
Test OK sur mon PC

Sub a()
Dim NomWkB$
NomWkB = Format(ThisWorkbook.Sheets(1).Range("A1").Text, "000000")
Workbooks(NomWkB & ".xlsm").Activate
End Sub

PS: a10
Ma syntaxe (pour ce qui concerne l'Activate) est très proche de celle soumise par Jean-Marcel dès 16h55 le 15/02/2014...🙄 (Auras-tu zappé sa réponse, par hasard ?)

 

[a10]

Re : ouverture classeur avec une macro

bonsoir

je ne comprends pas bien ta macro

mais pourquoi cette ecrture ne fonctione pas:

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

a+

 

[Staple1600]

Re : ouverture classeur avec une macro

Re

a10
Qu'est-ce que tu ne comprends pas?

Sinon si tu veux aboslument passer par Windows, inspires toi de ceci par exemple.

Sub testW()
Dim i
For i = 1 To Application.Windows.Count
Select Case Windows(i).Parent.Name
Case Is = "070214.xlsm"
Windows(i).Activate
End Select
Next i
End Sub

 

[a10]

Re : ouverture classeur avec une macro

bonsoir

je suis parti sur l'explication de JOb75

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

a+

 

[Staple1600]

Re : ouverture classeur avec une macro

Re

a10
Sauf erreur de ma part, c'est un numéro d'index qu'attends Application.Windows

Tu as été voir ce qu'en dit l'aide VBA dans Excel ?

 

[a10]

Re : ouverture classeur avec une macro

bonsoir

je ne vois pas ce que cela veut dire:

c'est un numéro d'index qu'attends Application.Windows

a+