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

cp4

XLDnaute Barbatruc

• 6 Mai 2023

• #2

Bonjour,
Exemple cellule J2 de la feuille "Archive"

VB:

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

 

Vote positif 0 Vote négatif

M

mathieu20

XLDnaute Nouveau

• 9 Mai 2023

• #3

Bonjour @cp4

Merci pour l exemple, Helas ca ne fonctionne pas

 

Vote positif 0 Vote négatif

M

mathieu20

XLDnaute Nouveau

• 9 Mai 2023

• #4

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

si une des cellules en colonne J = "CLIENT"

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 9 Mai 2023

• #5

mathieu20 à dit:

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

si une des cellules en colonne J = "CLIENT"

Cliquez pour agrandir...

Edit ton code, on essaiera de t'aider

 

Vote positif 0 Vote négatif

M

mathieu20

XLDnaute Nouveau

• 9 Mai 2023

• #6

@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 ?

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 9 Mai 2023

• #7

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

VB:

If Not Intersect(Target, PlageenvoiFSC) Is Nothing Then

en

Code:

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

 

Vote positif 0 Vote négatif

Solution

M

mathieu20

XLDnaute Nouveau

• 10 Mai 2023

• #8

@cp4

merci beaucoup, ca marche parfaitement

 

Vote positif 0 Vote négatif