Problème fonction SetTex avec Excel 2013

Bonjour,

Voilà j'ai un petit problème qui est survenu depuis que j'ai changé Excel 2010 par Excel 2013.

Au départ je voulais une fonction qui permettait de copier le nom d'un fichier (String) dans le presse-papier. pour cela j'ai écrit le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub BuildARCmde_Filename(aLaSociété As String, aDate As Date, aRef As String, aLesOT As String) Dim LeFichier As String Dim TheData As New DataObject     LeFichier = Format(aDate, "yyyy.mm.dd - ") LeFichier = LeFichier & "ARCmde de " & aLaSociété & " (" & aRef & ") - " LeFichier = LeFichier & BuildReducedListFromExtendedList(aLesOT, ", ", "OT-0000") & ".pdf" TheData.SetText (LeFichier) TheData.PutInClipboard MsgBox ("L'Accusé de Réception de la commande a été référencé dans tous les OT sélectionnés." & vbCrLf & _ "Vous pouvez maintenant placer un scan de cette facture dans le répertoire approprié." & vbCrLf & _ "Le nom du fichier vous est proposé par défaut ci dessous et a déjà été copié dans le Presse Papier." & vbCrLf & _ "Vous pouvez le coller en renommant le scan." & vbCrLf & _ LeFichier)   End Sub

---

Sous excel 2010 pas de problème je récupère bien mon nom de fichier dans le presse papier.
Maintenant que je suis passé sous Excel 2013, je ne comprends pas pourquoi sur la fonction SetText je ne récupère aucune valeur dans mon objet TheData.
Pourtant dans l'aide excel 2013, la fonction n'a pas changé par rapport à 2010.

Si quelqu'un a déjà eu ce problème je suis preneur car je sèche.

Merci d'avance pour votre aide,

Bonjour
Je ne comprends pas . Ce que tu as mis dans le presse-papiers se récupère par

Code:

---

TheData.GetText(1)

---

1 si une seule donnée dans le presse-papiers.

Et ta ligne :

Code:

---

TheData.PutInClipboard

---

n'est par ailleurs utile que si tu utilises un coller (paste)

EDIT vérifie quand même que la référence à Microsoft forms 2.0 object library est bien cochée.

Salut.

Pas de soucis en 2013, en désactivant bien entendu la ligne qui contient l'appel à BuildReducedListFromExtendedList qui t'est personnelle. Peut-être est-ce cette fonction qui pose problème?

Dans tous les cas, pour ce genre de problèmes, pas 36 solutions. Place un point d'arrêt au début de ton code, puis avance en pas-à-pas en examinant tes variables dans la fenêtre des variables locales.

Citation:

---

Envoyé par unparia

[...]
EDIT vérifie quand même que la référence à Microsoft forms 2.0 object library est bien cochée.

---

Inutile. Si la référence n'était pas cochée, le code ne compilerait pas.

J'aimerais de toutes manières que le demandeur nous précise où, comment et à quel moment il a vérifié ce qu'il expose ici :

Citation:

---

je ne récupère aucune valeur dans mon objet TheData

---

Toute vérification de l'espèce n'ayant en effet d' "assise" que si faite immédiatement après le settext. Faite au-delà, rien ne prouve qu'une dation de focus n'a pas été assortie d'un vidage délibéré.

Bonjour,

Merci pour vos réponses.

J'utilise la méthode SetText car pour utiliser la fonction PutInClipboard, celle-ci a besoin d'un dataobject.

Ma chaine de caractères LeFichier est bien construite mais lorsque je veux la copier dans TheDATA par la méthode SetText.

Ci-dessous une capture d'écran des valeurs espionnées.
Pièce jointe 210032


Peut-être qu'il y a une fonction plus simple pour copier ma string dans le presse-papier ?

Cordialement,