Formule

[Gérard]

Bonjour,

Est-il possible de paramétrer une formule ?

Exemple :

J'ouvre le classeur : Classeur1.xls

A l'ouverture Classeur1.xls ouvre soit Classeur2.xls soit Classeur3.xls en fonction de l'utilisateur.

J'ai la formule suivante dans Classeur1.xls

=NBVAL('C:\Dossier\[Classeur2.xls]Feuil1'!$A:$A)

Je souhaite modifier automatiquement la formule de façon à avoir dans la même cellule en fonction de l'utilisateur soit :

=NBVAL('C:\Dossier\[Classeur2.xls]Feuil1'!$A:$A) - Pour l'utilisateur 1

soit :

=NBVAL('C:\Dossier\[Classeur3.xls]Feuil1'!$A:$A) - Pour l'utilisateur 2

Merci d'avance pour votre aide

 

[patrice]

Bonjour à tous,
Une solution est d'intégrer une macro dans le Classeur1.xls
Ex pour excel 97:

Private Sub Autpen()

Dim mylogin, Fichier, rep As String
rep = "c:\Temp\" ' a modifier
mylogin = Application.UserName
If mylogin = "BLABLA" Then
Fichier = rep & "Classeur2.xls"
Workbooks.Open FileName:=Fichier
Exit Sub
End If
If mylogin = "TOTO" Then
Fichier = rep & "Classeur3.xls"
Workbooks.Open FileName:=Fichier
Exit Sub
End If

MsgBox ("Pas de fichier ouvert !")

End Sub
A mofidier suivant les utilisateurs
A+

 

[Gérard]

Bonjour,

Ce que je souhaite c'est paramétrer la formule dans le classeur Classeur1.xls., ce n'est pas choisir le classeur en fonction de l'utilisateur (c'est déjà fait).

J'ai la formule suivante dans Classeur1.xls

=NBVAL('C:\Dossier\[Classeur2.xls]Feuil1'!$A:$A)

Je souhaite modifier automatiquement la formule de façon à avoir dans la même cellule en fonction de l'utilisateur soit :

=NBVAL('C:\Dossier\[Classeur2.xls]Feuil1'!$A:$A) - Pour l'utilisateur 1

soit :

=NBVAL('C:\Dossier\[Classeur3.xls]Feuil1'!$A:$A) - Pour l'utilisateur 2

Merci d'avance pour votre aide

 

[wally]

Bonjour Gérard et le forum,

Essaye qqch du genre :

Private Sub Workbook_Open()

Dim oRge As Range
Dim sUsr As String

Set oRge = ThisWorkbook.Worksheets("Feuil1").Range("A1")

sUsr = Application.UserName

Select Case sUsr
Case "Utilisateur 1"
oRge.Formula = "=COUNTA('C:\Dossier\[Classeur2.xls]Feuil1'!$A:$A)"
Case "Utilisateur 2"
oRge.Formula = "=COUNTA('C:\Dossier\[Classeur3.xls]Feuil1'!$A:$A)"
End Select

End Sub


Slts

wally