Listbox conditonnelle

Yaloo

XLDnaute Barbatruc
Re : Listbox conditonnelle

Re,

Essaie en enlevant ces lignes là : (dans un 1er temps, tu peux juste mettre une ' )

VB:
iConf.Load -1    ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp." & ch
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
J'avais ce problème lorsque je n'utilisais pas la même adresse que mon FAI.

A te relire

Yaloo
 

julien34

XLDnaute Occasionnel
Re : Listbox conditonnelle

Re Yaloo, le forum,

Désolé je n'ai pas été averti de ta réponse ....par email !!
J'ai fais beaucoup d'essai concernant le mail et je pense que je vais laisser tomber parce que trop peu fiable selon le FAI utilisé!

J'ai opté pour autre chose moins interactif mais plus fiable!

Merci encore...
 

julien34

XLDnaute Occasionnel
Re : Listbox conditonnelle

Bonsoir Yaloo, le forum

J'utilise une petite macro (fournit par Yaloo d'ailleurs ;) pour renvoyer des cellules d'un classeur dans un autre.

Code:
Sub transfert()
    ChDir "E:\" 'Choix du répertoire
    Application.DisplayAlerts = False
    On Error Resume Next
    Workbooks.Open Filename:="E:\........" 'Ouvre le fichier
    ActiveWindow().ActivateNext    'Active la feuille
    
    Set w = Workbooks("classeur1.xlsx").Worksheets("feuille1")
    Set w1 = Workbooks("FORM V 8.5.xlsm").Worksheets("Formulaire")
    w.Range("B14").Value = w1.Range("G2").Value 'Copie donnée classeur 1 dans classeur 2
    w.Range("D13").Value = w1.Range("L2").Value
    w.Range("M5").Value = w1.Range("B5").Value
Ce que je souhaite faire c'est:
Renvoyer 3 cellules (exemple B14,D13,M5) et concatener en destination sur A1,A2,A3 par exemple. Euh j’espère avoir été clair :(

Une idée svp
Merci d'avance,
 

julien34

XLDnaute Occasionnel
Re : Listbox conditonnelle

Re Yaloo,

Pour ta question au post #83, la solution va te faire rire elle est radicale. ;)
J'ai décidé que le document que j'envoie serait pré rempli (donc non interactif). L'utilisateur stipule qu'ile st ok sur le doc l'enregistre et me le renvoie!!!

Bref je m’engageais dans quelque chose de trop compliqué pour moi je pense !

A+
 

Yaloo

XLDnaute Barbatruc
Re : Listbox conditonnelle

Bonsoir Julien,

3 Cellules de départ = 3 cellules de destination. Que veux tu concatener ?

Yaloo
 

julien34

XLDnaute Occasionnel
Re : Listbox conditonnelle

Re yaloo,

Exemple je copie 3 cellules (Monsieur, Nom et prénom)
Concatener pour mettre en forme le fichier de destination

Pour éviter d'avoir Monsieur................Nom...................Prénom (avec des espaces trop importants entre chaque cellule)
(J’exagère volontairement)

Peut etre existe il une autre solution
 

Yaloo

XLDnaute Barbatruc
Re : Listbox conditonnelle

Bonsoir Yaloo, le forum

J'utilise une petite macro (fournit par Yaloo d'ailleurs ;) pour renvoyer des cellules d'un classeur dans un autre.

Code:
Sub transfert()
    ChDir "E:\" 'Choix du répertoire
    Application.DisplayAlerts = False
    On Error Resume Next
    Workbooks.Open Filename:="E:\........" 'Ouvre le fichier
    ActiveWindow().ActivateNext    'Active la feuille
    
    Set w = Workbooks("classeur1.xlsx").Worksheets("feuille1")
    Set w1 = Workbooks("FORM V 8.5.xlsm").Worksheets("Formulaire")
    w.Range("B14").Value = w1.Range("G2").Value 'Copie donnée classeur 1 dans classeur 2
    w.Range("D13").Value = w1.Range("L2").Value
    w.Range("M5").Value = w1.Range("B5").Value
Ce que je souhaite faire c'est:
Renvoyer 3 cellules (exemple B14,D13,M5) et concatener en destination sur A1,A2,A3 par exemple. Euh j’espère avoir été clair :(

Une idée svp
Merci d'avance,
Si tu veux tout dans la même cellule

w.Range("B14").Value = w1.Range("G2").Value &" "& w1.Range("L2").Value &" "& w1.Range("B5").Value
Cela devrait faire l'affaire, à tester (quand même)

A+
 

julien34

XLDnaute Occasionnel
Re : Listbox conditonnelle

Re,

J'ai une erreur de compil'
w.Range("B14").Value = w1.Range("G2").Value&" "&w1.Range("L2").Value&" "&w1.Range("B5").Value
 

julien34

XLDnaute Occasionnel
Re : Listbox conditonnelle

Bonsoir Yaloo, le forum

Yaloo es tu dans les parages toi qui connait le dossier ? j'ai une toute petite question, je pense que c'est très simple pour toi !

Merci
A+
 

Yaloo

XLDnaute Barbatruc
Re : Listbox conditonnelle

Bonsoir Julien, le forum,

Oui vas-y pose toujours, si je ne suis pas capable de répondre, qui le fera a ma place.

Yaloo
 

julien34

XLDnaute Occasionnel
Re : Listbox conditonnelle

Re,

En bref j'ai un bout de code qui enregistre mon fichier sous "le nom de deux cellules"

Code:
Workbooks("Fichier1.xlsx").saveas Filename:="E:\............\Devis\ " & Range("B14") & Range("G5") & ".xls" & Range("G5")
Ça fonctionne mais sans le format de cellule "OCC" je ne sais pas si tu te souviens!

Pour faire clair avec ce code j'obtiens un fichier enregistré du type
1 Monsieur ALOKI ZEBRA (ou 1 est B14 et Monsieur ALOKI ZEBRA G5)

Je souhaite simplement obtenir OCC001 Monsieur ALOKI ZEBRA
 

Yaloo

XLDnaute Barbatruc
Re : Listbox conditonnelle

Salut,

Au lieu de Range("B14") essaie Format(Range("B14"),"""OCC""000") Attention je n'ai pas testé, mais ça devrait le faire:D

A+
 

julien34

XLDnaute Occasionnel
Re : Listbox conditonnelle

Re Yaloo,

Comme sur des roulettes !! en remplaçant par Format(Range("B14"),"""OCC""000")
Merci
 

julien34

XLDnaute Occasionnel
Re : Listbox conditonnelle

Re yaloo,

Si je veux faire exactement la même chose mais sous pdf c'est possible techniquement ?
Histoire d'avoir un excel modifiable et un pdf immuable que je peux envoyer à n'importe qui !

En gros j'enregistre une fois sous xlsx une fois sous pdf!
 

Discussions similaires


Haut Bas