utilisation de valeur

[redstoff]

bonjour

j'ai déjà fais

dim nom as string
nom = sheet( bla bla bla .value

Workbooks.Open Filename:="C:\Documents and Settings\novembre\" & nom & ".xls"

ceci depuis la valeur d'une case permet d'ouvrir le fichier voulu.
ca marche !!!!


maintenant un peu plus loin dans mon programme je voudrais faire un truc dans le genre

windows(nom).activate donc mettre en premier plan la fenetre qui c'est ouverte juste avant. Mais ça ne marche pas.

quelqu'un sait??

merci

 

[Pierrot93]

Re : utilisation de valeur

Bonjour,

dim nom as string
nom = sheet( bla bla bla .value

perso, je doute que ce code fonctionne en l'état....

bonne journée
@+

 

[redstoff]

Re : utilisation de valeur

ok je remarque correctement

Dim nom As String
nom = Sheets("acceuil").Range("F5").Value
Windows(nom).Activate

 

[Compte Supprimé 979]

Re : utilisation de valeur

Salut RedStoff
Mes amitiés Pierrot93 😉

Il suffit de définir une variable objet et faire appel à elle par la suite

Dim nom As String
Dim Wbk As Workbook
nom = Sheets("acceuil").Range("F5").Value
Workbooks.Open Filename:="C:\Documents and Settings\novembre\" & nom & ".xls"
Set Wbk = ActiveWorkbook
' bla bla ... bla bla ;):D
Wbk.Activate

A+

 

[Pierrot93]

Re : utilisation de valeur

Re, bonjour Bruno🙂

c'est fait alors je donne, un peu different,, mais même principe...

Dim wb As Workbook
Dim nom As String
nom = Sheets("acceuil").Range("F5").Value
Set wb = Workbooks.Open(Filename:="C:\Documents and Settings\novembre\" & nom & ".xls")
'ton code
wb.Activate

 

[redstoff]

Re : utilisation de valeur

ok merci pour les réponses cependant je vais apporter une petite précision la fenêtre lié avec la variable "nom" est déjà ouverte grâce à une autre macro

j'aurais une question

puis je déclarer la variable wbk sur l'autre macro et l'utiliser sur la nouvelle?
si oui comment faire?


merci

 

[Pierrot93]

Re : utilisation de valeur

Re,

peut être en déclarant ta variable comme "public"....

 

[redstoff]

Re : utilisation de valeur

merci pour vos réponse mais j'ai trouvé pour faire autrement
je garde vos réponse sous le coude au cas ou

bonne journée