Bonjour,
 
Voilà mon problème :
 
J'ai en classeur excel qui ouvre un "userform" au démarrage. Ce userform comporte 3 "textbox" et un bouton validation.
Je voudrai qu'en cliquant le bouton, les données entrées dans les textbox s'enregistrent dans des cellules d'autres fichiers excel mais que ces fichiers ne restent pas ouverts (modification et enregistrement silencieux).
 
Quelqu'un pourrait m'aider pour le code SVP (novice en VB)
 
Merci d'avance

Bonjour,
entre autres:
 
Application.ScreenUpdating = False
 
Workbooks.Open Filename:="C:\......xls"   'chemin complet  
 
ActiveSheet.Cells(1, 1) = "CONFIFI" 'pour mettre CONFIFI dans A1
ActiveWorkbook.Close SaveChanges:=True
Workbooks.Open Filename:="C:\......xls" ' du deuxième fichier
ActiveSheet.Cells(1, 1) = "CONFIFI"
ActiveWorkbook.Close SaveChanges:=True
Application.ScreenUpdating = True
 
Cordialement

Bonjour SeniorPapou,
 
Merci pour votre réponse, j'essaierai demain ce code et vous tiendrai au courant du fonctionnement.
 
Bonne soirée!

Bonjour,
 
Merci, cela fonctionne bien!
 
Par contre, le fichier contenant cette macro se trouvera dans un répertoire type qui sera renommé à chaque fois différemment.
 
Serait-il possible que le chemin vers les fichiers ouverts soit relatif et non complet ?
 
Merci d'avance

Bonjour,
les autres fichiers aussi?
 
Cordialement

Oui, les fichiers à remplir auront toujours le même chemin par rapport au classeur contenant la macro.

Bonjour,
 
ThisWorkbook.FullName
te donnes le chemin du fichier en cours, retirer à droite le nom du fichier et remplacer par les noms des autres fichiers
 
Cordialement

par exemple:
dim fufu as string
Dim toti As String
fufu=ThisWorkbook.FullName
toti = Left(fufu, Len(fufu) - Len(ThisWorkbook.Name))
MsgBox toti

OULA, je suis un bleu en VB, j'ai pas tout compris!
 
Comment je dois intégrer cela dans l'exemple donné au départ?
 

Bonjour,
 
dim fufu as string  
Dim toti As String  
fufu=ThisWorkbook.FullName  
toti = Left(fufu, Len(fufu) - Len(ThisWorkbook.Name))  
 
Application.ScreenUpdating = False  
   
Workbooks.Open Filename:= toti & "fichier1.xls"
   
ActiveSheet.Cells(1, 1) = "CONFIFI" 'pour mettre CONFIFI dans A1  
ActiveWorkbook.Close SaveChanges:=True  
Workbooks.Open Filename:= toti & "fichier2.xls"
ActiveSheet.Cells(1, 1) = "CONFIFI"  
ActiveWorkbook.Close SaveChanges:=True  
Application.ScreenUpdating = True  
 

OK, nikel! Il me manquai juste le code pour l'adresse après le "Workbooks.Open Filename:= "
 
 
Merci beaucoup en tous cas pour vos réponses!
 
A bientôt
 
Laurent