macro pour déduction à la source

bonjour,

j'ai bidouillé avec un copain une macro avec un fichier afin de générer des bordereaux pour les deductions à la source (québec & Canada) et ce à partir d'un fichier que avantage pme me génère...

a) lorsque je génèere mes bordereaux, les logos canada & Québec disparaissent...y-a-t-il moyen qu'ils restent en place lorsque la macro génère le bordereau?

b) dans le fichier info, onglet wage...il faudrait prendre de la colonne B les 2 dernières dates et générer une addition afin d'avoir un total de 2 et transférer le 2 dans le bordereau case G14...dépendamment de la cie, il peut y avoir plus d'employés dans cette colonne donc il faut que l'addition génère toujours un résultat avec la dernière de la colonne B...la colonne B est toujours sous forme de date mais elle doit devenir mon nombre d'employé dans la case G14...j'espère que je suis clair

c) lorsqu'une compagnie n'a pas de salaires dans un mois, l'onglet wage du fichier info n'est pas généré par avantage pme donc impossible d'avoir un fichier infos en format excel...y-a-t-il moyen d'inclure dans la macro une condition que s'il n'y a pas d'onglet wage les bordereaux doivent se produire quand même mais avec des 0 dans les cases appropriées...

ouffffff...merci aux répondants pour l'aide...merci aux spécialistes qui m'aideront...

Bonjour,

Avant de t'attendre à avoir des réponses sur ton sujet, tu devrais lire ce sujet (ce sont les règles du forum) :
http://www.developpez.net/forums/d84...s-discussions/

Voilà donc évite les pièces jointes, privilégie les balises [code] (bouton # dans la rédaction du message).

Tu auras beaucoup plus de chances d'obtenir des réponses.

Cdt,

désolé pour les pj...

alors j'espère que ma question initiale est claire...

hi
non c'est toujours pas clair mais la réponse tu l'as donné dans ta phrase pour la partie (c):

Citation:

---

y-a-t-il moyen d'inclure dans la macro une condition que s'il n'y a pas d'onglet wage les bordereaux doivent se produire quand même mais avec des 0 dans les cases appropriées...

---

A mettre dans un module

Code:

---

1 2 3 4 5 6 7 8 9 10

Function Feuille_Existe(nom_F As String) As Boolean Dim sh As Worksheet On Error Resume Next Set sh = ThisWorkbook.Sheets(nom_F) If Err <> 0 Then Feuille_Existe = False Else Feuille_Existe = True End If End Function

---

Code:

---

1 2 3 4 5 6 7

Sub MonCode() If Feuille_Existe("wage") Then MsgBox "Mettre le code correspondant si OK" 'Mettre le code correspondant Else MsgBox "Mettre l'autre code correspondant si non OK" 'Mettre le code correspondant End If End Sub

---

Edit : une petite erreur dans la fonction, c'est corrigé

wow..j'imagine que c'est un excellent début mais je n'ai aucune idée ou metre ceci...je manqué de connaissance c'est pour celà que je me suis inscrit...

Re
Si tu as fait un code avec ton pote et qui marche de plus, à vous 2, par déduction vous saurez où mettre le code, un code quand vous avez wage, un autre code quand wage n'existe pas.
Donc testez et revenez avec le code en entier à mettre dans les balises code
On pourra voir alors où ca pose problème si quelques difficultés.
N'oubliez pas que vous pouvez vous aider de l'enregistreur de macro ici

Edit : je remets le code pour une écriture plus juste :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function Feuille_Existe(nom_F As String) As Boolean Dim sh As Worksheet On Error Resume Next Set sh = ThisWorkbook.Sheets(nom_F) If Err <> 0 Then Feuille_Existe = False Else Feuille_Existe = True End If End Function

---

Code:

---

1 2 3 4 5 6 7 8 9

Sub MonCode() Dim MaFeuille As String MaFeuille = "wage" If Feuille_Existe(MaFeuille) Then MsgBox "La feuille """ & MaFeuille & """ existe" 'Remplacer cette ligne par le code correspondant Else MsgBox "La feuille """ & MaFeuille & """ n'existe pas" 'Remplacer cette ligne par le code correspondant End If End Sub

---