SUPER RESOLU - Macro qui fonctionne trop bien

[Usine à gaz]

Bonjour à toutes et à tous,

Encore un problème que je ne parviens pas à résoudre malgré mes recherches.
Besoin de votre aide,

Voici mon soucis :
J'ai adapté une macro que vous avez eu la gentillesse de me concocter :

Sub TransmissionRdV()
'
' TransmissionRdV Macro
'

'
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    For i = 1 To 40
    Sheets("RdV agent").Select
    Range("A3").Select
    ActiveCell.FormulaR1C1 = i
    Call suivRdVagent
    ActiveSheet.Unprotect Password:="mdp"
    
    Sheets("RdV agent").Copy
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    Selection.Delete
    Selection.Cut
    
    Range("B1:C1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[2]C[-1]=0,"""",CONCATENATE(LOOKUP(R[2]C[-1],Clients),"" "",LOOKUP(R[2]C[-1],Clients1)))"
    Range("B1:C1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Dim nom As String
    nom = Range("A3") & "-" & Range("B1") & "-" & Format(Date, "ddmmyyyy") & ".xls"
    ChDir _
        "C:\Users\bellivier.l\Desktop\Facturation\Agents RdV transmis\"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\bellivier.l\Desktop\Facturation\Agents RdV transmis\" & Range("A3") & "-" & Range("B1") & "-" & Format(Date, "ddmmyyyy") & ".xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    rep = MsgBox("Votre fichier est sauvegardé sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
    
    ActiveWindow.Close
    ActiveSheet.Protect Password:="mdp", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
    Next i
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Elle fonctionne super bien ..... trop bien même

En effet, elle me créé des classeurs consciencieusement de 1 à 40 comme demandé en début de code : For i = 1 To 40

Mais voilà, dans ma feuille "Données", là où la macro va chercher les numéros de 1 à 40, mes numéros clients ne se suivent pas et j'ai besoin que seuls les numéros existants soient traités.

Par exemple, dans cette feuille "donnée", seuls les numéros 1 8 9 etc. sont existants et ça peut changer.

Pourriez-vous m'aider ? (j'exécute la macro à partir de la feuille "RdV agent"

Je joins un fichier test, en cas de besoin, le mot de passe est mdp.

Avec un grand merci, je vous souhaite une bonne journée et un beau WE
Amicalement,
caliméro,

 

[pierrejean]

Re : Macro qui fonctionne trop bien

Bonjour calimero

A tester:
Remplacer
For i =1 to 40
par
For i = 3 To Sheets("Données").Range("A" & Rows.Count).End(xlUp).Row

 

[Usine à gaz]

Re : Macro qui fonctionne trop bien

Bonjour PierreJean, à toutes et à tous,

Merci pour cette réponse "ultra rapide", je suis toujours étonné de tant de gentillesse.
Je teste et je reviens
Amicalement,
caliméro

 

[Usine à gaz]

Re : Macro qui fonctionne trop bien

Re,

J'ai testé mais ça ne fonctionne pas bien.
La macro me créé les classeurs à partir du 3 mais ça continue (4 5 6 etc.) dans tenir compte des numéros qui sont dans la feuille "Données".

A bientôt,
Amicalement,
Caliméro

 

[pierrejean]

Re : Macro qui fonctionne trop bien

Re

Ou doivent se retrouver ces numéros ?

 

[Usine à gaz]

Re : Macro qui fonctionne trop bien

Re,
Les numéros qui doivent être traités sont dans la feuille "Données" en colonne B

 

[pierrejean]

Re : Macro qui fonctionne trop bien

Re

Et que doit-on en faire ??

 

[Usine à gaz]

Re : Macro qui fonctionne trop bien

Le but est de faire un classeur qui fait office de relevé des rendez-vous pour un agent.

Par exemple, dans la feuille "suivRdV", il y a des rendez-vous pour l'agent 1
j'ai limité pour le test mais il peut y avoir dans cette même feuille des rendez pour les autres agents qui sont dans la feuille "Données".

Donc, le but est de créer un classeur par agent en tenant en compte des numéro des agents colonne B de la feuille "Données".

Je dirais même que l'idéal, serait que la macro me créé juste les classeurs pour les agents qui ont des Rendez-vous.
Dans le cas présent,juste le numéro 1.

J'espère que je m'explique bien mais je ne suis pas sûr LOL.

Je reste à votre écoute pour compléments et je peux même vous appeler au téléphone si besoin.
Amicalement,
Lionel (caliméro)

 

[pierrejean]

Re : Macro qui fonctionne trop bien

Re

Si j'ai bien compris : A tester

Sub TransmissionRdV()
'
' TransmissionRdV Macro
'


'
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    'For i = 3 To Sheets("Données").Range("A" & Rows.Count).End(xlUp).Row
    'Sheets("RdV agent").Select
    Set dico = CreateObject("Scripting.dictionary")
    For n = 4 To Sheets("RdV agent").Range("A" & Rows.Count).End(xlUp).Row
     x = Sheets("RdV agent").Range("A" & n)
     dico(x) = x
    Next
    a = dico.keys
    For n = LBound(a) To UBound(a)
    Range("A3").Select
    ActiveCell.FormulaR1C1 = a(n)
    Call suivRdVagent
    ActiveSheet.Unprotect Password:="mdp"
'..............

 

[Usine à gaz]

Re : Macro qui fonctionne trop bien

Re

Vous êtes vraiment top LOL,
ça marche très bien, j'ai juste modifié comme suit :

For n = 3 To Sheets("Données").Range("B" & Rows.Count).End(xlUp).Row
x = Sheets("Données").Range("B" & n)

Il reste juste une "cerise" sur le gâteau :
La macro créé des classeurs pour tous les numéros d'agents de la feuille "données".

Dans le classeur que je joins, j'ai volontairement mis des rendez-vous pour 3 agents, le 1, 24 et 36 et, si c'est possible, j'aimerai que la macro ne créé pas de classeur pour les autres puisque sans objet, c'est à dire pour ceux pour lesquels la feuille "RdVagent" apparaît vide (à partir de la ligne 6 incluse) après exécution du code "Call suivRdVagent".

Mais c'est déjà très bien comme ça et je vous remercie vraiment de votre précieuse aide.
Amicalement,
Lionel,

 

[pierrejean]

Re : Macro qui fonctionne trop bien

Re

Teste sans modification S.T.P

 

[Usine à gaz]

Re : Macro qui fonctionne trop bien

Red,

J'avais testé sans modifier ton code et je viens de le refaire.
Le soucis et qu'il me créé pour le premier agent et le dernier de la feuille "Données" mais pas pour ceux entre les deux.

C'est pour cela que j'avais essayé de modifier un peu.

 

[pierrejean]

Re : Macro qui fonctionne trop bien

Re

OK je m’étais trompé de page
modifie comme ceci:

For n = 4 To Sheets("suiviRdV").Range("A" & Rows.Count).End(xlUp).Row
     x = Sheets("suiviRdV").Range("A" & n)
     dico(x) = x
    Next

 

[Usine à gaz]

Re : Macro qui fonctionne trop bien

Bonjour PierreJean,
Bonjour à toutes et à toutes,

ça marche super ...... Merci tu me rends là un grand service dans mon travail. Merci.
Je t'ai pris beaucoup de temps .... à moi maintenant de tenter de comprendre le code ... grâce à vous tous, j'avance doucement mais j'avance LOL

J'ai une dernière questions sur ce sujet mais ce n'est pas un soucis.

Mes clients, très souvent ont des versions anciennes d'excel et principalement 97/2003.

Pour qu'ils puissent travailler sur mon classeur, j'enregistre donc sous 97/2003.

A chaque enregistrement, excel me demande de vérifier la compatibilité et je dois donc cliquer sur "continuer" comme il m'arrive d'avoir plus de 100 classeurs à envoyer, ce serait parfait si je pouvais ne pas avoir à le faire.

J'ai essayé de modifier le code :

ChDir _
        "C:\Users\bellivier.l\Desktop\Facturation\Agents RdV transmis\"
    [B]ActiveWorkbook.CheckCompatibility = False[/B]
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\bellivier.l\Desktop\Facturation\Agents RdV transmis\" & Range("A3") & "-" & Range("B1") & "-" & Format(Date, "ddmmyyyy") & ".xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

Mais rien à faire pour éviter ça.

Si cela ne te prends pas trop de temps, pourrais-tu me dire ce qu'il faut que je modifie ?

Merci PierreJean, c'est déjà super
Amicalement,
Lionel,

 

[JCGL]

Re : Macro qui fonctionne trop bien

Bonjour à tous,

Peux-tu essayer en Décochant "Vérifier la compatibilité" ?

A+ à tous