Paritec
XLDnaute Barbatruc
Bonjour Le forum,
J'ai un problème j'aimerais dans le code ci-dessous ajouter là ou il y a les points d'interrogation, la valeur de la denière cellule de la colonne D de la Feuil12 (Avril)du classeur Comptabilité Manuelle 2008.
Le chemin du classeur comptabilité manuelle c'est C:\Paritec\Paritec\Comptabilité manuelle 2008 (ce classeur n'est pas ouvert pour la récupération)
Et je n'y arrive pas
Le reste du code marche bien mais comment faire pour récupérer la valeur de la cellule D & derligne ?
Oui je précise que la cellule n'est jamais la même puisque au fur et à mesure de l'ajout des lignes la cellule change.
Si vous pouvez me compléter le code ci-dessous merci d'avance
dans l'attente de vos réponses
a+
Papou
With UserForm2.ListBox1
.AddItem (Format(dat, "dd/mm/yyyy")) & " au " & Format(dat1, "dd/mm/yyyy")
.List(.ListCount - 1, 1) = ""
.List(.ListCount - 1, 2) = "Chiffre Total " & Format(Var_somme, "###,##0.00 €")
.List(.ListCount - 1, 3) = "Total MOH " & Format(Moh_somme, "###,##0.00 €")
.List(.ListCount - 1, 4) = "Total Déplacement " & Format(forfait_somme, "###,##0.00 €")
'.List(.ListCount - 1, 5) = ?????
J'ai un problème j'aimerais dans le code ci-dessous ajouter là ou il y a les points d'interrogation, la valeur de la denière cellule de la colonne D de la Feuil12 (Avril)du classeur Comptabilité Manuelle 2008.
Le chemin du classeur comptabilité manuelle c'est C:\Paritec\Paritec\Comptabilité manuelle 2008 (ce classeur n'est pas ouvert pour la récupération)
Et je n'y arrive pas
Le reste du code marche bien mais comment faire pour récupérer la valeur de la cellule D & derligne ?
Oui je précise que la cellule n'est jamais la même puisque au fur et à mesure de l'ajout des lignes la cellule change.
Si vous pouvez me compléter le code ci-dessous merci d'avance
dans l'attente de vos réponses
a+
Papou
With UserForm2.ListBox1
.AddItem (Format(dat, "dd/mm/yyyy")) & " au " & Format(dat1, "dd/mm/yyyy")
.List(.ListCount - 1, 1) = ""
.List(.ListCount - 1, 2) = "Chiffre Total " & Format(Var_somme, "###,##0.00 €")
.List(.ListCount - 1, 3) = "Total MOH " & Format(Moh_somme, "###,##0.00 €")
.List(.ListCount - 1, 4) = "Total Déplacement " & Format(forfait_somme, "###,##0.00 €")
'.List(.ListCount - 1, 5) = ?????