Bonjour,
Je souhaite réaliser une macro, qui puisse ouvrir des fichiers se trouvant sur un serveur, aller dans un onglet et réaliser un copier coller.
J’ai donc deux types deux fichiers, celui contenant les données et ceux devant recevoir ces données.
Pour pouvoir faire le lien chaque fichier est structuré de la même façon à savoir :
Janvier Février etc
Code donnée numérique donnée numérique donnée numérique
Pourriez vous m’aider à réaliser la macro, permettant d’ouvrir les fichiers, réaliser le copier coller et fermer le fichier ?
Merci par avance pour votre aide
J’ai réussi à taper ca uniquement
Sub Fige_valeurs()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Colonne = Int(InputBox("Numéro du mois à traiter (janvier = 1, février = 2, ...)"))
If Colonne < 1 Then End
If Colonne > 12 Then End
Colonne = Colonne + 3
Ligne = 1
While Ligne < 300
If Cells(Ligne, 3) = "Montant SAP" Then
Cells(Ligne, Colonne) = Cells(Ligne, Colonne)
End If
Ligne = Ligne + 1
Wend
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
R = MsgBox("Terminé", vbOKOnly + vbInformation, "Message")
End Sub
Je souhaite réaliser une macro, qui puisse ouvrir des fichiers se trouvant sur un serveur, aller dans un onglet et réaliser un copier coller.
J’ai donc deux types deux fichiers, celui contenant les données et ceux devant recevoir ces données.
Pour pouvoir faire le lien chaque fichier est structuré de la même façon à savoir :
Janvier Février etc
Code donnée numérique donnée numérique donnée numérique
Pourriez vous m’aider à réaliser la macro, permettant d’ouvrir les fichiers, réaliser le copier coller et fermer le fichier ?
Merci par avance pour votre aide
J’ai réussi à taper ca uniquement
Sub Fige_valeurs()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Colonne = Int(InputBox("Numéro du mois à traiter (janvier = 1, février = 2, ...)"))
If Colonne < 1 Then End
If Colonne > 12 Then End
Colonne = Colonne + 3
Ligne = 1
While Ligne < 300
If Cells(Ligne, 3) = "Montant SAP" Then
Cells(Ligne, Colonne) = Cells(Ligne, Colonne)
End If
Ligne = Ligne + 1
Wend
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
R = MsgBox("Terminé", vbOKOnly + vbInformation, "Message")
End Sub