Discussion :

[boboch]

Bonjour,

J'ai un petit soucis avec vb6 .... (encore un)
J'aimerais faire une petit fonction qui me permet d'ouvrir un fichier excel, d'écrire dans une cellule et de me renvoyer les coordonnées de la cellule dans laquelle il vient d'écrire.

Voici le code que j'ai tapé :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function WriteToLogFileCurrentDateFr(Optional nData As String = "") As Long
Dim xexe As String
    LogFile = FreeFile
    Open LogPath For Append Lock Write As #LogFile ' open log file
    Dim appExcel As Excel.Application 
    Print #LogFile, Chr(10) + nData + vbTab;
    xexe = appExcel.ActiveCell.Row
    MsgBox ("xexe = " & xexe)
    Close #LogFile
End Function

Le programme marche quand j'enleve la ligne xexe = appExcel.ActiveCell.row mais quand je la met il me met une erreur de type 91

Ma variable xexe est sensé me retourner le numéro de la ligne dans laquelle je viens d'écrire

[l_autodidacte]

C'est normal d'avoir cette erreur(Variable objet ou variable bloc With non définie) puisque l'objet déclaré(AppExcel) n'a pas été créé. Pour contourner le problème soit tu déclares l'objet en le créant : Dim appExcel As New Excel.Application soit tu le crées après la déclaration : Set appExcel = Excel.Application.