Discussion :

[michou32]

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...

[jeanmidudu]

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,

[michou32]

désolé pour les pj...

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

[RyuAutodidacte]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[michou32]

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...

[RyuAutodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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