gros gros probleme la fonction d'enregistrement automatique de mon fichier marche pu

[patrick965]

Bonjour et merci de prendre le tem de me lire
je vous joins mon ficher parce que j'ai un gros problème urgent...

sans raison apparente lorsque j'étais en train de modifier des apparence dans ma fiche Excel plus rien ne fonctionne et un message d'erreur apparait quand je veut enregistrer

Habituellement quand j'entre un nom de client et que je clique sur enregistrer la macro ou le code crée un ficher au nom du client et enregistre-le tous dans ce fichier.

Depuis ce soir rien ne marche et je ne comprends pas pourquoi et ce qui est le plus blizzard c'est que mes autres sauvegarde précédant non plus fonctionne plus il en a une datée du 26-02-2015 qui fonctionne très bien, mais depuis j'ai travaillé environs 50h pour continuer a la modifier.

merci beaucoup de me dire ce qui a clocher et pourquoi

vraiment merci

 

[job75]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Bonjour patrick965,

Je vous donne quand même une méthode pour lister les emails des fichiers _service.xlsm.

Avec ExecuteExcel4Macro on n'a pas besoin d'ouvrir les fichiers :

Sub ListeEmails()
Dim fso As Object, d As Object, sf, fichier$, x$, nom$, em$
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = CreateObject("Scripting.Dictionary")
On Error Resume Next
For Each sf In fso.getfolder(ThisWorkbook.Path).subfolders
  fichier = Dir(sf & "\*_service.xlsm") '1er fichier du dossier
  While fichier <> ""
    x = "'" & sf & "\[" & fichier & "]Facture de service'!"
    nom = ExecuteExcel4Macro(x & "R10C4") 'D10
    em = ""
    em = ExecuteExcel4Macro(x & "R14C4") 'D14
    If InStr(em, "@") Then
      em = "=HYPERLINK(""mailto:" & em & """,""" & em & """)"
      d(em) = nom 'supprime les doublons
    End If
    fichier = Dir 'fichier suivant du dossier
  Wend
Next
'---restitution---
[A:B].Clear 'RAZ
[A1] = "Nom": [B1] = "Email": [A1:B1].Font.Bold = True
[A2].Resize(d.Count) = Application.Transpose(d.items)
[B2].Resize(d.Count) = Application.Transpose(d.keys)
[A:B].Sort [A1], xlAscending, Header:=xlYes 'tri sur les noms
End Sub

A+

 

[patrick965]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

bonjour jobs
un énorme merci
j'ais esseiller de mettre la macro comme tu me la dit mais ca ne marchais as j'ais un eu peur de toute déranger le reste je ne suis pas très habituer et a laise..
pourrais tu svp me la mettre a la bonne place dans mon fichier je vais ensuite regarder ou tu la mis comme ca je ferez pas d'erreur.

merci merci merci jobs

 

[job75]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Re,

Vous n'essayez visiblement pas de comprendre ce qu'on vous propose.

C'est pourtant simple : il faut mettre la macro dans un fichier .xlsm vierge.

Et bien sûr placé dans le même répertoire que le fichier modèle des factures.

A+

 

[patrick965]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

BONJOUR JOBS

en fais c'est le poste 60 que je ne comprend pas je toi tu crée un nouveau classeur Excel lui aussi...

merci jobs

 

[job75]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Re,

J'ai donné la macro du post #60 à titre indicatif, si l'on veut ouvrir chaque fichier.

Mais il vaut mieux utiliser ExecuteExcel4Macro comme je l'ai fait au post #61.

A+

 

[job75]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Re,

Sur Win 7 - Excel 2010 j'ai mesuré la durée d'exécution d'ExecuteExcel4macro : un peu moins de 8 millisecondes.

Pour évaluer les cellules D10 et D14 de 1000 fichiers il faudra donc environ 16 secondes.

A+

 

[patrick965]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

bonjour Jobs
j'ais esseiller de crée le fichier qui enregistre les adresse courriel et je les enregistrer a la même endroit que le document original de soumission et après l'avoir tester quand j'enregistre une soumission ca ne fonctionnais pas l'adresse courriel inscrit en c14
je ne trouve pas pourquoi. je suis désoler de te déranger

pourrais tu me dire ou est mon erreur et pour la formule au poste 60 je crée tu un document du même genre ou comment faire.

merci beaucoup jobs

 

[job75]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Bonjour patrick965, le forum,

ca ne fonctionnais pas l'adresse courriel inscrit en c14

Vous fatiguez j'ai l'impression ?

Plus logique de défusionner la cellule et de mettre l'adresse email en D14...

Et puisque le tableau est déjà formaté :

'---restitution---
Range("A2:B" & Rows.Count).ClearContents 'RAZ
[A2].Resize(d.Count) = Application.Transpose(d.items)
[B2].Resize(d.Count) = Application.Transpose(d.keys)
[A:B].Sort [A1], xlAscending, Header:=xlYes 'tri sur les noms

Et appliquez les bordures par MFC.

Bonne journée.

 

[patrick965]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Bonjour patrick965, le forum,



Vous fatiguez j'ai l'impression ?

Plus logique de défusionner la cellule et de mettre l'adresse email en D14...

Et puisque le tableau est déjà formaté :

'---restitution---
Range("A2:B" & Rows.Count).ClearContents 'RAZ
[A2].Resize(d.Count) = Application.Transpose(d.items)
[B2].Resize(d.Count) = Application.Transpose(d.keys)
[A:B].Sort [A1], xlAscending, Header:=xlYes 'tri sur les noms

Et appliquez les bordures par MFC.

Bonne journée.

bonjour jobs j'ais esseiller et ca me donne une erreur que tu va voir sur la photo de plus je ne comprend pas appliquez les bordures par MFC.

je te joint le document

merci

 

[job75]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Re,

J'en ai raz-le-bol Patrick, vous n'êtes pas réveillé ou quoi ?

A+

 

[job75]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Re,

Apparemment vous ne savez pas ce qu'est une MFC : Mise en forme conditionnelle.

Alors voyez les fichiers joints :

- avec le fichier (4) créez plusieurs factures de clients avec des emails différents en D14

- ouvrez l'autre fichier et cliquez sur le bouton.

MAINTENANT CE FIL EST TERMINÉ, à bientôt peut-être sur un autre.

 

[patrick965]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

bonjour jobs et merci grandement pour l'aide que tu ma apporter toute au long de ce file je l'apprécie grandement et sache que c'est de tout cœur quand je te dit merci de plus j'aimerais que tu sache aussi que peut-être que tu pence le contraire mais je travail très fort a comprendre tout ce logiciel (excel) en 3 ans j'en ai appris beaucoup et je vais continuer d'en apprendre mais même si sa peu paraitre le contraire jy mais beaucoup de temp mais des foie on ce décourage de votre coté vous avez les aptitude de faire en 5 minute ce que je cherche a faire pendant des jour entier il faut comprendre que vos connaissance nous son grandement apprécier.

our terminer ce poste arce que mon logiciel est pratiquement fini pour ce que j'ai a en faire je ne suis pas non lus capable de crée la fiche comme tu me la dit au poste 60 pour faire l'inventaire des matériaux contabiliser.

ne te fache surtout mais pour conclure le poste qui en passant va aider grandement beaucoup de gent grâce a toi j'aimerais que tu me donne ton aide pour ce qui est du poste 60 qui est de crée une fiche qui va comptabiliser les matériaux vendu dans chaque année sur mais facture. j'ai vraiment esseiller mais en vain.

merci encore a toi mon amis jobs75

 

[job75]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Bonjour patrick965, le forum,

Je disais qu'on en avait jusqu'à l'année prochaine

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D1]) Is Nothing Then Exit Sub
Dim an$, fso As Object, d As Object, sf, fichier$, x$, modele$
an = IIf([D1] = "", "", Replace([D1], "Toutes", "") & "*")
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = CreateObject("Scripting.Dictionary")
On Error Resume Next
For Each sf In fso.getfolder(ThisWorkbook.Path).subfolders
  fichier = Dir(sf & "\" & an & "Facture*.xlsx") '1er fichier du dossier
  While fichier <> ""
    x = "'" & sf & "\[" & fichier & "]Facture de service'!R16C4" 'D16
    modele = ""
    modele = ExecuteExcel4Macro(x)
    If modele <> "" Then d(modele) = d(modele) + 1 'comptabilise
    fichier = Dir 'fichier suivant du dossier
  Wend
Next
'---restitution---
Range("A2:B" & Rows.Count).Delete xlUp 'RAZ
[A2].Resize(d.Count) = Application.Transpose(d.keys)
[B2].Resize(d.Count) = Application.Transpose(d.items)
[A:B].Sort [A1], xlAscending, Header:=xlYes 'tri alphabétique
End Sub

Liste les contenus des cellules D16 des factures (.xlsx).

Fichiers joints.

Bonne journée.

 

[job75]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Re,

Il faut bien voir que la solution du post précédent est d'un intérêt très limité.

En effet il peut y avoir plusieurs factures portant le même numéro, et certaines peuvent ne jamais être payées.

Si l'on veut analyser le chiffre d'affaire par modèle il faut se doter d'une BASE PAIEMENT renseignée manuellement.

Celle-ci devra comporter au minimum les colonnes suivantes :

- date du paiement

- nom du client

- numéro de facture

- libellé du modèle

- montant payé (dépot, acompte ou solde).

Il sera beaucoup plus facile (et rapide) d'analyser cette base que de passer en revue les factures.

A+

 

[patrick965]

Re : gros gros probleme la fonction d'enregistrement automatique de mon fichier march

Re,

Il faut bien voir que la solution du post précédent est d'un intérêt très limité.

En effet il peut y avoir plusieurs factures portant le même numéro, et certaines peuvent ne jamais être payées.

Si l'on veut analyser le chiffre d'affaire par modèle il faut se doter d'une BASE PAIEMENT renseignée manuellement.

Celle-ci devra comporter au minimum les colonnes suivantes :

- date du paiement

- nom du client

- numéro de facture

- libellé du modèle

- montant payé (dépot, acompte ou solde).

Il sera beaucoup plus facile (et rapide) d'analyser cette base que de passer en revue les factures.

A+

merci mon amis jobs75....