Code VBA incomplet

[guez]

Bonjour,

Le code ci-dessous fonctionne bien si la cellule source de la variable contient une seule info (ex: 12) mais ne fonctionne pas si la valeur est "12 Fr". C'est donc au niveau de la définition des variables ques ça plante parfois.
Comment completer mon code svp.

Merci pour votre aide

Sub recup()
Range("A1").Select 'sélectionner la cellule de début
Chemin = "Personnel"
fichier = Dir(Chemin & "*.xls")
Do While fichier <> ""
Workbooks.Open Filename:=Chemin & fichier

Dim Effectif As Integer, NumGestion As Integer
Effectif = Sheets("BALANCE").Range("D89")
NumGestion = Sheets("PARAMETRES").Range("D9")
    
ThisWorkbook.Activate
ActiveCell.Value = Effectif
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = NumGestion

Windows(fichier).Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
fichier = Dir ' Fichier suivant
Loop
End Sub

 

[guez]

Re : Code VBA incomplet

Re,

as tu essayé comme ceci ?

fichier = Dir(Chemin & "*####-####-##.xls")

Oui mais rien ne se passe 🙁

 

[Pierrot93]

Re : Code VBA incomplet

Re,

autant pour moi... A priori la fonction "DIR" ne tient pas compte du #... essaye ceci, fonctionne chez moi :

fichier = Dir(chemin & "*????-????-??.xls")

renvoie le nom du fichier :

classeur1234-12-99.xls

A vériifier si ton chezmin est convenablement bien initialisé....

 

[guez]

Re : Code VBA incomplet

fichier = Dir(chemin & "*????-????-??.xls")

ça fonctionne bien. C top merci bcp.
C'est trés réactif sur ce forum, jsuis happy^^^

Surtout que là c'est la partie la plus facile de ma macro, le plus compliqué reste à venir, j'aurais certainement encore besoin de vos lumières. J'ai déjà appris bcp de truc auj.

MERCI

 

[guez]

Re : Code VBA incomplet

Une dernière question pour aujourd'hui:

Le chemin d'accès aux fichiers dépends du mois et de l'année. Je veux donc modifier le chemin d'accés qui pour le moment était en dure.

Je passe donc par une zone de paramétrage avec liste déroulante pour choisir le mois et l'année et je les stoke dans 2 variables


Exemple: pour aller dans ce dossier
S:\0100\ENVOIS FACTURATION\Facturation 2013\201304

J'ai écris la macro suivante qui n'ouvre rien du tout:

ThisWorkbook.Activate
Dim Mois As Integer, Annee As Integer
Mois = Sheets("PARAMETRES").Range("C3")
Annee = Sheets("PARAMETRES").Range("C4")
chemin = "S:\0100\ENVOIS FACTURATION\Facturation" + Annee + "\" + Annee + Mois + "\"
fichier = Dir(chemin & "*????-????-??.xls")
Do While fichier <> ""
Workbooks.Open Filename:=chemin & fichier

Une idée?

 

[Pierrot93]

Re : Code VBA incomplet

Re,

essaye comme suit :

chemin = "S:\0100\ENVOIS FACTURATION\Facturation" & Annee & "\" & Annee & mois & "\"

 

[guez]

Re : Code VBA incomplet

Re,

essaye comme suit :

chemin = "S:\0100\ENVOIS FACTURATION\Facturation" & Annee & "\" & Annee & mois & "\"

Bonjour,
ça ne marche pas avec cette solution, rien ne se passe donc la macro ne trouve pas le chemin.

Est-ce que ça peut venir de mon mois: dans mes parametres, il est écris "05" (cellule C3 donc) mais la valeur enregistré dans ma variable c'est bien "05" ou "5" car si c'est "5" c'est normal qu'il ne trouve pas le chemin.
Qu'en pensez vous?

 

[guez]

Re : Code VBA incomplet

Je viens de tester en mettant un mois en dure, cela ne change rien

 

[Pierrot93]

Re : Code VBA incomplet

Re,

Est-ce que ça peut venir de mon mois: dans mes parametres, il est écris "05" (cellule C3 donc) mais la valeur enregistré dans ma variable c'est bien "05" ou "5" car si c'est "5" c'est normal qu'il ne trouve pas le chemin.
Qu'en pensez vous?

oui cela peut venir de là....

essaye avec la fonction "format" :

& Format(mois, "00") &

 

[guez]

Re : Code VBA incomplet

tjs rien 😕

 

[guez]

Re : Code VBA incomplet

J'ai contourné mon probleme en calculant mon chemin d'accès directement dans Excel que j'integre dans une varaible "Source" et ça marche.

Pour le moment j'arrive donc a extraire les données dont j'ai besoin sur 1 région, hors j'ai 32 regions. Je repete mon code 32 fois? ça me parait lourd.
Comme j'ai calculé mes 32 chemins d'accès sur Excel, est-ce que je peux lui dire de faire les 32 chemins les uns aprés les autres? Mes sources sont de K19 à K50

Voici mon code "final" pour le moment:

Sub recup()

'Parametre d'importation
ThisWorkbook.Activate
Dim Mois As Integer, Annee As Integer, Source As String
Mois = Sheets("PARAMETRES").Range("C3")
Annee = Sheets("PARAMETRES").Range("C4")
Source = Sheets("PARAMETRES").Range("K19")
Chemin = Source ' chemin d'accés
fichier = Dir(Chemin & "*????-????-??.xls")
Do While fichier <> ""
Workbooks.Open Filename:=Chemin & fichier

'localisation des données à extraire
Dim Effectif As String, NumGestion As String
Effectif = Sheets("BALANCE").Range("D89")
NumGestion = Sheets("PARAMETRES").Range("D9") 
    
'Extraction des données
ThisWorkbook.Sheets("AjoutEffectif").Activate
ActiveCell.Value = Effectif
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = NumGestion

Windows(fichier).Close savechanges:=False ' fermeture du fichier sources sans enregistrer les changements
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
fichier = Dir ' Fichier suivant
Loop
End Sub

 

[Pierrot93]

Re : Code VBA incomplet

Re,

As tu vérifié ce que contient ta variable "chemin" et si c'est bien là le résultat attendu ?

 

[guez]

Re : Code VBA incomplet

Re,

As tu vérifié ce que contient ta variable "chemin" et si c'est bien là le résultat attendu ?

Non Pierrot, je n'avais pas vérifié mais c'est pas un probleme de calculer mes chemins sur excel pour l'integrer à une variable

 

[Pierrot93]

Re : Code VBA incomplet

Re,

Non Pierrot, je n'avais pas vérifié mais c'est pas un probleme de calculer mes chemins sur excel pour l'integrer à une variable

bon... bah... pas tout compris moi....

bon après midi
@+