Forums XLPages

Tous les messages (dimdime)

Re: Problème dans ma formule...
#1
dimdime
Débutant XLPages

Inscription: 27/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 04-05-2012 14h56
merci de votre aide à tous
Hors Ligne
 Rapport   Haut 

Re: Problème dans ma formule...
#2
dimdime
Débutant XLPages

Inscription: 27/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 01-05-2012 21h23
je sais pas si c'est cela car il faut qu'en cliquant sur le liens en E4 un fichier PDF s'ouvre ...
Hors Ligne
 Rapport   Haut 

Re: Modifier un Code VBA
#3
dimdime
Débutant XLPages

Inscription: 27/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 01-05-2012 19h00
merci pour votre aide :)
Hors Ligne
 Rapport   Haut 

Re: Problème dans ma formule...
#4
dimdime
Débutant XLPages

Inscription: 27/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 01-05-2012 18h55
oui c'est tout  fait cela :)
Hors Ligne
 Rapport   Haut 

Re: Problème dans ma formule...
#5
dimdime
Débutant XLPages

Inscription: 27/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 30-04-2012 21h51
excusez pour toute à l'heure,

Voici mon fichier, en effet dans ma formule je dois rajouter une nouvelle condition SI pour quand je clique sur un lien en surlignage bleu s'ouvre un fichier PDF correspondant au document souhaiter.... la personne avant moi à créer un repertoire de tout les fichier PDF classer  de P1 à P3 qui ont chacun en sous dossier 1 procédure, 1 enregistrement et maintenant un Fiches d'instruction, le nom des document si situe dans la colonne reférence, et celui doit être le même que le document souhaité en PDF... sinon j'ai testé mes liens, comme indiqué précédement et ils fonctionnent.

par avance merci de votre aide
à l'original, mon ficher compte plus de 900 liens ...
Pièce jointe:
xls index des procedures 1.xls   [ Taille: 40.50 Ko - Téléchargements: 514 ]
Hors Ligne
 Rapport   Haut 

Re: Problème dans ma formule...
#6
dimdime
Débutant XLPages

Inscription: 27/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 30-04-2012 17h25
voici mon fichier quand je clique dans nom de la procédure ou de l'enregistrement la page PDF s'ouvre car des fichiers ont été
et le nom des procédures qui peuvent etre recherché sont dans la colonne reference
 
merci de votre aide


Hors Ligne
 Rapport   Haut 

Re: Problème dans ma formule...
#7
dimdime
Débutant XLPages

Inscription: 27/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 30-04-2012 12h16
j'ai rentré la forumule que tu m'as donnée mais quand je clique sur le lien d'un document cela ne me retrouve pas mon fichier PDF.... il ne trouve plus mon fichier
Hors Ligne
 Rapport   Haut 

Problème dans ma formule...
#8
dimdime
Débutant XLPages

Inscription: 27/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 30-04-2012 10h25
bonjour, je solicite votre aide car je ne sais pas où est l'erreur dans ma formule, en effet jai 3 conditions a remplir je sais faire une fonction simple avec SI mais avec trois conditions cela change....
le but de mon ficher excel est un index de document, avec des procedures, des enregistrements et des fiches d'instructions.... voici ma formule :
=SI(A4="Procédure";LIEN_HYPERTEXTE("file:///"&SUBSTITUE(CELLULE("Filename";$A$3);STXT(CELLULE("Filename";$A$3);CHERCHE("[";CELLULE("Filename";$A$3);1);NBCAR(CELLULE("Filename";$A$3)));CONCATENER("\PDF";GAUCHE(C4;TROUVE("-";C4)-1);"";"PROCEDURES";C4;".PDF"));F4);SI(A4="Enregistrements";LIEN_HYPERTEXTE("file:///"&SUBSTITUE(CELLULE("Filename";$A$3);STXT(CELLULE("Filename";$A$3);CHERCHE("[";CELLULE("Filename";$A$3);1);NBCAR(CELLULE("Filename";$A$3)));CONCATENER("\PDF";"P";GAUCHE(B4;TROUVE("-";B4)-1);"";"Enregistrements";C4;".PDF"));F4));SI(A4="Fiches_d'instructions";LIEN_HYPERTEXTE("file:///"&SUBSTITUE(CELLULE("Filename";$A$3);STXT(CELLULE("Filename";$A$3);CHERCHE("[";CELLULE("Filename";$A$3);1);NBCAR(CELLULE("Filename";$A$3)));CONCATENER("\PDF";"P";GAUCHE(B4;TROUVE("-";B4)-1);"";"Fiches_d'instructions";C4;".PDF"));F4)))

Par avance merci de votre aide
Hors Ligne
 Rapport   Haut 

Modifier un Code VBA
#9
dimdime
Débutant XLPages

Inscription: 27/03/2012

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 27-03-2012 11h55
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
On Error Resume Next










If Target.Value = "CHLORURE DE CINNAMOYLE" Or Target.Value = "CHLORHYDRATE DE DIMETHYLAMINE HOMOGENEISE" Or Target.Value = "HPBA-02 / HPBA-01" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION D'HOMOTAURINE" _
Or Target.Value = "SECONDS JETS METFORMINE ET TRAITEMENT" Or Target.Value = "FABRICATION DES SECONDS JETS DE METFORMINE" Or Target.Value = "HHBA-02 / HHBA-01" _
Or Target.Value = "DESTRUCTION DES SECONDS JETS DE METFORMINE" Or Target.Value = "REPRISE DES SECONDS JETS DE METFORMINE BRUTE" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION DU CHLORURE DE CINNAMOYLE" _
Or Target.Value = "METFORMINE BRUTE ETAPE II" Or Target.Value = "RETRAITEMENT DES BRUTS" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION DE FABRICATION DE HHBA-02 / HHBA-01" Or Target.Value = "CHLORURE DE CINNAMOYLE SOLUTION TOLUENIQUE" _
Or Target.Value = "ETAPE II METFORMINE BRUTE 3ème CHAINE" Or Target.Value = "REPRISE DE METFORMINE STANDARD" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION DE L'EMD387008/A1" _
Or Target.Value = "HOMOTAURINE" Or Target.Value = "EMD 387008/D1" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION EMD 338064" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION DU CRE 18428" _
Or Target.Value = "CHLORURE DE 4-CHLOROPHENOXYACETYLE OU 235-03" Or Target.Value = "ACIDE PARACHLOROPHENOXYACETYLE" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION HPBA-02 / HPBA-01" _
Or Target.Value = "METFORMINE ETAPE IV CONDITIONNEMENT ETIQUETAGE" Or Target.Value = "METFORMINE ETAPE IV - CONDITIONNEMENT ETIQUETAGE 3ème CHAINE" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION DE L'EMD 387008/D1" _
Or Target.Value = "METFORMINE ETAPE IV CONDITIONNEMENT ETIQUETAGE 25 KG" Or Target.Value = "METFORMINE, HCL 0,5 % STEARATE DE Mg MELANGE ET CONDITIONNEMEN" Or Target.Value = "LISTE DES FF DU CHLORURE DE 4-CHLOROPHENOXYACETYLE OU 235-03" _
Or Target.Value = "METFORMINE, HCl 0,5% STEARATE DE Mg MELANGE ET CONDITIONNEMENT" Or Target.Value = "METFORMINE, HCl 0,5% STEARATE DE Mg MELANGE ET CONDITIONNEMENT" Or Target.Value = "MET., HCl 0,5% STEARATE DE Mg MELANGE ET CONDITIONNEMENT" Or Target.Value = "METFORMINE +0,5% DE STEARATE DE Mg CONDITIONNEE EN BIG-BAG" _
Or Target.Value = "METFORMINE +0,5% DE STEARATE DE Mg CONDITIONNEE EN BIG-BAG" Or Target.Value = "METFORMINE +0,5% DE STEARATE DE Mg CONDITIONNEE EN BIG-BAG CHAINE NORD" _
Or Target.Value = "METFORMINE HCl BROYEE CONDITIONNEMENT ETIQUETAGE 3ème CHAINE" Or Target.Value = "METFORMINE HCl BROYEE CONDITIONNEMENT ETIQUETAGE 3è CHAINE" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION DE L'IDROCILAMIDE" _
Or Target.Value = "IDROCILAMIDE" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION DU MECLOFENOXATE" Or Target.Value = "FOSINOPRIL" Or Target.Value = "EMD 338064" _
Or Target.Value = "HHBA -2 / HHBA - 1" Or Target.Value = "CRE 18428" Or Target.Value = "EMD387008/A1" Or Target.Value = "METFORMINE - ETAPE III - RECRISTALLISATION/SECHAGE/BROYAGE" Or Target.Value = "RECRISTALLISATION DE METFORMINE ETAPE III - SECHAGE - BROYAGE" _
Or Target.Value = "MET. ETAPE III RECRISTALLISATION SECHAGE-BROYAGE 3ème CHAINE" Or Target.Value = "CHLORHYDRATE DE MECLOFENOXATE" Or Target.Value = "LISTE DES FEUILLES DE FABRICATION DU FOSINOPRIL" _
Or Target.Value = "PLAN D'OPERATION INTERNE" _
Then




MsgBox "Document disponible uniquement au format papier", vbInformation, "Note d'information"
End If




End Sub
 
Bonjour à tous,

Je travvaille depuis pas mal de temps sur un fichier excel d'index de dodument. En effet, cerrtains documents sont disponnible uniquement sous format papier. j'aimerais donc pouvoir rajouter des ligne dans cette VBA car je dois ajouter de nouveau document visible uniquement sous format papier :
Voici ci-dessous les codes, j'aimerais savoir comment le modifier pour pouvoir rajouter des lignes

Par avance merci
Bonne journée à tous

Hors Ligne
 Rapport   Haut