Ecriture dans un fichier [Résolu]

[grinder59]

Bonjour,

Je tente de faire une macro qui exporte les contacts de mon carnet d'adresses. Ces contacts ont des valeurs particulières situées des tableaux situées dans UserProperties. Voici le gros de mon code. Après avoir lu les valeurs, je les affiche (au fur et à mesure) pour vérifier qu'elles existent bien et ensuite je les écrit dans un fichier csv.

Si l'affichage en MSgBox fonctionne, l'écriture dans le fichier ne fonctionne pas. Il ne s'agit pas d'un problème d'accès au fichier (d'autres écritures sont faites avant et fonctionnent parfaitement).

Quelqu'un aurait-il une idée de ce qui cloche ?

Merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
    'Boucle sur les éléments pour récupérer les infos
    For Each Contact In dossierContacts.Items
        j = j + 1
 
        'Récupération de la valeur du parametre
        sProperty = Contact.UserProperties.Item(7).Value
 
        'Vérification du nombre de valeur contenues
        m_iOldValueNumber = UBound(sProperty)
        'Parcours le tableau de la valeur du parametre et le stock dans une chaine unique
        For k = 0 To m_iOldValueNumber
            m_tsOldValueList(k) = sProperty(k)
            MsgBox m_tsOldValueList(k)
            Cells2(j, k + 1) = m_tsOldValueList(k)
            MsgBox Cells2(j, k + 1)
            With MonFich2
            .Write Cells2(j, k + 1)
            .Write ";"
            End With
        Next

[Heureux-oli]

Il nous manque des information pour donner un avis sur ton code, mais je peux te guider vers un tuto qui traite de l'export des contacts en vue d'un partage.

http://heureuxoli.developpez.com/off...look/partager/

[grinder59]

Ben en fait c'était juste que j'ouvrais mon fichier en nommant le flux MonFic et que j'écrivais dans le flux MonFich...

et MonFic n'est pas MonFich !!!

La pause est mon amie !!!

merci de m'avoir lu !!!