Contenu récent par Ashaar

Re : Contrôle de Saisie obligatoire avant de passer sur un autre onglet Bonjour, A placer dans ThisWorkbook : Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If ActiveWorkbook.Sheets("Configuration").Range("B2") = "" _ Or ActiveWorkbook.Sheets("Configuration").Range("C5") = ""...

Re : Besoin d'aide sur macro d'envoi de cellules par email Bonjour, Il ya un autre moyen qui pourrait être amusant à développer (et qui éviterai l'onglet E-mail). L'envoi d'un tableau HTML via la référence CDO de windows reprenant les titres et les valeurs souhaitées. Un remplissage...

Re : rechercher complexe de valeur dans matrice Bonjour, Il me semble que la formule suivante répond à ce besoin : A placer en cellule E18 : =SOMMEPROD( (DANGERS=F18) * (C8:J12=G18)* (B8:B12) ) Cordialement.

Re : Copier coller VBA si vous slélectionnez les workbooks au préalable, ca devrait fonctionner : Workbooks("chiffre d'affaires").activate Worksheets("Rapport1").Select col = 1 Do While (Cells(1, col) <> " Nom du vendeur") col = col + 1 Loop Range(Cells(2, col), Cells(10000...

Re : Copier coller VBA Bonjour, De mémoire, il me semble qu'il faut sélectionner le fichier de destination (select) avant de coller les données.

Re : vba : ne pas permettre de bouger un usf Une autre solution (à placer dans le code lié au Userform) : On utilisera les fonctionnalité de windows. Private Declare Function FindWindowA Lib "User32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private...

Re : Rafraichir et imprimer plusieurs requêtes Bon, un petit bout de code pour ouvrir, rafraîchir, imprimer, fermer les rapports BO. On supposera que les rapports BO sont tous placés au même endroit (Dans l'exemple : Le répertoire de stockage par défaut de BO). Je n'ai pas géré les...

Re : Rafraichir et imprimer plusieurs requêtes Bonjour, 30 requêtes ? c'est 30 rapports (xx.rep) ? Dans l'affirmative, tes 30 rapports sont placé ou ? - En local sur ton poste ou sur un répertoire réseau (fichier/ouvrir..) ? - Dans le référentiel BO (Fichier/récupérer de/documents...

Re : inserer variable dans une plage de cellules Bonjour, Essaye : Selection.AutoFill Destination:=Range(Cells(4, 1), Cells(lin, 1)) Si l'on admet que la cellule à dupliquer est en A4, puisque l'on duplique à partir de la cellule de référence.

Re : Somme H.T. selon critères TVA Bonjour, Pourquoi ne pas passer par une public function ? après il suffit d'écrire la formule qui appele la fonction. un exemple dans le fichier XL joint. Hum, j'ai fait ça rapidos, le code n'est pas forcément très joli mais bon..

Re : VBA Erreur 1004 Ton service informatique doit surement pouvoir te donner le nom du serveur SMTP : qq chose comme FRSMTP...

Re : VBA Erreur 1004 Re, L'adresse du provider est par exemple : .Item(cdoSMTPServer) = "smtp.wanadoo.fr" .Item(cdoSMTPServer) = "smtp.orange.fr"

Re : VBA Erreur 1004 C'est normal, il faut que tu modifies l'adresse du provider dans le fichier en PJ de mon dernier mail.

Re : VBA Erreur 1004 J'ai modifié le code que j'avais publié. En fait il faut modifier 2 champs : 'Spécifier l'Emetteur du maily strDe = "Emetteur@emetteur.fr" => Ecrire l'adresse de l'expéditeur Dans la proc Sub EnvoiMessage : With Flds .Item(cdoSendUsingMethod) =...

Re : VBA Erreur 1004 ok, on va y arriver... en mode pas à pas, l'erreur 3 est générée à quel moment ? lorsque le code passe dans le bloc principal sur l'appel de proc ? Call EnvoiMessage(strDe, TDest, strSujet, strHTML, strAdrFic, FlgFic) ou après, dans la proc : Sub...