Résultats de la recherche

Bonsoir à tous, Ma demande est trop complexe ? n'ayant pas de retour :( Bonne soirée à tous, Cordialement,

Bonjour, Pourriez vous m'aider à mettre en place une procédure VBA afin d'envoyer pour chacun des mails avec pièce jointe et y inclure un extrait du tableau, Je joins mon fichier exemple afin que vous puissiez mieux comprendre ma demande, Merci d'avance, Cordialement,

Bonjour Sylvanu, Merci beaucoup pour ta solution qui est top top:) Tout est parfait, je passe le post en résolu. Passez une bonne après midi, Cordialement,

Bonjour sylvanu, C'est parfait le résultat est vraiment top, j'ai un petit hic c'est au cas ou je n'ai qu'une succursale, j'ai généré avec plusieurs succursales, puis j'ai voulu refaire le code avec une seule succursale et j'ai eu un message d'erreur sur cette ligne : Range("P1:P" &...

Bonjour Sylvanu, Tout d'abord merci pour votre retour et cela fonctionne parfaitement, le hic c'est que je peux avoir 50 succursales, et cela supposerai que je duplique chaque cas, pourriez vous me proposer une version plus courte à partir du code de départ ?, Merci d'avance, Cordialement

Bonsoir à tous, J'ai un code de ce site qui fonctionne, mais je souhaiterai que celui décompose la création des CSV par succursales ?, serait il possible également de rendre variable le chemin défini en M1?, Je joins un fichier pour mieux appréhender ma demande, Merci d'avance, Cordialement,

Merci pour ce lien c'est pile ce que je souhaitais, Cordialement,

C'est juste que je voulais comprendre celui ci, d'ou mes question initiales, je ne veux pas juste d'un code qui me donne le résultat sans comprendre, Bon je suis nul en VBA, et donc j'essaye de bien comprendre. Cordialement,

Bonjour Staple600, Merci pour votre retour, J'ai remplacé par : [T_GB_2].ListObject.DataBodyRange.Copy [HISTO_T_GB].ListObject.ListRows.Add.Range ce qui est équivalent, je suppose, au code proposé par @Phil69970 Range("T_GB_2").ListObject.DataBodyRange.Copy...

Bonjour Hasco, Oui j'ai tenté : ListObjects("T_GB_2").DataBodyRange.Copy ListObjects("HISTO_T_GB").ListRows.Add().Range(1,1) Mais j'ai le même message d'erreur, Cordialement,

Merci pour votre retour Dranreb, Mais si je remplace Range("T_GB_2").ListObject.DataBodyRange.Copy Range("HISTO_T_GB").ListObject.ListRows.Add.Range par ListObjects("T_GB_2").DataBodyRange.Copy ListObjects("HISTO_T_GB").ListRows.Add.Range J'ai toujours un message d'erreur, Cordialement,

Bonjour @Phil69970 , La partie du code placé au début ne fait pas n'importe quoi 😂 : il vérifie la cohérence de deux dates nommées dans le fichier puis vérifie si une sauvegarde a déjà été effectuée, Ceci dit le code que vous proposez va évidemment bien plus vite que la boucle For...Next...

Bonsoir à tous, J'ai un fichier et dans celui ci j'ai un code VBA qui permet de transférer notamment des données d'un TS vers un autre TS, Le code enregistré manuellement va plus vite que celui joint, il doit surement avoir quelque chose qui m'échappe car je trouve qu'il n'est pas assez...

Bonjour Job75, Je comprends, Cordialement

Je ne me souvenais plus mais j'avais déjà eu ce problème : la solution est que dans mon fichier de travail ou il y a la macro, sur une des cellules je mets : '=40*2 et la il me met ce message d'erreur d’exécution, Mais si je mets : '40*2 la je n'ai plus ce message d'erreur, cela ne me pose...

Je vous joins le code complet : Option Explicit Private Function PréfixeFeuille(ByVal Z As String) As String PréfixeFeuille = Left$(Z, PosPExcla(Z)) End Function Private Function PosPExcla(ByVal Z As String) As Long 'Le nom de feuille peut contenir "!", et même "'!", ou commencer par "!"...

Bonjour Job75, J'ai un problème sur le code et il se situe a ce niveau : Range(w.UsedRange.Address) = w.UsedRange.Value 'supprime les formules Il me met en erreur et le code affiché est " erreur d'execution 1004 : erreur définie par l'application ou par l'objet" Merci pour votre aide...

Bonjour Job75, Non vous avez raison tout fonctionne, je ne l'avais pas testé et lu simplement, en omettant de lire que la sauvegarde xls apparaissait, c'est parfait merci beaucoup ;) Cordialement,

Bonjour Job75, Merci pour votre retour, cependant si je ne me trompe il ne sera enregistré qu'en PDF?, je souhaiterai également conserver le format xls ... Merci d'avance, Cordialement,

Bonjour Job75, Je ressors le fil de ce post car j'aimerai ajouter une chose au code VBA que vous m'aviez proposé, Je voudrais qu'a la fin de la macro, la procédure lance une sauvegarde en PDF de chaque fichier Excel créer?, Est ce possible?, Merci d'avance, Cordialement,