Contenu récent par Airone784

  1. Airone784

    XL 2013 Application.GetOpenFilename et filtre sur nom fichier

    ah ben oui bien sûr. Merci beaucoup pour ton aide précieuse je vais donc basculer sur l'objet filedialog. Merci encore et a bientot
  2. Airone784

    XL 2013 Application.GetOpenFilename et filtre sur nom fichier

    D'accord, je viens d'essayer par contre avec Filedialog je n'arrive pas dans un répertoire que j'avais défini via une ligne de commande chdir avant ma ligne getopenfilename. Comment puis je faire pour arriver dans le répertoire souhaité qui n'est pas le même ???
  3. Airone784

    XL 2013 Application.GetOpenFilename et filtre sur nom fichier

    Bonjour, Merci pour le retour. La solution ne semble pas fonctionner. Je précise que les fichiers recherchés sont des pdf parmi plusieurs pdf, je veux isoler les pdf qui commencent par la lettre f du coup. j'ai donc adapté en conséquence votre code mais rien n'y fait. J'ai pas de filtre qui...
  4. Airone784

    XL 2013 Application.GetOpenFilename et filtre sur nom fichier

    Bonjour à tous, J'utilise Application.GetOpenFilename pour ouvrir une fenêtre et récupérer le chemin complet d'un fichier que j'inscris dans une textbox d'un formulaire. Ce même formulaire me permet l'envoi d'un mail avec une pièce jointe directement depuis mon fichier excel. J'aimerais quand...
  5. Airone784

    XL 2010 Récupérer commentaire des cellules

    Ah super et bien merci beaucoup je vais mettre ça en application.... Bonne fin de journée
  6. Airone784

    XL 2010 Récupérer commentaire des cellules

    Bonjour et merci de votre réponse. Comment je fais ça puisque j'ai déjà un if qui vérifie s'il y a un commentaire ????
  7. Airone784

    XL 2010 Récupérer commentaire des cellules

    Bonjour à tous, Voici mon code pour lequel j'ai un pb : sub commentaire [ABX2:ACB10000].ClearContents jour = Application.Match(CDbl(Date), Range("1:1"), 0) For i = jour To 744 Step 2 For j = 5 To [A4].End(xlDown).Row If Cells(j, i) <> "" Then Range("ABY10000").End(xlUp).Offset(1, 0) =...
  8. Airone784

    XL 2010 Récupérer commentaire d'une cellule

    Bonjour à tous, Voici mon code pour lequel j'ai un pb : sub commentaire [ABX2:ACB10000].ClearContents jour = Application.Match(CDbl(Date), Range("1:1"), 0) For i = jour To 744 Step 2 For j = 5 To [A4].End(xlDown).Row 'If j = 89 And i = 606 Then 'a = a 'End If If Cells(j, i) <> "" Then...
  9. Airone784

    XL 2010 Extraction SQL et Format date

    Effectivement ça marche super bien ! Je comprends pas trop la fonction mais c'est nikel. Merci beaucoup
  10. Airone784

    XL 2010 Extraction SQL et Format date

    Bonjour à tous, Je suis embêté sur un fichier. Je lance une extraction SQL via VBA dans une base de données IBM AS400. J'ai une colonne date qui me sort une date sous cette forme 11/05/21 Si je clique sur format et la passe en date il ne se passe rien. Par contre si je double clique la...
  11. Airone784

    XL 2019 extraire des données d'un fichier Excel sans l'ouvrir avec VBA

    Merci pour votre solution, cela répond bien à mon besoin et surtout le délai d'extraction des données et très bon pour le moment. A voir quand je vais rapatrier plusieurs onglets. Merci bcp de votre aide.
  12. Airone784

    XL 2019 extraire des données d'un fichier Excel sans l'ouvrir avec VBA

    Bon ben j'arriverais pas à me faire comprendre on dirait ! moi j'ai juste 12 fichiers excel avec un onglet ressources dans chaque fichier avec différents VBA dedans. Des fichiers dont j'ai passé pas mal de temps dessus. Je veux importer les 12 onglets ressources dans un 13ème fichier pour...
  13. Airone784

    XL 2019 extraire des données d'un fichier Excel sans l'ouvrir avec VBA

    Bonjour et meilleurs voeux aussi. Désolé mais je ne comprends pas ta réponse. Je suis bien dans un fichier excel xlsm vers un autre excel xlsm. Je ne souhaite pas utiliser access. Moi j'ai une base de 15000 lignes grand max que je veux importer d'un excel à un autre mais je bloque avec les codes...
  14. Airone784

    XL 2019 extraire des données d'un fichier Excel sans l'ouvrir avec VBA

    Bonjour @job75, Sub Importer() Dim t#, chemin$, fichier$, dercol$, formule$, n& t = Timer chemin = ThisWorkbook.Path & "\" 'à adapter fichier = "Source.xlsx" 'à adapter dercol = "H" 'dernière colonne à copier formule = "'" & chemin & "[" & fichier & "]Feuil1'!" On Error Resume Next n =...
  15. Airone784

    XL 2010 Fonction nb.si sur une plage contenant des formules

    Effectivement Roblochon, comme quoi les solutions simples sont les plus efficaces parfois!! ;)