Résultats de 1 à 5 sur 5

Sujet : Probleme de creation de lien -> Excel

  1. #1

    Probleme de creation de lien -> Excel

    Bonjour ,

    Je realise une appli qui doit creer un lien sur du texte dans une cellule d\'un fichier Excel .
    Voici le code :
    Code:
    Private Function excel()
    
    Dim exc As excel.Application
    Dim classeur As excel.Workbook
    Dim feuille As excel.Worksheet
    Dim a As String
    Dim dernier As Integer
    Dim lien As String
    
    Set exc = CreateObject(\"Excel.Application\")
    \'Ouverture d\'un nouveau vierge
    Set classeur = exc.Workbooks.Open(\"C:\\NCtab.xls\") \' <<<< !!! CHEMIN FICHIER EXCEL !!!
    Set feuille = exc.ActiveWorkbook.ActiveSheet
    
    \' dernier reçoit la valeur de la derniére ligne vide
    dernier = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
    
    \' -- Ajout des informations de la nouvelle non conformité au fichier Excel --
    feuille.Range(\"A\" & dernier & \":A\" & dernier).Select
    exc.Selection.Value = \"=LIEN_HYPERTEXTE(\"\"file:///C:\\fichenc\\\" & txt(0).Text & \".htm\"\";\"\"\" & txt(0).Text & \"\"\")\"
    feuille.Range(\"B\" & dernier & \":B\" & dernier).Select
    exc.Selection.Value = FicheNC.txt(1).Text
    feuille.Range(\"C\" & dernier & \":C\" & dernier).Select
    exc.Selection.Value = FicheNC.txt(2).Text
    feuille.Range(\"D\" & dernier & \":D\" & dernier).Select
    exc.Selection.Value = FicheNC.txt(3).Text
    feuille.Range(\"E\" & dernier & \":E\" & dernier).Select
    exc.Selection.Value = FicheNC.txt(7).Text
    feuille.Range(\"F\" & dernier & \":F\" & dernier).Select
    exc.Selection.Value = FicheNC.txt(4).Text
    feuille.Range(\"G\" & dernier & \":G\" & dernier).Select
    exc.Selection.Value = FicheNC.txt(5).Text
    feuille.Range(\"H\" & dernier & \":H\" & dernier).Select
    exc.Selection.Value = FicheNC.txt(12).Text
    feuille.Range(\"I\" & dernier & \":I\" & dernier).Select
    If (ep.Value = True) Then
    exc.Selection.Value = \"Equipe Projet\"
    ElseIf (be.Value = True) Then
    exc.Selection.Value = \"Bureau d\'étude\"
    ElseIf (fao.Value = True) Then
    exc.Selection.Value = \"FAO\"
    ElseIf (modelage.Value = True) Then
    exc.Selection.Value = \"Modelage\"
    ElseIf (usinage.Value = True) Then
    exc.Selection.Value = \"Usinage\"
    ElseIf (ajustage.Value = True) Then
    exc.Selection.Value = \"Ajustage\"
    Else: exc.Selection.Value = \"Contrôle\"
    End If
    feuille.Range(\"J\" & dernier & \":J\" & dernier).Select
    exc.Selection.Value = FicheNC.txt(16).Text
    feuille.Range(\"K\" & dernier & \":K\" & dernier).Select
    exc.Selection.Value = FicheNC.txt(22).Text
    feuille.Range(\"L\" & dernier & \":L\" & dernier).Select
    If (majeure.Value = True) Then
    exc.Selection.Value = \"Majeure\"
    ElseIf (mineure.Value = True) Then
    exc.Selection.Value = \"Mineure\"
    Else: exc.Selection.Value = \"Réclamation Client\"
    End If
    \' ---------------------------------------------------------------------------------------------
    
    classeur.Close \'Fermeture du classeur Excel
    exc.Quit \'Fermeture de l\'application Excel
    
    a = MsgBox(\"Opération terminée\", vbInformation + vbOKOnly, \"Terminé\")
    
    \' -- Désallocation mémoire --
    Set feuille = Nothing
    Set classeur = Nothing
    Set exc = Nothing
    \' ------------------------------------
    
    End Function
    Mais le probleme c que lorsque je teste ma fonction, il ne veut pas prendre le signe \"=\".

    Avez vous une idee de l\'erreur ??

    Merci

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    245
    Bonjour,
    La Syntaxe d\'une fonction c\'est
    Public|Private Function Nom_De_La_Fonction(...) as Type
    .......
    Instruction(s)
    .........
    Nom_De_La_Fonction=QuelqueChose
    ........
    ......
    End Function

    Je n\'ai pas vue à l\'intérieur de votre fonction
    [-i]Nom_De_La_Fonction=.......[/i]

    Un recommandation : N\'utilise pas le mot Excel comme nom de fonction il peut créer un Beug qui est difficile à déceler
    Merçi :wink:
    La réussite est au bout de l'effort

  3. #3
    Le probleme n\'est pas ma fonction mais une ligne. Celle qui permet d\'enregistrer un lien dans excel

  4. #4
    Membre MP
    Inscrit
    août 2013
    Messages
    245
    Bonjour,
    Si je ne me trompe pas c\'est bien vous qui avez écrit ceci
    Mais le probleme c que lorsque je teste ma fonction, il ne veut pas prendre le signe \"=\".

    Avez vous une idee de l\'erreur ??
    Il fallait être plus précis .

    Ceci étant pour corriger cette erreur essayé ceci:

    exc.Hyperlinks.Add Anchor:=Selection, Address:=C:\\fichenc\\\" & txt(0).Text & \".htm\"


    Merçi
    La réussite est au bout de l'effort

  5. #5
    j\'ai effectue une selection de cellule :
    Code:
    feuille.Range(\"A\" & dernier & \":A\" & dernier).Select
    exc.Selection.Value = FicheNC.txt(0).text
    comment l\'y adapter ???

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé
Please disable Adblock!