Discussion :

[nunnu27]

Bonjour,

Je viens vers vous car je bloque sur un point précis.

En effet, dans mon programme j'utilise la fonction "Workbook_Open()" située dans "This workbook".

Code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Workbook_Open() 'permet le lancement de la procedure a l'ouverture du fichier
 
If Workbook.Name = "Controle_Preliminaire_Base.xlsm" Then
GoTo Ouverture_nouveau_fichier
Else: GoTo Ouverture_fichier_deja_existant
 
Ouverture_nouveau_fichier:
instruction1
instruction2
 
Ouverture_fichier_deja_existant:
instruction3

Comme vous l'avez surement deviné, j'ai un soucis a cette ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Workbook.Name = "Controle_Preliminaire_Base.xlsm" Then

Le but recherché est que lors de l'ouverture d'un fichier portant le nom "Controle_Preliminaire_Base.xlsm" alors je fais les instructions 1,2, et 3.
Sinon je ne fais que l'instruction 3.

Cependant, j'ai utilisé workbook.Name, filename et d'autres mais j'ai une erreur, ou bien lors de l'utilisation de Filename alors aucune des instructions n'est effectuées.

Ma question est donc la suivante:
Quel est la syntaxe afin de dire "fichier portant le nom:"" ".

Merci d'avance

Cordialement

[JeanSairien]

bonjour,

Essai avec ActiveWorkbook.name = "".

[fring]

La procédure événementielle "Workbook.Open" agit uniquement lorsqu'on ouvre le fichier contenant la procédure. Si tu veux ouvrir un fichier à l'aide d'une macro et exécuter une procédure selon le fichier ouvert il faut le faire via une macro dans un module et non via une macro événementielle.

Ci-dessous un exemple à placer dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
Dim Fichier As String, Tbl() As String
 
Fichier = Application.GetOpenFilename
Tbl = Split(Fichier, "\")
 
If Tbl(UBound(Tbl)) = "Controle_Preliminaire_Base.xlsm" Then
    Workbooks.Open Filename:=Fichier  '<-- pour ouvrir le fichier sélectionné
    'instruction
Else
    'instruction
End If
 
End Sub

Tu peux jeter un oeil dans l'aide VBA sur l'instruction "GetOpenFilename" pour y ajouter les paramètres adéquats

[nunnu27]

Bonsoir,

Merci de vos reponse et de votre aide.

Oui, en effet, je me suis posé la question sur le fait d'avoir ma procedure dans le "Workbook.Open" et si ça pouvait venir de là...

Je vais donc etudier les codes proposés (et les modifier le cas échéant).

Merci pour votre aide et vous tiens au courant de la suite des evenements.

Je ne ferme donc pas ce topic pour l'instant.

Bonne soirée a vous.

Amicalement

Manu

[nunnu27]

Bonjour,

Après tests, il s'avère que la ligne de code de Jeansairien intégrée dans mon "WorkbookOpen" fonctionne bien (donc merci Jeansairein .
Par conséquent, je vais rester sur celle-ci.

Fring: merci tout de même évidement pour tes conseilles je garde ton code pour mes prochaines procédures...

Je considère donc ce topic comme résolu.

Bonne fin de journée et bon courage a tous.

Cordialement

Manu