XL 2016 Ouverture d un fichier en fonction de la valeur d une cellule

[mathieu20]

Bonjour,

Je souhaiterais declancher l ouverture d un fichier se trouvant sur mon serveur en fonction de la valeur d une cellule

Exemple,

Ouvrir le fichier se trouvant sur W:\groupe de travail/clients.xlsx lorsque une des cellules en colonne J = "CLIENT"

Il se peux que je renseigne d un seul coup plusieurs cellules (J10 a J20) donc la demande d ouverture ne doit se faire q une seule fois

Est ce que vous avez une idée du code qu il me faudrait ?

Merci d avance

 

[cp4]

Bonjour,
Exemple cellule J2 de la feuille "Archive"

Workbooks.Open ("W:\groupe de travail\" & Sheets("archive").Range("J2") & ".xlsx")

 

[mathieu20]

Bonjour @cp4

Merci pour l exemple, Helas ca ne fonctionne pas

 

[mathieu20]

en fait ce qu il me manque c est la condition pour ouvrir ce fichier:

si une des cellules en colonne J = "CLIENT"

 

[cp4]

en fait ce qu il me manque c est la condition pour ouvrir ce fichier:

si une des cellules en colonne J = "CLIENT"

Edit ton code, on essaiera de t'aider 😉

 

[mathieu20]

@cp4

Voici la partie du code que je souhaite modifier

Set PlageenvoiFSC = Range("G3:G" & Derlig)


If Cells(Target.Row, Target.Column).Value = "" Then Exit Sub

'definir le mail pour envoi FSC

If Not Intersect(Target, PlageenvoiFSC) Is Nothing Then
DerligParam = Sheets("Param").Range("A" & Rows.Count).End(xlUp).Row
Var_A_qui = "hse@yahoo.com"
Var_Objet = Range("A" & Target.Row).Value & " Demande entrée FSC"
xMailBody = "Je viens de créer une / des reference(s) FSC en cellule(s) " & Target.Address & ". , j ai renseigné le fichier FSC.xlsx"
Workbooks.Open ("W:\groupe de travail\FSC.xlsx")
End If

Je voudrais que le mail ainsi que l ouverture du fichier se fasse uniquement si une cellules en colonne G est renseignée avec la valeure "FSC", pas pour les autres valeures

Pour le moment le mail et le fichier s ouvre a chaque fois que je modifie une valeure en G

Est ce que tu a une idée ?

 

[cp4]

sans fichier, résultat aléatoire....modifie cette ligne

If Not Intersect(Target, PlageenvoiFSC) Is Nothing Then

en

If Not Intersect(Target, PlageenvoiFSC) Is Nothing and target.text="FSC" Then

 

[mathieu20]

@cp4

merci beaucoup, ca marche parfaitement 👍