Contenu récent par winslow

Re : Insertion image dont les 5 premières lettres sont identique à la référence Un grand merci pour ton aide. J'ai simplement changé ceci pour que ça fonctionne.. With Application.FileSearch .LookIn = "C:\le dossier" .FileType = msoFileTypeExcelWorkbooks .Filename =...

Re : Insertion image dont les 5 premières lettres sont identique à la référence Bonjour Skoobi et merci pour ta réponse, j'ai encore un souci, lorsque que le fichier n'est pas trouvé (quand la référence n'existe pas dans le répertoire), le système m'insère quand même la dernière photo insèrée...

Bonjour le forum, Je suis à la recherche d'un code me permettant d'insèrer des images dans une cellule. Jusque là, rien de trop difficile.. Le hic, c'est que mes références qui se trouvent en colonne A n'ont pas tout à fait les mêmes noms que mes Jpeg qui se trouve dans mon répertoire. Je...

Bonjour le forum, Je suis à la recherche d'un code me permettant d'insèrer des images dans une cellule. Jusque là, rien de trop difficile.. Le hic, c'est que mes références qui se trouvent en colonne A n'ont pas tout à fait les mêmes noms que mes Jpeg qui se trouve dans mon répertoire. Je...

Bonjour le forum Voilà, j'essaie de piloter des pages internet en vue d'y récupèrer des données. Une première pas page de style "http:// " que j'ouvre sans soucis. Sur cette page des tonnes de lien dont une genre "javascript:CallJJJPage('KHEX');" que j'arrive à ouvrir selon le mm principe que...

Re : Ajout d'un onglet Merci Pascal, Ta réponse me semble plus simple..

Re : Ajout d'un onglet Ok J'ai trouvé l'erreur. Private Sub CommandButton1_Click() For n = 1 To Worksheets.Count Sheets("DashBoard").Cells(1, 11).Value = " " & TextBox1.Value If Worksheets(n).Name = Right(Sheets("DashBoard").Cells(1, 11).Value, 8) Then GoTo fini End If Next n...

Bonjour le forum, J'arrive très bien à rajouter un onglet et à le nommer. Mais je cherche le code qui me préviendrait si le nom que je choisi pour nommer ma nouvelle sheet est déjà le nom d'une sheet existente. Dans mon exemple, j'utilise un textbox dans lequel l'utilisateur tape le nom de la...

Re : Copie d'image sur internet Re Porcinet et merci de ton aide. Enfait, lorsque j'essaie le code pour importer les images de ce site (excel Download), ça fonctionne. Mais lorsque j'essaie sur le site qui m'intéresse, ça ne fonctionne pas! La macro me donne bien le nombre d'image présent sur...

Re : Copie d'image sur internet Bonjour Porcinet, Juste!!! Grrrr. J'aurais dû le voir!! Mais quand je remplace "feuil1" par le nom de ma feuille qui se nomme "DRF Gos", donc dans le code: Set Shp = Sheets("DRF Gos").Shapes.AddPicture(Fichier, msoFalse, msoCTrue, _ 50, VertiPos...

Re : Copie d'image sur internet Bonjour Michel et merci de ton aide, Ta macro bug sur la dernière ligne. Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, _ 50, VertiPos, Largeur, Hauteur) Avec mention "Object required" La macro compte bien le nombre d'image mais ne...

Re : Copie d'image sur internet Bonjour Michel, Je souhaite les importer dans ma feuille de calcul. J'avais bien remarqué les différentes méthodes d'enregistrement dans le "c" mais ces méthodes ne me sont pas utiles dans ce cas. A noter que les noms des images sur internet se renomment sans...

Bonjour Le forum, Voilà, je cherche le moyen de copier une page internet vers un sheet excel bien définie. Jusqu'à présent, j'ai réussi en adaptant la méthode "Importer des tableaux contenus dans des pages Web vers une feuille Excel" de la page 7 de michel xld. Le code: Sub IMPORT() Dim IE...

Re : Somme de valeurs entre 2 dates Grrrr.. j'y étais presque! Trop forts les gars! Un super grand merci. David

Bonjour le forum et meilleurs voeux. Je voudrais simplement faire une somme de valeurs se trouvant dans 2 dates de référence. Colonne A ==> mes dates Colonne B ==> mes valeurs J'aimerais avoir la somme des valeurs pour lesquelles les dates se situent entre mes dates de référence. J'ai...