Nom de fichier

Bonsoir à tous et à toutes

Tite question:

Je débute complet en vba et je cale sur un truc !!!

J'ouvre un fichier en passant par une saisie InputBox. Comment s’appelle ensuite ce fichier ? pour lui donner une instruction de type close (Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False
Le second fichier est this workbook ( ça pas de pb il reste actif dans mon code, mais après un copy paste je veux fermer le premier mais je ne sais pas comment il est "nommé"



Un extrait du code en question:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Dim Datee As String, Repert As String     Repert = "C:\Users\xxxxx\Desktop\xxx-xxx\Maj MOP xp\Macro 3\IDO\Donnees plan IDO "     Datee = Application.InputBox(prompt:="Entrez la date", Type:=2) If Datee > "" Then     If Not (Dir$(Repert & Datee & ".xls", vbDirectory) = "") Then     Workbooks.Open Filename:=Repert & Datee & ".xls", UpdateLinks:=0, ReadOnly:=0, IgnoreReadOnlyRecommended:=True     Else     MsgBox "Fichier " & Repert & Datee & ".xls" & " non trouvé"     End If   End If   (Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False ' --> c'est la que ca plante

---

Merci de vos lumières lumineuses lol

Bonjour,
Quelle est la question ?

Comment s’appelle ensuite ce fichier ? pour lui donner une instruction de type close (Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False
Le second fichier est this workbook ( ça pas de pb il reste actif dans mon code, mais après un copy paste je veux fermer le premier mais je ne sais pas comment il est "nommé"

Bonjour,
Lorsque tu ouvres un fichier, en principe tu connais son nom. Non ?
Sinon comment aurais-tu pu l'ouvrir ?

Citation:

---

Le second fichier est this workbook ( ça pas de pb il reste actif dans mon code

---

Petite remarque, ton second fichier ce n'est certainement pas this workbook mais ThisWorkbook

Bonjour,

Oui pour le second fichier ThisWorkbook. Juste mal saisi de ma part mais en effet, restons précis.

Ce que je cherche c'est la manière de le nommer en utilisant mes variables:

Code:

---

Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False

---

--> vu que je l'ouvre avec une InputBox, je dois ensuite le fermer mais le code plante surement a cause la parti en gras...

Bonjour,
Je doute que tu aies réussis à ouvrir le fichier car à mon avis entre Repert et Datee il manque le slash inversé "\"

J'ai des doutes également avec le résultat renvoyé par

Citation:

---

Code:

---

If Not (Dir$(Repert & Datee & ".xls", vbDirectory) = "") Then

---

---

n'es-tu pas sensé rechercher un fichier ?

Je remets le code en entier pour plus de lisibilité:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Dim Datee As String, Repert As String     Repert = "C:\Users\xxxxx\Desktop\xxx-xxx\Maj MOP xp\Macro 3\IDO\Donnees plan IDO "     Datee = Application.InputBox(prompt:="Entrez la date", Type:=2) If Datee > "" Then     If Not (Dir$(Repert & Datee & ".xls", vbDirectory) = "") Then     Workbooks.Open Filename:=Repert & Datee & ".xls", UpdateLinks:=0, ReadOnly:=0, IgnoreReadOnlyRecommended:=True     Else     MsgBox "Fichier " & Repert & Datee & ".xls" & " non trouvé"     End If   End If   (Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False

---

Je confirme que le fichier s'ouvre, il y a une suite au code avec un copy/paste ... et pour l'instannt ça roule !!

Pour : If Not (Dir$(Repert & Datee & ".xls", vbDirectory) = "") Then J'avoue que je connais pas trop.Il me semble que ça sert si il ne trouve pas le fichier. mais mon problème est pour fermer le fichier ouvert avec l'InputBox: je ne sais pas comment le nommer avec repert et Datee pour une instruction Close

Code:

---

Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False

---

C'est ici que ça bug

Bonjour,
Avant de continuer, merci de placer ton code entre les balises prévues à cet effet (le code entre les croisillons #)

Tu déclares une variable de type Workbook.
Lorsque tu fais ton Open, tu places la référence du fichier ouvert dans cette variable avec un Set.
Pour fermer ce fichier, tu appliques ton Close à cette variable.

Et tu n'oublies pas de vider ensuite la variable avec un Set ... = Nothing.

Alors pour les croisillons je savais pas, et pour la suite c'est du chinois pour moi
Je vois pas comment écrire:

Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False --> c'est juste le "nom" que je n'arrive pas à "écrire" correctement ...

Citation:

---

Envoyé par Mocmoc38

#Workbooks(Repert & Datee & ".xls").Close SaveChanges:=False# --> c'est juste le "nom" que je n'arrive pas à "écrire" correctement ...

---

Ce n'est pas comme ça qu'il faut procéder.
Voir ma réponse précédente.

Bonjour à tous,

J'ai finalement contourné le pb en insérant ma macro directement dans mon fichier source !

Seconde étape: pas facile à expliquer

A partir d'un fichier du type:

CLIENT	Cde	n° Tour
Villabe Stock	67731	1007
Villabe Stock	67732	1007
Villabe Stock	67733	1007
Villabe Stock	67734	1007
Portugal	67747	1080
Portugal	67748	2080
Portugal	67749	2080
Espagne	67750	1400
Espagne	67751	1400
France	67752	1760
France	67753	2760
France	67754	2760
France	67759	3760

j’exécute un code pour copier la colonne C en D puis "suppr" doublons pour obtenir

1007

1080

2080

1400

1760

2760

3760

Ma question: Comment faire pour sélectionner (taille variable), copier et coller sur un autre onglet les données de la colonne B, par "tour"

Citation:

---

Envoyé par Mocmoc38

Comment faire pour sélectionner (taille variable)

---

Solution simple : traiter toute la colonne.
Par exemple, pour la colonne B : Columns("B")

Citation:

---

copier et coller sur un autre onglet les données de la colonne B,

---

Copier avec Copy https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)
Coller avec PasteSpecial https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Citation:

---

par "tour"

---

Je ne comprends pas.

Bonjour à tous
Je voudrais joindre un fichier via Cjoint.com mais je vois qu'il y a un weight limit à 15 Mo. Mon fichier fais 35 ???

Citation:

---

Envoyé par Mocmoc38

Je voudrais joindre un fichier via Cjoint.com mais je vois qu'il y a un weight limit à 15 Mo. Mon fichier fais 35 ???

---

Pour info, beaucoup de participants à ce forum n'ouvrent pas les fichiers joints, surtout s'il viennent de liens externes au forum.
Lire ceci : https://www.developpez.net/forums/d8...s-discussions/

Bonsoir à tous

je vais essayer de m'expliquer par étape:

de A1 à A8: liste de pays d'Europe (Ex: france france france france france espagne espagne grece ...)
conne b des valeurs
de C1 à C8 des villes( Ex: paris bordeaux rennes strasbourg roanne madrid valladolid mikonos)

(le nb de pays et de capitales sont variables)

mon besoin: copier les valeurs par villes dans une matrice feuil2 jusquà ce que plus de ville...

Bonjour Mocmoc,

Je t'invite à ouvrir une nouvelle discussion et résoudre ce fil de discussion si tu as eu ta réponse concernant le "nom de fichier"

Concernant ta nouvelle demande n'hésite pas à mettre une copie écran de ton tableau, et du résultat attendu. Cela aidera les membres à être pertinent sur les réponses.

A+