Importer le nom d'un fichier dans une colonne
Résolu/Fermé
dhaze
Messages postés
109
Date d'inscription
mardi 27 septembre 2011
Statut
Membre
Dernière intervention
6 février 2020
-
10 juin 2015 à 19:11
dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020 - 18 juin 2015 à 10:15
dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020 - 18 juin 2015 à 10:15
A voir également:
- Importer le nom d'un fichier dans une colonne
- Fichier rar - Guide
- Fichier host - Guide
- Déplacer une colonne excel - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 304
11 juin 2015 à 08:47
11 juin 2015 à 08:47
Bonjour
un petit truc au passage
pour la date de création----> type long et non integer
par ex: aujourd'hui donne 42166
idem pour la taille en octet si Integer dépassement de capacité pour un classeur de maxi 32,767 Ko
Désolé pour le reste: pas compris ce que tu désirais; je te laisse donc dans les mains de notre ami Le Pingou que je salue
:o)
un petit truc au passage
pour la date de création----> type long et non integer
par ex: aujourd'hui donne 42166
idem pour la taille en octet si Integer dépassement de capacité pour un classeur de maxi 32,767 Ko
Désolé pour le reste: pas compris ce que tu désirais; je te laisse donc dans les mains de notre ami Le Pingou que je salue
:o)
dhaze
Messages postés
109
Date d'inscription
mardi 27 septembre 2011
Statut
Membre
Dernière intervention
6 février 2020
11 juin 2015 à 11:37
11 juin 2015 à 11:37
Ça avance un peu...
J'ai déjà récupéré le nom du fichier :
J'ai déjà récupéré le nom du fichier :
Sub Nom_Fichier_TIF() Dim Boîte_de_Dialogue As String Dim Chemin_Fichier 'As ? Dim Nom_Fichier_TIF 'As ? Boîte_de_Dialogue = Application.GetOpenFilename(FileFilter:="Fichier TIF(*.tif),*.tif", _ Title:="Sélectionner le fichier TIFF") If Boîte_de_Dialogue = "False" Or Boîte_de_Dialogue = "Faux" Then Exit Sub ' !!! Bilingue :< Bug en anglais !!! Chemin_Fichier = Split(Boîte_de_Dialogue, "\") Nom_Fichier_TIF = Chemin_Fichier(UBound(Chemin_Fichier)) MsgBox Nom_Fichier_TIF End Sub
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 304
Modifié par michel_m le 11/06/2015 à 12:00
Modifié par michel_m le 11/06/2015 à 12:00
Dim Chemin_Fichier 'As ?
Dim Nom_Fichier_TIF 'As ?
ce sont des strings
astuce bien pratique (si tu ne connais pas):
tu sélectionnes une variable
débogage
ajouter un espion
en parcourant la macro par F8 l'espion te donnera le type et la valeur
Dim Nom_Fichier_TIF 'As ?
ce sont des strings
astuce bien pratique (si tu ne connais pas):
tu sélectionnes une variable
débogage
ajouter un espion
en parcourant la macro par F8 l'espion te donnera le type et la valeur
dhaze
Messages postés
109
Date d'inscription
mardi 27 septembre 2011
Statut
Membre
Dernière intervention
6 février 2020
>
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
Modifié par dhaze le 11/06/2015 à 12:53
Modifié par dhaze le 11/06/2015 à 12:53
Merci pour l'astuce.
Mais je n'ai pas les types que tu m'as donné...
Mais je n'ai pas les types que tu m'as donné...
Watch : : Boîte_de_Dialogue : "" : String : Module6.Nom_Fichier_TIF
Watch : : Chemin_Fichier : Vide : Variant/Empty : Module6.Nom_Fichier_TIF
Watch : : Nom_Fichier_TIF : Vide : Variant/Empty : Module6.Nom_Fichier_TIF
JvDo
Messages postés
1978
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
28 septembre 2020
856
11 juin 2015 à 14:00
11 juin 2015 à 14:00
Bonjour,
il ne faut pas déclarer Boîte_de_Dialogue en chaîne de caractère. C'est un variant.
Du coup, tu n'as pas besoin de tester sa valeur selon la langue.
Si tu veux déclarer Chemin_Fichier as string, il faut ajouter des () car c'est un tableau :
Sinon, tu peux réduire le code :
cordialement
il ne faut pas déclarer Boîte_de_Dialogue en chaîne de caractère. C'est un variant.
Du coup, tu n'as pas besoin de tester sa valeur selon la langue.
Si tu veux déclarer Chemin_Fichier as string, il faut ajouter des () car c'est un tableau :
Chemin_Fichier() as string
Sinon, tu peux réduire le code :
Sub Nom_Fichier_TIF()
Dim Boîte_de_Dialogue 'pas "As String". c'est un variant
Boîte_de_Dialogue = Application.GetOpenFilename(FileFilter:="Fichier TIF(*.tif),*.tif", _
Title:="Sélectionner le fichier TIFF")
If Boîte_de_Dialogue = False Then
MsgBox "pas de fichier sélectionné"
Else
MsgBox Split(Boîte_de_Dialogue, "\")(UBound(Split(Boîte_de_Dialogue, "\")))
End If
End Sub
cordialement
dhaze
Messages postés
109
Date d'inscription
mardi 27 septembre 2011
Statut
Membre
Dernière intervention
6 février 2020
17 juin 2015 à 16:19
17 juin 2015 à 16:19
Merci JvDo pour ces conseils.
Voici la macro complète :
Lo.
Voici la macro complète :
Sub Importation_Nom_Mire() '********************************************************************************** ' Sélectionne et récupère le nom du fichier TIFF '********************************************************************************** Dim Boîte_de_Dialogue As Variant Dim Chemin_Fichier As String Boîte_de_Dialogue = Application.GetOpenFilename(FileFilter:="Fichier TIFF(*.tif),*.tif", _ Title:="Sélectionner le fichier TIFF") If Boîte_de_Dialogue = False Then Exit Sub Else Nom_Fichier_TIFF = Split(Boîte_de_Dialogue, "\")(UBound(Split(Boîte_de_Dialogue, "\"))) End If '********************************************************************************** ' Copier le nom dans toute la colonne "Référence de calibration" '********************************************************************************** Dim Colonne_Mire, Numération, Dernière_Ligne As Long Colonne_Mire = Rows(1).Find("Référence de calibration", , , , xlByRows, xlPrevious).Column Dernière_Ligne = Columns(Colonne_Mire).Offset(, -1).Find("*", , , , xlByColumns, xlPrevious).Row For Numération = Dernière_Ligne To 2 Step -1 Cells(Numération, Colonne_Mire).Select With ActiveCell ActiveCell.Value = Nom_Fichier_TIFF End With Next Numération End Sub
Lo.
JvDo
Messages postés
1978
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
28 septembre 2020
856
17 juin 2015 à 18:47
17 juin 2015 à 18:47
Bonjour,
C'est bien de faire profiter le forum du résultat auquel tu es parvenu.
Beaucoup ne le font pas.
Dernière remarque : tu peux supprimer
Cordialement
C'est bien de faire profiter le forum du résultat auquel tu es parvenu.
Beaucoup ne le font pas.
Dernière remarque : tu peux supprimer
Dim Chemin_Fichier As Stringdont tu ne te sers plus.
Cordialement
dhaze
Messages postés
109
Date d'inscription
mardi 27 septembre 2011
Statut
Membre
Dernière intervention
6 février 2020
>
JvDo
Messages postés
1978
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
28 septembre 2020
18 juin 2015 à 10:15
18 juin 2015 à 10:15
Bonjour,
Ce forum et ces contributeurs m'ont rendu de grands services.
Cela me semble la moindre de chose...
Et comme je ne suis pas assez compétente pour résoudre les problèmes des autres, c'est ma façon d'y contribuer tout de même...
Merci encore.
Lo.
Ce forum et ces contributeurs m'ont rendu de grands services.
Cela me semble la moindre de chose...
Et comme je ne suis pas assez compétente pour résoudre les problèmes des autres, c'est ma façon d'y contribuer tout de même...
Merci encore.
Lo.
11 juin 2015 à 09:24
Merci pour cette correction.
Pour préciser. Je souhaite, dans une boite de dialogue, sélectionner un fichier.
La macro récupère son nom et colle dans toutes les cellules d'une colonne définie.