Discussion :

[ALEX80800]

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

[SfJ5Rpw8]

Bonjour,

pour le message c'est l'ordre de tes For / Next ... tu ne peu pas les croiser la boucle For j .. Next J doit se trouver entre For i ... next i ..., croise tes next i et j

[ALEX80800]

Merci bbil de ta réponse.

Mais j'ai essayé de croiser. Mais toujours des messages d'erreur.

Je n'ai pas la logique du croisement.

Ce que j'ai fait, c'est enregistrer le code via macro. Que j'ai enregistré.

Désolé, j'aurais bien voulu répondre "Résolu".