Forums XLPages

Tous les messages (Guy)

« 1 ... 43 44 45 46 47 »
Re: Import de fichier
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 25-08-2009 20h40
BonjourAlragorn,

Tu peux utiliser la méthode GetOpenFilename de l'objet Application.

Sub ImporterFichier()

  On Error GoTo ImporterFichierErr
 
  Dim strTypeDeFichier As String
  Dim strTitre As String
  Dim varFichier As Variant ' La valeur de retour de GetOpenFileName est une chaîne ou un booléen
 
  strTypeDeFichier = "(*.tsv), *.tsv,Tous les fichiers (*.*), *.*"
 
  strTitre = "Importer des fichiers"
 
  varFichier = Application.GetOpenFilename(FileFilter:=strTypeDeFichier, Title:=strTitre)
 
  If varFichier <> False Then ' L'utilisateur n'a pas cliqué sur Annuler
   
    ' Effectuer le traitement ICI
    MsgBox "Prêt pour le traitement du fichier " & varFichier
   
  End If
 
  Exit Sub
 
ImporterFichierErr:
    MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & "ImporterFichier()"
End Sub

Pour ce qui est du traitement du fichier à ouvrir il reste à savoir à quoi ressemblent les fichiers *.tsv.

Guy


Edité par Guy le 25/08/2009 21:10:11

Hors Ligne
Rapport   Haut 

Re: Envoi de mail avec copie
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 20-08-2009 05h09
Bonsoir,

Petites retouches ici et là.  Je n'ai pas chargé le dernier fichier que tu as laissé; pas vraiment le temps je prépare mes vacances  J'ai modifié quelque peu la première version.  Tu n'auras qu'à transférer les deux formulaires frmCourriel et frmContacts dans ton nouveau classeur.  En effet j'ai séparé la partie saisie et la partie contact de même que commenté le code un peu plus sérieusement.

Voilà pour l'heure et espérant que la chose réponde à la question posée.  Je parts pour quelque jours, je ne serai donc pas au bout de la toile s'il y avait pépin.

Cordialement,

Guy


Pièce jointe:
zip Al Projet Gantt_Mod_Mieuzencore.zip   [ Taille: 58.66 Ko - Téléchargements: 678 ]

Hors Ligne
Rapport   Haut 

Re: Envoi de mail avec copie
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 19-08-2009 21h13
De rien,

Y'a pas besoin d'ajouter de ; .  La chaîne est formée de virgule en interne et s'affiche comme ; dans Outlook.  Donc pour ajouter des destinataires en saisissant au clavier, les séparer par une virgule.

As-tu essayé de sélectionner plusieurs destinataires avec la souris dans la liste de contact ?

Je t'envoie un truc un peu plus présentable après mes courses.

Cordialement,

Guy



Hors Ligne
Rapport   Haut 

Re: Envoi de mail avec copie
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 19-08-2009 19h24
Bonjour Alragorn,

Petit exemple très vite fait (désolé pas beaucoup de temps).

Le bouton EnvoiMail à été détourné de son rôle original, en lieu et place un formulaire d'envoi s'ouvre.
Le libellé des boutons est assez parlant je crois :
  • Copier : Copie la ou les adresses de courriels sélectionnées.
  • Envoyer : Ouvre un nouveau message avec les adresses choisies dans le client de courriels par défaut.
  • Annuler : Annule l'opération.
  • Deux boutons d'options pour choisir les Destinataires et les destinataires en copie.

Dans ce formulaire une liste déroulante portant la liste des contacts de la feuille Contacts
J'ai supprimé le corps de la procédure originale SendEmail().

Le formulaire d'envoi utilise la fonction API ShellExecute()

Cordialement

Guy


P.S.  Petite misère avec le fichier joint %?!!##*!

Pièce jointe:
zip Al Projet Gantt_Mod.zip   [ Taille: 51.09 Ko - Téléchargements: 490 ]

Hors Ligne
Rapport   Haut 

Re: représentations des coordonnées lat/long en XY plan dans mDF XLmap v2.0
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 18-08-2009 14h58
Bonjour dejavu34,

Si je comprends bien la question tu cherches à effectuer une projection de la sphère terrestre représentée en coordonnées latitude et longitude vers un plan de projection en (x, y).

Bien, de quelle projection veux-tu te servir?

Voir à ce sujet http://fr.wikipedia.org/wiki/Projection_cartographique

Par exemple pour Montréal :
Longitude: 73° 35' O
Latitude: 45° 30' N

Ces données ont pour origine dans le plan projeté (0,0) l'intersection du méridien de Greenwich, Angleterre et de l'équateur.

Comment comptes-tu afficher le plan contenant ces deux points?

Cordialement,

Guy

Edité par Guy le 18/08/2009 15:42:50

Hors Ligne
Rapport   Haut 

Re: regroupement de plusieurs classeurs xls sur un fichier
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 14-08-2009 14h56
Bonjour Franck,

Petite question : pourquoi ne peux-tu pas modifier les dates vides dans les autres classeurs?

Protégés?

Guy

Hors Ligne
Rapport   Haut 

Re: En VBA gérer la boite windows 'Télécharger un fichier'
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 13-08-2009 22h52
Bonjour JackyAmiens,

À ce que je vois tu cherches à te compliquer la vie, c'est parfois bon signe mais pas toujours.
À la lecture de ton premier courriel le a href="?p=5&d=6&u=-1&r=481&dl=0" me semble du Server Side Scipting (ASP ou PHP ou je-ne-sais-trop) qui n'est pas utilisable tel quel.

À la suggestion de Didier il serait effectivement plus simple de récupérer le fichier si la balise de la page avait l'allure de a href="http://www.OuDonc.fr/Telechargements/MonTrucChouette.cab" ou .xls ou quoi que ce soit d'autre.  Ce qui n'est manifestement pas le cas.

Pour ce qui est de piloter en automatique la boîte de téléchargement d'Internet Explorer ou de FireFox bonjour la chance.  La chose m'apparaît, au premier abord, difficile voire vaine.

Il y a peut-être moyen de s'y prendre autrement.
Peux-tu indiquer l'URL de la page visée par tes démarches?  Histoire d'y voir plus clair.

Cordialement,

Guy




Hors Ligne
Rapport   Haut 

Re: regroupement de plusieurs classeurs xls sur un fichier
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 13-08-2009 14h23
Bonjour Franck du Vercors,

J'ai zieuté les remarques de Didier; à relire. 

Bref petit classeur qui porte une ébauche de solution pour le problème posé.

Remarque :
  • Les classeurs banc***.xls doivent se trouver dans le même dossier que le classeur joint.
  • Les en-têtes de colonnes doivent apparaître dans chaque classeur banc***.xls, autrement pas de tri possible.
  • Placer les en-têtes de colonnes en ligne 1 et les données dans les suivantes sans ligne vide.
  • Ton poste doit avoir Microsoft Jet installé (MS Access).
Voilà, plus de détails suivront

Guy             




Pièce jointe:
xls Extracteur Banc.xls   [ Taille: 57.50 Ko - Téléchargements: 583 ]

Hors Ligne
Rapport   Haut 

Re: Analyse combinatoire
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 16-06-2008 23h05
Bonjour,

Si je comprends un peu mieux, tu cherches à établir une relation d'ordre dans l'ensemble des arrangements (A) de six lettres de l'alphabet.

Bon, mettons.

Alors, toujours dans l'hypothèse que j'y pige quoi que ce soit :
Tu indiques que ABCDEF est l'arrangement numéro 1, soit.
Mais là où je me perds c'est lorsque tu indiques que l'arrangement RTMCKU a le numéro d'ordre 113 104 273.
Et à quoi correspond l'arrangement numéro 2?

Ce peut être à mon sens n'importe quel autre... tout dépend de la relation d'ordre dont tu souhaites munir l'ensemble A
On peut effectivement établir une relation d'ordre dans cet ensemble mais c'est qu'il y en a des tas tous aussi valides les uns que les autres. Essentiellement il y en a autant que de bijections entre l'ensemble {0, 165 765 599} et A soit un paquet de l'ordre de Card(A)! (La factorielle de la cardinalité de A) Sky is no longer a limit

À moins que tu n'indiques comment tu comptes ordonner l'ensemble des arrangements, il y a fort à parier que nous n'y arriverons jamais.

Dans l'attente de précisions,

Cordialement,

Guy

Hors Ligne
Rapport   Haut 

Re: Analyse combinatoire
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 14-06-2008 11h52
À tout hasard,

Public Function ArrangeMoiCa(NombreDeLettres As Long) As String

  Dim Lettres 
As String
  Dim Candidat 
As String
  Dim I 
As Long
  Dim Position 
As Long
  Dim Arrangement
() As String
  
  ReDim Arrangement
(NombreDeLettres 1)
  
  
' Première Lettre
  Arrangement(0) = Chr(65 + Int((Rnd * 26)))
  
  Do While I < NombreDeLettres - 1
    I = I + 1 ' 
Index de la prochaine Lettre
    
    Lettres 
Join(ArrangementvbNullString' Mise en mémoire pour éviter la répétition
    Candidat = Chr(65 + Int((Rnd * 26))) ' 
Première tentative
    Position 
InStr(LettresCandidat)
    
    
' Tant que la Lettre est déja dans la chaîne, on en change.
    Do While Position <> 0
      Candidat = Chr(65 + Int((Rnd * 26)))
      Position = InStr(Lettres, Candidat)
    Loop
    
    ' 
En vlà une bonne
    Arrangement
(I) = Candidat
  Loop
  
  
' La chaîne est complète, on la retourne
  ArrangeMoiCa = Join(Arrangement, vbNullString)
  
End Function

Hors Ligne
Rapport   Haut 

« 1 ... 43 44 45 46 47 »