Bonjour,

Tout d'abord, je suis novice en Vba.

J'ai récupérer le code suivant :
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
32
33
34
35
36
37
38
39
Function Liaisonext( _
        Chemin As String, _
        Fichier As String, _
        Feuille As String, _
        Cellule As Variant) As Variant
 
    Application.Volatile
 
    Dim Source As Object, Rst As Object, ADOCommand As Object
    Dim Cible As String
 
    Feuille = Feuille & "$"
    Cible = Cellule.Address(0, 0, xlA1, 0) & ":" & _
        Cellule.Address(0, 0, xlA1, 0)
 
    Set Source = CreateObject("ADODB.Connection")
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Chemin & "\" & Fichier & _
        ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set ADOCommand = CreateObject("ADODB.Command")
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cible & "]"
    End With
 
    Set Rst = CreateObject("ADODB.Recordset")
    '1 = adOpenKeyset, 3 = adLockOptimistic
    Rst.Open ADOCommand, , 1, 3
    Set Rst = Source.Execute("[" & Feuille & Cible & "]")
 
    Liaisonext = Rst(0).Value
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Function
Sauf que lorque j'envoi en mail le ficher, le code bien évidement ne peut fonctionner car les interlocuteurs n'ont pas la même architecture que moi-même.

Donc j'ai rajouté un onglet qui récupère les valeurs.

En résumé, je demande au code de prendre la même valeurs de la cellule D8 à G75 de l'onglet "Commentaires" sur cl'onglet "Commentaires en valeurs"

J'ai saisi ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Activate()
Dim i As Integer
Dim j As Integer
 
For i = 8 To 75
For j = 4 To 7
Sheets("Commentaires").Range(Cells(i, j)) = Sheets("Commentaires en valeurs").Range(Cells(i, j))
Next i
Next j
 
End Sub
Mais il y a un message "Référence de variable incorrect dans Next"

Merci de votre aide