Discussion :

[OtObOx]

Bonjour à tous,

voici un problème sur lequel je butte depuis le début de la soirée.
Je cherche à faire insérer des liens hypertextes dans des cellules, ainsi que de la mise en forme dans un fichier Excel 97 à partir d'Access 97.

J'arrive à ouvrir un modèle Excel, écrire dedans et le sauvegarder, c'est seulement les liens hypertextes et la mise en forme qui ne va pas. Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'Ouverture de l'appli et du modèle Excel :
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open(strCheminModelExcel)
 
'Ecriture dans Excel
With appexcel
    .Cells(1, 2) = "Toto"
    .Cells(2, 2) = "Tata"
    .Cells(3, 2) = "Titi"
End With
 
'Sauvegarde du fichier :
wbexcel.SaveAs strCheminFichExcel
Set appexcel = Nothing

Ca, ça fonctionne

Ce qui ne marche pas, c'est lorsque je veux insérer avant la partie sauvegarde du fichier, du code pour faire un lien hypertexte sur un texte dans une cellule:

Code :

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

1
2
3
 
appexcel.Cells(2, 2).Select
appexcel.Hyperlinks.Add Anchor:=Selection, Address:=URLrelative

J'ai le message :

Erreur d'exécution '429'
un composant ActiveX ne peut pas créer un objet

Deuxième problème, c'est lorsque que je cherche à faire une bordure (toujours en insérant du code avant la partie sauvegarde) :

Code :

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

1
2
3
4
5
6
7
8
9
 
With appexcel.ActiveSheet
        .Range(.Cells(1, 1), .Cells(1, 9)).Select
        With Selection.Borders(xlEdgeLeft)
               .LineStyle = xlContinuous
               .Weight = xlMedium
               .ColorIndex = xlAutomatic
        End With
End With

J'ai une erreur de compilation dès le lancement de la procédure :

Erreur de compilation:
Membre de méthode ou de données introuvable

et c'est le .Weight qui est sélectionné après avoir cliqué sur OK.

Pourtant, c'est du copier-coller qui fonctionne sous Excel

Quelqu'un aurait-il une idée pour m'aider à résoudre ces deux problèmes ?

Merci,

Jean-Marc

[helas]

Code :

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

1
2
3
 
appexcel.Cells(2, 2).Select
appexcel.Hyperlinks.Add Anchor:=Selection, Address:=URLrelative

manque la référence à la feuille

Code :

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

1
2
 
appexcel.Sheets("Feuil1").Hyperlinks.Add Anchor:=appexcel.Cells(2, 2), Address:="http:\\www.developpez.net"

Effectivement, access refuse de dessiner les cadres

J'utilise dans un de mes modules ce code qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub DessineCadre(ByVal sh As String, ByVal s As String)
 On Error GoTo erreur
 Sheets(sh).Range(s).Borders(xlDiagonalDown).LineStyle = xlNone
 Sheets(sh).Range(s).Borders(xlDiagonalUp).LineStyle = xlNone
 With Sheets(sh).Range(s).Borders(xlEdgeLeft)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = xlAutomatic
 End With
 With Sheets(sh).Range(s).Borders(xlEdgeTop)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = xlAutomatic
  End With
  With Sheets(sh).Range(s).Borders(xlEdgeBottom)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = xlAutomatic
  End With
  With Sheets(sh).Range(s).Borders(xlEdgeRight)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = xlAutomatic
  End With
  Sheets(sh).Range(s).Borders(xlInsideVertical).LineStyle = xlNone
  Sheets(sh).Range(s).Borders(xlInsideHorizontal).LineStyle = xlNone
 Exit Sub
erreur:
Resume Next
End Sub

[OtObOx]

Merci beaucoup Les solutions que tu proposes fonctionnent très bien !

Jean-Marc