I
IFFIC
Guest
Bonjour à tous, encore lui direz-vous?
Mais c'est tellement sympa ici.
Voici mon souci:
Je récupère ainsi le contenu d'une feuille (Genre répertoire téléphonique)dans un classeur fermé de mon ordi et cela marche bien.
Le but est de pouvoir en faire autant en réseau dans ma société, mais pour trouver le chemin; je n'y arrive pas, ou alors, j'ai comme résultat: #REF.
Ci-dessous ma bidouille:
Dim NUMSHEET As Integer
Dim COLNOM As Integer
Dim COLTEL As Integer
Dim NOM As Variant
Dim NUMERO As String
Private Sub CommandButton1_Click()
NUMSHEET = 1 ' La Feuille 1,2,2 et c.
COLNOM = 1 ' La colonne A
COLTEL = 2 ' La colonne B
For j = 2 To 20 ' Ou plus, ou moins
NOM = ExecuteExcel4Macro("'C:\ESSAI\REPERTOIRE\[TEL]FEUIL" & NUMSHEET & "'!R" & j + 1 & "C" & COLNOM)
NUMERO = ExecuteExcel4Macro("'C:\ESSAI\REPERTOIRE\[TEL]FEUIL" & NUMSHEET & "'!R" & j + 1 & "C" & COLTEL)
If NOM <> 0 Then
Worksheets("LISTE").Cells(1 + j, 1) = NOM
Worksheets("LISTE").Cells(1 + j, 2) = NUMERO
End If
Next j
End Sub
L'afffaire coince quand je veux substituer: \\Accueil\RÉPERTOIRE\[Répertoire]Répertoire téléphonique 2004.xls
(Enfin l'adresse d'un autre poste du réseau).
Il y a des ( "[ ' ! .$..\.. Qui manquent quelque part, n'est-il pas?
Merci d'avance de votre aide.
Bonne fin de soirée ou belle journée à vous.
IFFIC
Mais c'est tellement sympa ici.
Voici mon souci:
Je récupère ainsi le contenu d'une feuille (Genre répertoire téléphonique)dans un classeur fermé de mon ordi et cela marche bien.
Le but est de pouvoir en faire autant en réseau dans ma société, mais pour trouver le chemin; je n'y arrive pas, ou alors, j'ai comme résultat: #REF.
Ci-dessous ma bidouille:
Dim NUMSHEET As Integer
Dim COLNOM As Integer
Dim COLTEL As Integer
Dim NOM As Variant
Dim NUMERO As String
Private Sub CommandButton1_Click()
NUMSHEET = 1 ' La Feuille 1,2,2 et c.
COLNOM = 1 ' La colonne A
COLTEL = 2 ' La colonne B
For j = 2 To 20 ' Ou plus, ou moins
NOM = ExecuteExcel4Macro("'C:\ESSAI\REPERTOIRE\[TEL]FEUIL" & NUMSHEET & "'!R" & j + 1 & "C" & COLNOM)
NUMERO = ExecuteExcel4Macro("'C:\ESSAI\REPERTOIRE\[TEL]FEUIL" & NUMSHEET & "'!R" & j + 1 & "C" & COLTEL)
If NOM <> 0 Then
Worksheets("LISTE").Cells(1 + j, 1) = NOM
Worksheets("LISTE").Cells(1 + j, 2) = NUMERO
End If
Next j
End Sub
L'afffaire coince quand je veux substituer: \\Accueil\RÉPERTOIRE\[Répertoire]Répertoire téléphonique 2004.xls
(Enfin l'adresse d'un autre poste du réseau).
Il y a des ( "[ ' ! .$..\.. Qui manquent quelque part, n'est-il pas?
Merci d'avance de votre aide.
Bonne fin de soirée ou belle journée à vous.
IFFIC