Recherche:

Bonjour,

Je cherche à automatiser l'envoie d'un document par mail Outlook à partir d'un fichier Excel.
Pour cela, je souhaite que l'utilisateur puisse aller sélectionner dans le carnet d'adresse...

Salut,

Remplace le code de ton userform "Encodage_Sortie" par celui-ci dessous :
(J'ai juste passé en commentaires les parties inadaptées)


Private Sub CommandButton6_Click()...

Bonjour,

A première vue, si tu compare ton code avec ce que t'as proposé Nico Chg dans le post #6, tu verras que tu as oublié de mettre le ".value" dans ta procédure MAJ.

Merci de mettre ton...

Bonjour,

En utilisant : Application.WorksheetFunction

Voici un exemple :


Sub test()
Dim b As Integer
With Sheets("feuil1")

Bonjour,

Je me trompe peut-être mais tu déclare ta variable pht en tant que Range.
Une range n'a pas de méthode Picture à ma connaissance.

Sinon, pourquoi ne pas utiliser un contrôle...

Bonjour,

Comme le disait Illight, l'erreur est provoquée parce que tu n'as aucune donnée dans la zone définie comme source de ton TCD.

Cette partie du code, qui génère l'erreur, fait référence...

Bonjour,

Tu trouveras comment automatiser un publipostage sous excel sur cette page : Lien


Chtik

Bonjour,

Tu trouveras une réponse proposée par Fring dans cette discussion (lien) que tu devrais pouvoir adapter.

Chtik

Daniel.C, lorsque je remplace, par exemple, les données d'une entitée A par celles d'une entité B dans mon tableau me servant de source de données et que j'actualise les TCD, la position de l'item se...

Bonjour,

J'ai un classeur contenant plusieurs feuilles avec des TCD.
Tous les TCD se nomment "Indicateur X.XX".

Je voudrais pouvoir boucler sur toutes les feuilles contenant un TCD, vérifier...

Bonjour,

Voila qui devrait t'aider sur la création de dossiers (lien).

Bon courage.

Bonsoir,

Voici la macro qui te correspond :


Sub Calcul()
With Sheets("feuil1")
' Effectue le calcul de la feuille
Calculate
' Désactive le calcul automatique de la feuille

Bonjour,

Tu peux essayer comme ça si tu veux :


Sub MAJPROGRAMME()
'
' MAJPROGRAMME Macro

Dim Plage As Range, C As Range, Ligne As Variant

Salut David,

Est-ce ceci que tu cherches à faire ?


Sub MAJPROGRAMME()
'
' MAJPROGRAMME Macro

Dim Plage As Range, C As Range, Ligne As Variant

Bonjour,

Peut-être que ceci devrait t'aider.
C'est bien sur à adapter.

Chtik

Bonjour,

Pourrais-tu mettre à disposition des exemples de tes fichiers stp ?
Car lorsque je reprends ton code et test de mon côté, je ne rencontre aucun problème.

Merci de mettre les balises...

Bonsoir,

En adaptant ce que tu avais fait pour l'userform1.

Code pour l'userform2 :

Private Sub CommandButton1_Click()
'Si TextBox1 est vide
If TextBox1 = "" Then
'Message à...

Bonjour,

Chez moi, sur Windows 8.1, le code s'exécute comme tu le souhaite en remplaçant le 15 de la colonne I par 5.

Par contre, ta variable ligneDest, n'est pas définit dans le code que tu...

Salut,

Essaye :


For Each fl in Worksheets
With fl
'exécution de suppressions de lignes et de colonnes...
End with
next fl

Bonjour,

Il y a également cette discussion qui a été créée hier sur les barres de progression avec un exemple fournit par rdurupt.

Salut MarcelG,

J'avais rencontré un autre problème récemment en partant également du code de SilkyRoad, ce qui m'a fait m'intéresser au tien.

En exécutant le code en mode pas à pas, j'ai...

Bonjour,

Tu ne peux déclarer ta variable qu'après la fin de l'opération de publipostage marquée par cette ligne :


'Exécute l 'opération de publipostage
.Execute Pause:=False...

Bonjour,

A adapter à ton cas :


Sub SupDesLignesPrécises()

Dim i As Long

Application.Calculation = xlCalculationManual

Salut,

En continuant à partir de ce que tu as récupéré, voici pour ouvrir le fichier de la semaine actuelle ou de la semaine précédente.


Sub Macro1()
Dim Chemin As String, Frecent As String,...

Bonjour,

Sans avoir testé et juste avec une petite recherche, je pense que la proposition de SilkyRoad faite ici peut t'intéresser.

Chtik