Contenu récent par GClaire

Hello le fofo Bon j'ai tant bien que mal réussi a faire ce que je voulais de cette manière : Private Sub CmdB_ImportQuestions_Click() Dim ws As Worksheet Dim i As Long, j As Long, DernLigne As Long Dim DernVal As Variant 'Déterminer la dernière ligne utilisée en colonne Q Set ws =...

CC Le forum Je ente tant bien que mal d'essayer de venir a bour de ette option d'import en masse, mais en vain J'ai voulu m'inspirer d'un code que j'utilise pour exporter une question, mais dans le même principe Private Sub CmdB_Ajouter_Click() Dim ws As Worksheet Dim DerrLigneTheme As Long...

Re le forum J'ai fais un peu de ménage pour pouvoir mettre le classeur, si vous pouvez jeter un zyeux J'espère qu'il n'y aura pas de bugg due a des trucs supprimés en trop Merci trés trés trés beaucoup Passez une belle et bonne journée. G'Claire

Cc ChTi160 Bien content de te life depuis le temps. De bons souvenirs d’un fichier qui tourne toujours, grâce à toi. Pour répondre Je ne me rappelais plus pour l’histoire des noms de variables (tu vois toujours à la ramasse, lol) Et pour la sélection, VBA, doit savoir que je suis une burne...

Hello le forum L'histoire continue Avec ce code j'exporte le contenue de ma Listview. Private Sub CmdB_ImportQuestions_Click() Dim DerreLigne As Long Dim wsBase As Worksheet Dim selectedItem As ListItem ' Définir la feuille "Base" Set wsBase =...

Hello Job75, le forum Merci, je vais regarder cela Sinon j'ai ce code (Me souviens plus de qui, oups) qui fonctionne bien avec les modif indiquées ci dessus Et pour arriver a mes fins car les concepteurs du soft ne sont pas capables, de donner un fichier qui est structuré de la même manière...

Hello Merci pour la réponse C'est chose faite, ce qui donne : Sub ImporterDonneesCSV() Dim fichier As Variant Dim x As Long Dim a() As String Dim n As Long Dim b() As String Dim i As Long ChDir ThisWorkbook.Path fichier = Application.GetOpenFilename("Fichiers...

Perso je n'y vois pas d'inconveignant sauf que je métrise encore moins, lol Je ne voyais pas comment allé se faire la suite car le fichier d'import changera a chaque nouveau theme. En faite le truc complet et : 1) J'importe la feuille : (Code de job75) dans ce UserForm (Loiiiiiiiiiiiin...

Oki Ce que je comprend pas trop c’est que visuellement c’est le même code que tu as mis… Bonne journée.

Re Petite modif, pour que cela joue essentiellement avec la feuille "Import Theme" de mon classeur car sinon cela jouait sur la feuille active. Sub ImporterDonneesCSV() Dim fichier As Variant Dim x As Long Dim a() As String Dim n As Long Dim b() As String Dim i As Long...

job75, le forum job75, merci J'ai du remplacer : Cells.Replace "Ã ", "à", xlPart Par ca Cells.Replace "Ã ", "à", xlPart Par un copier coller d'une valeur dans d'une cellule car sinon cela me laissé Ã Visuellement je ne vois aucune différance, bizard Merci Passe une bonne journée...

Hello, Job75 j'avais adapté un code qui le faisait, mais l'import, me met les caractères spéciaux. Voili le soucis. Merci, Bonne soirée, G'Claire

Stapple1600, le forum Oui j'y suis arrivé Cela marchotte, lol J'ai crée avec l'enregistreur de macro, de manière a pour voir refaire avec automation, mais il me dit que la requête existe déjà, donc pour le moment je l'efface, mais pas le bon moyen je pense. je peaufine Merci bonne soirée...

Re Je viens de retester, cela a fonctionné. J'ai utilisé l'enregistreur de macro afin de voir ce que cela donnait. Sub Macro1() ' ' Macro1 Macro ' ' ActiveWorkbook.Queries.Add Name:="openquizzdb_259 (3)", Formula:= _ "let" & Chr(13) & "" & Chr(10) & " Source =...

Hello Staple 1600, le firum J’avais fais un test à la mano d’import, en tant que fichier CSV, il ne le faisait pas Je comprends pas trop. J’ouvre le fichier toutes les colonnes y sont, je l’importe via ce code, et bien ça fait n’importe quoi. Merci Bonne soirée G’Claire